aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Truncatable-primes/Raku/truncatable-primes.raku
View file

@ -1,10 +1,14 @@
constant ltp = $[2, 3, 5, 7], -> @ltp {
$[ grep { .&is-prime }, ((1..9) X~ @ltp) ]
constant ltp = [2, 3, 5, 7], {
last if .not;
[ ((1..9) X~ @$_).grep: &is-prime ]
} ... *;
constant rtp = $[2, 3, 5, 7], -> @rtp {
$[ grep { .&is-prime }, (@rtp X~ (1..9)) ]
constant rtp = [2, 3, 5, 7], {
last if .not;
[ (@$_ X~ (1,3,7,9)).grep: &is-prime ]
} ... *;
say "Highest ltp = ", ltp[5][*-1];
say "Highest rtp = ", rtp[5][*-1];
say "Largest ltp < 1e6 = ", ltp[5][*-1];
say "Largest rtp < 1e6 = ", rtp[5][*-1];
say "Largest possible ltp = ", ltp.eager.flat.tail;
say "Largest possible rtp = ", rtp.eager.flat.tail;