Pathologically Eclectic Rubbish Lister PerlMonks

### Tartaglia's triangle

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

Create A New User
Node Status?
node history
Node Type: CUFP [id://1026665]
Approved by kcott
help
Chatterbox?
 [stevieb]: 16.96 hours of runtime of a Raspberry Pi on a 12v, 7.2Ah battery :) Now to watch now long it takes to recharge the battery completely with my 18v solar cells in the sun :) [stevieb]: my high-range estimate was 18 hours [stevieb]: battery was at about 95% capacity when the test began [stevieb]: in the meantime while it was on battery, I got my shift register issues fixed, as well as certain interrupt issues

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2017-03-26 15:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Should Pluto Get Its Planethood Back?

Results (315 votes). Check out past polls.