Anonymous user
Semiprime: Difference between revisions
m
→{{header|Tcl}}: formatting tweak
(→Tcl: Added implementation) |
m (→{{header|Tcl}}: formatting tweak) |
||
Line 478:
proc isSemiprime n {
if {!($n & 1)} {
return [::math::numtheory::isprime [expr {$n >> 1}]]
}
for {set i 3} {$i*$i < $n} {incr i 2} {
if {$n / $i * $i != $n && [::math::numtheory::isprime $i]} {
if {[::math::numtheory::isprime [expr {$n/$i}]]} {
return 1
}
|