Anti-primes: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 1,194: | Line 1,194: | ||
End Sub</lang>{{out}} |
End Sub</lang>{{out}} |
||
<pre>The first 20 anti-primes are: 1 2 4 6 12 24 36 48 60 120 180 240 360 720 840 1260 1680 2520 5040 7560 |
<pre>The first 20 anti-primes are: 1 2 4 6 12 24 36 48 60 120 180 240 360 720 840 1260 1680 2520 5040 7560 |
||
</pre> |
|||
=={{header|Tcl}}== |
|||
{{trans|Java}} |
|||
<lang tcl> |
|||
proc countDivisors {n} { |
|||
if {$n < 2} {return 1} |
|||
set count 2 |
|||
set n2 [expr $n / 2] |
|||
for {set i 2} {$i <= $n2} {incr i} { |
|||
if {[expr $n % $i] == 0} {incr count} |
|||
} |
|||
return $count |
|||
} |
|||
# main |
|||
set maxDiv 0 |
|||
set count 0 |
|||
puts "The first 20 anti-primes are:" |
|||
for {set n 1} {$count < 20} {incr n} { |
|||
set d [countDivisors $n] |
|||
if {$d > $maxDiv} { |
|||
puts $n |
|||
set maxDiv $d |
|||
incr count |
|||
} |
|||
} |
|||
</lang> |
|||
{{out}}<pre> |
|||
./anti_primes.tcl |
|||
The first 20 anti-primes are: |
|||
1 |
|||
2 |
|||
4 |
|||
6 |
|||
12 |
|||
24 |
|||
36 |
|||
48 |
|||
60 |
|||
120 |
|||
180 |
|||
240 |
|||
360 |
|||
720 |
|||
840 |
|||
1260 |
|||
1680 |
|||
2520 |
|||
5040 |
|||
7560 |
|||
</pre> |
</pre> |
||
=={{header|zkl}}== |
=={{header|zkl}}== |