SL4Aで書いたけどあんまり関係ない
#!/usr/bin/perl -w use android; my $droid = Android->new(); #print "hello\n"; # 1 # 1 1 # 1 2 1 # 1 3 3 1 # 1 4 6 4 1 # - # 0 0 # 0 0+1 1 # 0 0+1 1+2 2 # 0 0+1 1+2 2+3 3 sub pascal{ my ($n) = @_; return 1 if $n eq 0; my @before = pascal($n-1); my @ret; push @ret, $before[0]; for(my $ii=1; $ii<$n; $ii++){ push @ret, $before[$ii-1] + $before[$ii]; } push @ret, $before[@before-1]; return @ret; } for(0..10){ my @pascal = pascal($_); print "@pascal\n"; }
SL4Aじゃない場合はandroidのところを外す
帰宅中に書いたらバス停一個乗り過ごしたw