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