Arithmetic/Rational/Tcl: Difference between revisions

Content added Content deleted
m (Add SMW link)
m (Tweak to make ready to use as template)
Line 1: Line 1:
{{collection|Rational Arithmetic}}[[implementation of task::Arithmetic/Rational| ]]
<noinclude>{{collection|Rational Arithmetic}}[[implementation of task::Arithmetic/Rational| ]]</noinclude>
Code to find factors of a number not shown:
Code to find factors of a number not shown:
<lang tcl>namespace eval rat {}
<lang tcl>namespace eval rat {}
Line 160: Line 160:
source primes.tcl
source primes.tcl
get_perfect_numbers</lang>
get_perfect_numbers</lang>
{{out}}
<pre>perfect: 6
<pre>perfect: 6
perfect: 28
perfect: 28