Half empty
25. August 2009
25. August 2009
#!/usr/bin/perl POTENTIAL: unless(0.5){ goto POTENTIAL; }
#!/usr/bin/perl POTENTIAL: unless(0.5){ goto POTENTIAL; }
<iter [number of iterations]> < POTENTIAL: unless(0.5){ goto POTENTIAL; }> </iter>
#!/usr/bin/perl my $years = rand 110; foreach($years) { tell about. do potential($_); } sub potential { use strict; my $time = $_[0]; if ( $time > 0 ) { sort $time * potential($time - 1); } else { die; } }