diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-04-08 14:53:37 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-04-08 14:53:37 +0100 |
| commit | 6a39155a38388d02fde3076d91d93cf76c144d54 (patch) | |
| tree | e93313a3ebbfdebb60147b4366d97047a014a218 /challenge-003 | |
| parent | 9fd3466aa84a662c9068908936f0873d74e0d27a (diff) | |
| parent | b165c1cc5aff2c24a4f9192cfe54a4a2cf146e55 (diff) | |
| download | perlweeklychallenge-club-6a39155a38388d02fde3076d91d93cf76c144d54.tar.gz perlweeklychallenge-club-6a39155a38388d02fde3076d91d93cf76c144d54.tar.bz2 perlweeklychallenge-club-6a39155a38388d02fde3076d91d93cf76c144d54.zip | |
Merge pull request #33 from khalidelboray/patch-3
Create ch-2.pl
Diffstat (limited to 'challenge-003')
| -rw-r--r-- | challenge-003/khalid/ch-2.pl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/challenge-003/khalid/ch-2.pl b/challenge-003/khalid/ch-2.pl new file mode 100644 index 0000000000..1050717491 --- /dev/null +++ b/challenge-003/khalid/ch-2.pl @@ -0,0 +1,29 @@ +use strict; +sub pascal { + my $row_count = shift; + my @next = (1); + for my $num (1..$row_count){ + my $count = @next; + my $spa = 30 - 2 * $count; + my $form = (" " x $spa).("%4d" x $count)."\n"; + printf $form, @next; + @next = (1, (map $next[$_]+$next[$_+1], 0 .. $num-2) ,1); + } +} +pascal($ARGV[0]); +# $ perl ch-2.pl 15 +# 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 7151287171617161287 715 286 78 13 1 +# 1 14 91 3641001200230033432300320021001 364 91 14 1 |