fork download
copy 
  1. #!/usr/bin/perl
  2. # パスカルの三角形を出力する
  3. $n=16; # 段数を設定
  4. for (1..$n) {
  5.   @a = (1, map{$a[$_-1] + $a[$_]} 1..@a);
  6.   push @s, "@a\n";
  7. }
  8. $l = length($s[-1]) >> 1;
  9. for (@s) {
  10.   print ' ' x ($l - (length($_) >> 1));
  11.   print;
  12. }
Success #stdin #stdout 0s 18248KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
                                1
                               1 1
                              1 2 1
                             1 3 3 1
                            1 4 6 4 1
                          1 5 10 10 5 1
                         1 6 15 20 15 6 1
                       1 7 21 35 35 21 7 1
                      1 8 28 56 70 56 28 8 1
                   1 9 36 84 126 126 84 36 9 1
               1 10 45 120 210 252 210 120 45 10 1
             1 11 55 165 330 462 462 330 165 55 11 1
           1 12 66 220 495 792 924 792 495 220 66 12 1
       1 13 78 286 715 1287 1716 1716 1287 715 286 78 13 1
    1 14 91 364 1001 2002 3003 3432 3003 2002 1001 364 91 14 1
1 15 105 455 1365 3003 5005 6435 6435 5005 3003 1365 455 105 15 1
https://ideone.com/YCw1OC
language:
Perl (perl 5.28.1)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!