ok hdb have burned me on time..

This is my first math script. Any math or Perl suggestion welcome!
#!/usr/bin/perl use strict; use warnings; { my @tartaglia ; sub tartaglia { my ($x,$y) = @_; if ($x == 0 or $y == 0) { $tartaglia[$x][$y]=1 ; return 1}; my $ret ; foreach my $yps (0..$y){ $ret += ( $tartaglia[$x-1][$yps] || &tartaglia($x-1,$yps) ); } $tartaglia[$x][$y] = $ret; return $ret; } } sub tartaglia_row { my $y = shift; my $x = 0; my @row; $row[0] = &tartaglia($x,$y+1); foreach my $pos (0..$y-1) {push @row, &tartaglia(++$x,--$y)} return @row; } for (0..5) {print join ' ', &tartaglia_row($_),"\n"} print "\n\n"; print &tartaglia(3,3),"\n"; my @third = &tartaglia_row(5); print "@third\n";
there are no rules, there are no thumbs..

Comment on Tartaglia's triangle
Download Code
Re: Tartaglia's triangle
by blue_cowdawg (Prior) on Apr 02, 2013 at 12:16 UTC
        ok hdb have burned me on time.. This is my first math script. Any math or Perl suggestion welcome!

    Not too sure what to do with this node, was there a question?


    Peter L. Berghold -- Unix Professional
    Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg
      Questions are not mandatory in CUFP.
      لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
Re: Tartaglia's triangle
by hdb (Parson) on Apr 02, 2013 at 12:27 UTC

    It took me a while to understand your enumeration scheme. Bit different from what I am used to but interesting!

      yes, when i saw the 'sock' or 'hockey stick' pattern i suddenly though about Perl's AoA.



      there are no rules, there are no thumbs..
Re: Tartaglia's triangle
by jakeease (Friar) on Apr 16, 2013 at 06:47 UTC