Posted to tcl by Haryaalcar at Tue Feb 02 16:09:23 GMT 2010view raw
- set maxNum 2000000; set primes 0; for {set i 2} {$i<$maxNum} {incr i} { if {[expr $i%1000]==0} then {puts $i} ; if {![bit primes $i]} then {for {set j [expr $i*2]} {$j<$maxNum} {incr j $i} {bit primes $j 1 } } } ; set sum 0; for {set i 2} {$i<$maxNum} {incr i} { if {![bit primes $i]} then {incr sum $i; puts $i} } ; puts "sum=$sum"