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