Anonymous user
Find largest left truncatable prime in a given base: Difference between revisions
Find largest left truncatable prime in a given base (view source)
Revision as of 09:10, 8 October 2012
, 11 years ago→{{header|Tcl}}: Added adaptive certainty levels
(→Tcl: Added implementation) |
m (→{{header|Tcl}}: Added adaptive certainty levels) |
||
Line 463:
}
set primes $stems
set certainty [expr {[llength $primes] > 100 ? 5 : 1}]
set stems {}
foreach s $primes {
for {set i 1} {$i < $base} {incr i} {
set n [expr {$b*$i + $s}]
if {[is_prime $n
lappend stems $n
}
|