From cd64837b002e2248ab2f14d443b1cd3a295fa4cf Mon Sep 17 00:00:00 2001 From: Stephen Lynn Date: Thu, 5 Jan 2023 22:41:51 +0800 Subject: pwc 198 --- challenge-198/steve-g-lynn/perl/ch-2.sh | 2 +- 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' $@ -- cgit