From d07e5af5425d7c198a5e0d24db8d1444ccc647b0 Mon Sep 17 00:00:00 2001 From: "Markus \"Holli\" Holzer" Date: Mon, 23 Mar 2020 19:52:46 +0100 Subject: improvities --- challenge-053/markus-holzer/raku/ch-2.p6 | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/challenge-053/markus-holzer/raku/ch-2.p6 b/challenge-053/markus-holzer/raku/ch-2.p6 index 3c3739bbd6..a109be62d3 100644 --- a/challenge-053/markus-holzer/raku/ch-2.p6 +++ b/challenge-053/markus-holzer/raku/ch-2.p6 @@ -1,17 +1,20 @@ my %rules = - :a('e','i'), - :e('i'), - :o('a','u'), - :u('e','o'), - :i('a','e', 'o', 'u') + :a('e','i'), + :e('i'), + :o('a','u'), + :u('e','o'), + :i('a','e', 'o', 'u') ; sub MAIN(Int $n) { - .say for gather { build-str( $n, $_ ) for %rules.keys.sort } + .say for gather { + build-str( $_, $n ) + for %rules.keys.sort; + } } -sub build-str( $n, $current ) +sub build-str( $current, $n ) { my $last = $current.substr( * - 1 ); @@ -20,7 +23,7 @@ sub build-str( $n, $current ) given $current ~ $_ { take $_ and next if .chars == $n; - build-str( $n, $_ ); + build-str( $_, $n ); } } } \ No newline at end of file -- cgit