Syntactic Confectionery Delight PerlMonks

### Tartaglia's triangle

by Discipulus (Monsignor)
 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..

Replies are listed 'Best First'.
Re: Tartaglia's triangle
by hdb (Monsignor) 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
Re: Tartaglia's triangle
by blue_cowdawg (Monsignor) 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.
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Create A New User
Node Status?
node history
Node Type: CUFP [id://1026665]
Approved by kcott
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2018-04-21 18:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My travels bear the most uncanny semblance to ...

Results (81 votes). Check out past polls.

Notices?