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 (Prior) 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.
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ