Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Tartaglia's triangle

by Discipulus (Curate)
on Apr 02, 2013 at 12:02 UTC ( #1026665=CUFP: print w/ replies, xml ) Need Help??

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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://1026665]
Approved by kcott
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2014-08-02 06:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Who would be the most fun to work for?















    Results (55 votes), past polls