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;
}
}