swuecho
8/13/2012 - 7:06 PM

whileif.pl

whileif;

sub whileif {
    my @a = 0..9;
    my $i = 0;
    while $i < 10 {
	my $a=@a[$i];
	say $a;
	if $a < 1 {
	    say "less than 1";
	} elsif $a > 1 { # error from rakudo: missing block here. but if I change the last two branches, everything is ok.
	    say "greater than  1";
	} else { 
	    say "equal  1";
	}
	$i++;
    }
}