diff options
| author | Joelle Maslak <jmaslak@antelope.net> | 2019-07-20 22:05:09 -0600 |
|---|---|---|
| committer | Joelle Maslak <jmaslak@antelope.net> | 2019-07-20 22:05:09 -0600 |
| commit | 651a2c1a55ef0c7748151d6ad53786aa228998c8 (patch) | |
| tree | c2d0950d43ec70a58080838ea708dd2a511f13e8 | |
| parent | d5824dd24b4281c273548694ac0709e760384aa0 (diff) | |
| download | perlweeklychallenge-club-651a2c1a55ef0c7748151d6ad53786aa228998c8.tar.gz perlweeklychallenge-club-651a2c1a55ef0c7748151d6ad53786aa228998c8.tar.bz2 perlweeklychallenge-club-651a2c1a55ef0c7748151d6ad53786aa228998c8.zip | |
Minor code cleanup
| -rwxr-xr-x | challenge-017/joelle-maslak/perl6/ch-1.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-017/joelle-maslak/perl6/ch-1.p6 b/challenge-017/joelle-maslak/perl6/ch-1.p6 index 236e54db22..b289b13088 100755 --- a/challenge-017/joelle-maslak/perl6/ch-1.p6 +++ b/challenge-017/joelle-maslak/perl6/ch-1.p6 @@ -36,5 +36,5 @@ multi sub A(UInt:D $m, UInt:D $n --> UInt:D) { A( $m-1, A($m, $n-1) multi sub up-arrow(UInt:D $m, UInt:D $num-arrows, 0 --> UInt:D) { 1 } multi sub up-arrow(UInt:D $m, 1, UInt:D $n --> UInt:D) { $m ** $n } multi sub up-arrow(UInt:D $m, UInt:D $num-arrows, UInt:D $n --> UInt:D) { - up-arrow($m, $num-arrows-1, up-arrow($m, $num-arrows, $n-1)); + return up-arrow($m, $num-arrows-1, up-arrow($m, $num-arrows, $n-1)); } |