diff options
| -rw-r--r-- | challenge-082/simon-proctor/raku/ch-1.raku | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/challenge-082/simon-proctor/raku/ch-1.raku b/challenge-082/simon-proctor/raku/ch-1.raku new file mode 100644 index 0000000000..3215cb071a --- /dev/null +++ b/challenge-082/simon-proctor/raku/ch-1.raku @@ -0,0 +1,12 @@ +#!/usr/bin/env raku + +use v6; + +#| Given two positive integers print the common factors (not including the values themselves). +sub MAIN ( UInt $M, UInt $N ) { + say "({(fac($M) (&) fac($N)).keys.sort.join(', ')})" +} + +sub fac( UInt $v ) { + (1..^$v).grep( $v %% * ) +} |