diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2021-10-11 08:19:06 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2021-10-11 08:19:06 +0000 |
| commit | d72abf262cab062d29e5cd5a60d2b76c8969fe52 (patch) | |
| tree | 00a0315bd534be3f7cbd0e3c82b49fe3bbdbb97d | |
| parent | 076d17ee0a1fdd8ccfdd44615b366629877bf7b4 (diff) | |
| download | perlweeklychallenge-club-d72abf262cab062d29e5cd5a60d2b76c8969fe52.tar.gz perlweeklychallenge-club-d72abf262cab062d29e5cd5a60d2b76c8969fe52.tar.bz2 perlweeklychallenge-club-d72abf262cab062d29e5cd5a60d2b76c8969fe52.zip | |
Challenge 134 Solutions (Raku)
| -rw-r--r-- | challenge-134/mark-anderson/raku/ch-1.raku | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/challenge-134/mark-anderson/raku/ch-1.raku b/challenge-134/mark-anderson/raku/ch-1.raku index ff78af9b7d..82bea0e855 100644 --- a/challenge-134/mark-anderson/raku/ch-1.raku +++ b/challenge-134/mark-anderson/raku/ch-1.raku @@ -5,12 +5,7 @@ say pandigital(999); say pandigital(^5); say pandigital(400, 300, 200, 100, 0); -multi pandigital(UInt $i) -{ - (1023456789.comb.permutations)[$i].join; -} - -multi pandigital(+$arr where .all ~~ UInt) +sub pandigital(+$arr where .all ~~ UInt) { - (1023456789.comb.permutations)[|$arr]>>.join; + (1023456789.comb.permutations)[|$arr]>>.join.join(', '); } |