Re^3: compute paths in Pascal's triangle (aka Tartaglia's one)


Just another Perl shrine
	PerlMonks

Re^3: compute paths in Pascal's triangle (aka Tartaglia's one)

by tybalt89 (Monsignor)

on Mar 23, 2018 at 19:48 UTC ( [id://1211635]=note: print w/replies, xml )

Need Help??

in reply to Re^2: compute paths in Pascal's triangle (aka Tartaglia's one)
in thread compute paths in Pascal's triangle (aka Tartaglia's one)

Here's the functional version Re: compute paths in Pascal's triangle (aka Tartaglia's one) modified to allow a top other than 0-0.

#!/usr/bin/perl

# http://perlmonks.org/?node_id=1211497

use strict;
use warnings;

sub up
  {
  my ($row, $col) = split /-/, $_[0];
  my ($startrow, $startcol) = split /-/, $_[-1];
  return $_[0] eq $_[-1] ? "@_[0..@_-2]\n" :
    ($row - $startrow > 0 && $col - $startcol > 0 &&
      up( ~-$row . '-' . ~-$col, @_ ) ) .
    ($row - $startrow > $col - $startcol &&
      up( ~-$row . '-' . $col, @_ ) );
  }

print up( '3-1', '1-0' ); # bottom, top
[download]

Comment on Re^3: compute paths in Pascal's triangle (aka Tartaglia's one) Download Code

Replies are listed 'Best First'.

Re^4: compute paths in Pascal's triangle (aka Tartaglia's one)
by LanX (Saint) on Mar 25, 2018 at 23:49 UTC

3-1 to 1-0 is essentially the same like 2-1 to 0-0

               0-0
            1-0   1-1
         2-0   2-1   2-2
      3-0   3-1   3-2   3-3
   4-0   4-1   4-2   4-3   4-4
5-0   5-1   5-2   5-3   5-4   5-5
[download]

Though you would have ended with more readable code ... nah forget it! ;-)

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)

Wikisyntax for the Monastery}

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom