diff options
| author | Scimon <simon.proctor@gmail.com> | 2021-10-25 10:36:26 +0100 |
|---|---|---|
| committer | Scimon <simon.proctor@gmail.com> | 2021-10-25 10:36:26 +0100 |
| commit | 80c7aaa118fea1298874620db78aaa163e5d4ee9 (patch) | |
| tree | 83f89d46936e69748526ff93c01ac537b26e9107 | |
| parent | c14a9b15d8439489c1a17c6088132880a0e567fb (diff) | |
| download | perlweeklychallenge-club-80c7aaa118fea1298874620db78aaa163e5d4ee9.tar.gz perlweeklychallenge-club-80c7aaa118fea1298874620db78aaa163e5d4ee9.tar.bz2 perlweeklychallenge-club-80c7aaa118fea1298874620db78aaa163e5d4ee9.zip | |
Challenge 1
| -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; +} |