diff options
| author | Jan Krňávek <Jan.Krnavek@gmail.com> | 2020-10-18 13:18:30 +0200 |
|---|---|---|
| committer | Jan Krňávek <Jan.Krnavek@gmail.com> | 2020-10-18 13:18:30 +0200 |
| commit | e1c62d3712ec7ead51e51df16c508b9192d8ca5e (patch) | |
| tree | af43654da2dbe2bfaf110c2ce94e2121b1352803 /challenge-082 | |
| parent | f5f5530b5c5e9e70a3059a811f85d03450b5f793 (diff) | |
| download | perlweeklychallenge-club-e1c62d3712ec7ead51e51df16c508b9192d8ca5e.tar.gz perlweeklychallenge-club-e1c62d3712ec7ead51e51df16c508b9192d8ca5e.tar.bz2 perlweeklychallenge-club-e1c62d3712ec7ead51e51df16c508b9192d8ca5e.zip | |
082-1 can be used by cli
Diffstat (limited to 'challenge-082')
| -rw-r--r-- | challenge-082/wambash/raku/ch-1.raku | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/challenge-082/wambash/raku/ch-1.raku b/challenge-082/wambash/raku/ch-1.raku index 0a706a49d5..6a90697ef8 100644 --- a/challenge-082/wambash/raku/ch-1.raku +++ b/challenge-082/wambash/raku/ch-1.raku @@ -6,7 +6,11 @@ sub common-factors( +@a ) { andthen .grep: $gcd %% * } -multi MAIN (Bool :$test) { +multi MAIN ( +@a ) { + say common-factors @a; +} + +multi MAIN (Bool :$test!) { use Test; is common-factors(12, 18), (1,2,3,6); is common-factors(18, 23), (1); |