diff options
| author | Stephen Lynn <bizlsg@localhost.localdomain> | 2023-01-05 22:41:51 +0800 |
|---|---|---|
| committer | Stephen Lynn <bizlsg@localhost.localdomain> | 2023-01-05 22:41:51 +0800 |
| commit | cd64837b002e2248ab2f14d443b1cd3a295fa4cf (patch) | |
| tree | 7b67e16450906d08d3550940a869c2855f106f9f /challenge-198 | |
| parent | 9236bd5176e89c0ebe48cd9926718470cde8d53c (diff) | |
| download | perlweeklychallenge-club-cd64837b002e2248ab2f14d443b1cd3a295fa4cf.tar.gz perlweeklychallenge-club-cd64837b002e2248ab2f14d443b1cd3a295fa4cf.tar.bz2 perlweeklychallenge-club-cd64837b002e2248ab2f14d443b1cd3a295fa4cf.zip | |
pwc 198
Diffstat (limited to 'challenge-198')
| -rwxr-xr-x | challenge-198/steve-g-lynn/perl/ch-2.sh | 2 | ||||
| -rwxr-xr-x | challenge-198/steve-g-lynn/raku/ch-2.sh | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-198/steve-g-lynn/perl/ch-2.sh b/challenge-198/steve-g-lynn/perl/ch-2.sh index d2fc2df7e8..235d763779 100755 --- a/challenge-198/steve-g-lynn/perl/ch-2.sh +++ b/challenge-198/steve-g-lynn/perl/ch-2.sh @@ -1,3 +1,3 @@ #!/bin/sh -perl -MMath::Prime::Util=prime_count -wl -e 'print prime_count($ARGV[0])' $@ +perl -MMath::Prime::Util=prime_count -wl -e 'print prime_count($ARGV[0]-1)' $@ diff --git a/challenge-198/steve-g-lynn/raku/ch-2.sh b/challenge-198/steve-g-lynn/raku/ch-2.sh index 4b0260e344..4c184bf7fc 100755 --- a/challenge-198/steve-g-lynn/raku/ch-2.sh +++ b/challenge-198/steve-g-lynn/raku/ch-2.sh @@ -1,3 +1,3 @@ #!/bin/sh -raku -e '(0..@*ARGS[0]).grep(*.is-prime).elems.say' $@ +raku -e '(0..^@*ARGS[0]).grep(*.is-prime).elems.say' $@ |