oops#!/usr/bin/perl -w use strict; my $brains = 1000000000000; use constant SOMETHING => 1; my $learned = SOMETHING; my $persistence = 0; STUDY: while( $persistence ){ $learned = (SOMETHING + $learned); print $learned; } $persistence && goto STUDY if $brains;
# bottom line has to be this: ++$persistence && goto STUDY if $brains;
In reply to a speck of persistence better than a bushel of brains by mkmcconn
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |