aboutsummaryrefslogtreecommitdiff
path: root/challenge-167
diff options
context:
space:
mode:
authorrir <rirans@comcast.net>2022-06-01 20:18:30 -0400
committerrir <rirans@comcast.net>2022-06-01 20:18:30 -0400
commit4139111a3938b72ddbdfa24301e048e1b30805cb (patch)
treef97a84f7ff8d41f4ba54c04bfc25da753be70eba /challenge-167
parente6187f24d75625b1b75f772f4938df6e45217691 (diff)
downloadperlweeklychallenge-club-4139111a3938b72ddbdfa24301e048e1b30805cb.tar.gz
perlweeklychallenge-club-4139111a3938b72ddbdfa24301e048e1b30805cb.tar.bz2
perlweeklychallenge-club-4139111a3938b72ddbdfa24301e048e1b30805cb.zip
Change a var name.
Diffstat (limited to 'challenge-167')
-rw-r--r--challenge-167/0rir/raku/ch-1.raku6
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-167/0rir/raku/ch-1.raku b/challenge-167/0rir/raku/ch-1.raku
index 20dac1aa64..0aa2e014d5 100644
--- a/challenge-167/0rir/raku/ch-1.raku
+++ b/challenge-167/0rir/raku/ch-1.raku
@@ -12,7 +12,7 @@ number generated at each intermediate step when rotating its
=end comment
my %seen;
-my constant @cp = gather for 100 … ∞ -> $n {
+my constant @circular-prime = gather for 100 … ∞ -> $n {
if $n.is-prime {
next if %seen{$n}:exists;
my @a = $n.split('', :skip-empty);
@@ -30,8 +30,8 @@ my constant @cp = gather for 100 … ∞ -> $n {
}
}
}
-say @cp[ 0..9].join( ', ');
-die unless @cp[ 0..9].join( ', ')
+say @circular-prime[ 0..9].join( ', ');
+die unless @circular-prime[ 0..9].join( ', ')
eq '113, 197, 199, 337, 1193, 3779, 11939, 19937, 193939, 199933';
exit;