From eb9b1ea69ce5ec7fb89081072161ff03054121a1 Mon Sep 17 00:00:00 2001 From: Mark A Date: Wed, 16 Jun 2021 03:52:39 -0600 Subject: Challenge 117 Solutions (Raku) --- challenge-117/mark-anderson/raku/ch-2.raku | 10 +++++----- 1 file 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; } } -- cgit