diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-06-16 03:52:39 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-06-16 03:52:39 -0600 |
| commit | eb9b1ea69ce5ec7fb89081072161ff03054121a1 (patch) | |
| tree | 4feac2a40abde31d2999ec17d3adb370ac167a3d | |
| parent | 28d2a3edfb63dc5aa10f942c6fc38ae2859e4400 (diff) | |
| download | perlweeklychallenge-club-eb9b1ea69ce5ec7fb89081072161ff03054121a1.tar.gz perlweeklychallenge-club-eb9b1ea69ce5ec7fb89081072161ff03054121a1.tar.bz2 perlweeklychallenge-club-eb9b1ea69ce5ec7fb89081072161ff03054121a1.zip | |
Challenge 117 Solutions (Raku)
| -rw-r--r-- | challenge-117/mark-anderson/raku/ch-2.raku | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/challenge-117/mark-anderson/raku/ch-2.raku b/challenge-117/mark-anderson/raku/ch-2.raku index 283a7742cb..1c3414f88f 100644 --- a/challenge-117/mark-anderson/raku/ch-2.raku +++ b/challenge-117/mark-anderson/raku/ch-2.raku @@ -4,10 +4,10 @@ sub MAIN($n) { - travel(0, 0, 0, $n, q{}); + traverse(0, 0, 0, $n, q{}); } -sub travel($r, $l, $h, $n, $path) +sub traverse($r, $l, $h, $n, $path) { my $x = $r + $h; my $y = $r + $l; @@ -19,8 +19,8 @@ sub travel($r, $l, $h, $n, $path) else { - travel($r + 1, $l, $h, $n, $path ~ 'R') if $y < $n; - travel($r, $l, $h + 1, $n, $path ~ 'H') if $h < $l; - travel($r, $l + 1, $h, $n, $path ~ 'L') if $y < $n; + traverse($r + 1, $l, $h, $n, $path ~ 'R') if $y < $n; + traverse($r, $l, $h + 1, $n, $path ~ 'H') if $h < $l; + traverse($r, $l + 1, $h, $n, $path ~ 'L') if $y < $n; } } |