diff options
| author | rir <rirans@comcast.net> | 2022-06-01 20:18:30 -0400 |
|---|---|---|
| committer | rir <rirans@comcast.net> | 2022-06-01 20:18:30 -0400 |
| commit | 4139111a3938b72ddbdfa24301e048e1b30805cb (patch) | |
| tree | f97a84f7ff8d41f4ba54c04bfc25da753be70eba /challenge-167 | |
| parent | e6187f24d75625b1b75f772f4938df6e45217691 (diff) | |
| download | perlweeklychallenge-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.raku | 6 |
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; |
