diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2021-02-01 03:05:39 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2021-02-01 03:05:39 -0700 |
| commit | 1e3200d445f9dfed501541e9b52f6d8985af06f1 (patch) | |
| tree | 11654fc861fd46fc673d044414de332000158fdd | |
| parent | 903d7f9729a3debf23370afa22edcbfd92c25789 (diff) | |
| download | perlweeklychallenge-club-1e3200d445f9dfed501541e9b52f6d8985af06f1.tar.gz perlweeklychallenge-club-1e3200d445f9dfed501541e9b52f6d8985af06f1.tar.bz2 perlweeklychallenge-club-1e3200d445f9dfed501541e9b52f6d8985af06f1.zip | |
Challenge 98 Solutions (Raku)
| -rw-r--r-- | challenge-098/mark-anderson/raku/ch-2.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-098/mark-anderson/raku/ch-2.raku b/challenge-098/mark-anderson/raku/ch-2.raku index 12bf7ec466..0840d339bd 100644 --- a/challenge-098/mark-anderson/raku/ch-2.raku +++ b/challenge-098/mark-anderson/raku/ch-2.raku @@ -7,7 +7,7 @@ is position(6, (1, 3, 5, 7)), 3; is position(10, (12, 14, 16, 18)), 0; is position(19, (11, 13, 15, 17)), 4; -multi position($N, @N) +sub position($N, @N) { (first * >= $N, :k, @N) // +@N; } |