challenge-017/veesh-goldman/perl6/first.p6


1
2
3
4
5
6
7
8
9

#!/usr/bin/env perl6

multi sub A( $m where 0, $n ) { $n + 1 }
multi sub A( $m, $n where 0 ) { A($m - 1, 1) }
multi sub A( $m, $n )         { A($m - 1, A($m, $n - 1)) }

sub MAIN ( Int $m, Int $n ) {
  say A($m, $n)
}