Anonymous user
Arithmetic/Rational/Tcl: Difference between revisions
no edit summary
m (Tweak to make ready to use as template) |
imported>Katsumi No edit summary |
||
Line 1:
<noinclude>{{collection|Rational Arithmetic}}[[implementation of task::Arithmetic/Rational| ]]</noinclude>
Code to find factors of a number not shown:
<syntaxhighlight lang="tcl">
proc rat::new {args} {
Line 159 ⟶ 160:
source primes.tcl
get_perfect_numbers
</syntaxhighlight>
{{out}}
<pre>
perfect: 6
perfect: 28
perfect: 496
perfect: 8128
elapsed: 477 seconds
perfect: 33550336
</pre>
| |||