diff options
| author | Scimon <simon.proctor@gmail.com> | 2021-08-16 09:17:55 +0100 |
|---|---|---|
| committer | Scimon <simon.proctor@gmail.com> | 2021-08-16 09:17:55 +0100 |
| commit | f8c1bed0ca63ca4524d73f3264c1b9b1228609f3 (patch) | |
| tree | 01bed554cf9851575f75807f6864194a75133ccb | |
| parent | a40d5274a80b7dc86d043433b77928857d904698 (diff) | |
| download | perlweeklychallenge-club-f8c1bed0ca63ca4524d73f3264c1b9b1228609f3.tar.gz perlweeklychallenge-club-f8c1bed0ca63ca4524d73f3264c1b9b1228609f3.tar.bz2 perlweeklychallenge-club-f8c1bed0ca63ca4524d73f3264c1b9b1228609f3.zip | |
Challenge 1
| -rw-r--r-- | challenge-126/simon-proctor/raku/ch-1.raku | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/challenge-126/simon-proctor/raku/ch-1.raku b/challenge-126/simon-proctor/raku/ch-1.raku new file mode 100644 index 0000000000..479ed8e30d --- /dev/null +++ b/challenge-126/simon-proctor/raku/ch-1.raku @@ -0,0 +1,6 @@ +#!/usr/bin/env raku + +#| Given a number N give the count of all numbers between 1 and N inclusive that don't have a 1 in them +sub MAIN ( UInt \N ) { + (1^..N).grep( { ! m/1/ } ).elems.say; +} |