diff options
| author | Scimon <simon.proctor@gmail.com> | 2022-04-04 09:47:39 +0100 |
|---|---|---|
| committer | Scimon <simon.proctor@gmail.com> | 2022-04-04 09:47:39 +0100 |
| commit | fba5916d12a035d52cc82ced5536c6bcf531a22f (patch) | |
| tree | 8099932cc5786d3e12d7472a74ee87b42d6dfcd1 | |
| parent | 21b2771f7439710ee9a4631c40679a916ca9f723 (diff) | |
| download | perlweeklychallenge-club-fba5916d12a035d52cc82ced5536c6bcf531a22f.tar.gz perlweeklychallenge-club-fba5916d12a035d52cc82ced5536c6bcf531a22f.tar.bz2 perlweeklychallenge-club-fba5916d12a035d52cc82ced5536c6bcf531a22f.zip | |
Challenge 1
| -rw-r--r-- | challenge-159/simon-proctor/raku/ch-1.raku | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/challenge-159/simon-proctor/raku/ch-1.raku b/challenge-159/simon-proctor/raku/ch-1.raku new file mode 100644 index 0000000000..c94a0e7bb4 --- /dev/null +++ b/challenge-159/simon-proctor/raku/ch-1.raku @@ -0,0 +1,6 @@ +#!/usr/bin/env raku + +# Output the Farey Sequence of order n +sub MAIN ( Int \n ) { + ((0..n) X/ (1..n)).grep( * <= 1 ).unique.sort.map( *.nude ).map( { "@_[0]/@_[1]" } ).join(", ").say +} |