Arithmetic/Rational/Tcl: Difference between revisions

Content deleted Content added
 
imported>Katsumi
No edit summary
 
(3 intermediate revisions by 2 users not shown)
Line 1:
<noinclude>{{collection|Rational Arithmetic}}[[implementation of task::Arithmetic/Rational| ]]</noinclude>
codeCode to find factors of a number not shown:
 
<syntaxhighlight lang="tcl">
code to find factors of a number not shown
<lang tcl>namespace eval rat {}
 
proc rat::new {args} {
Line 160:
 
source primes.tcl
get_perfect_numbers</lang>
</syntaxhighlight>
<pre>perfect: 6
{{out}}
<pre>
<pre>perfect: 6
perfect: 28
perfect: 496
perfect: 8128
elapsed: 477 seconds
perfect: 33550336</pre>
</pre>