diff options
| -rw-r--r-- | challenge-136/simon-proctor/raku/ch-1.raku | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/challenge-136/simon-proctor/raku/ch-1.raku b/challenge-136/simon-proctor/raku/ch-1.raku new file mode 100644 index 0000000000..71ac8237ac --- /dev/null +++ b/challenge-136/simon-proctor/raku/ch-1.raku @@ -0,0 +1,7 @@ +#!/usr/bin/env raku + +#| Given to Integers m and n find if they are friendly numbers +sub MAIN( UInt \m, UInt \n ) { + my \v = m gcd n; + (1,2,* * 2...* > v).first(* == v).Bool.Int.say; +} |