diff options
| -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' $@ |