Arithmetic/Rational/Tcl: Difference between revisions

Arithmetic/Rational/Tcl (view source)

64 bytes added , 8 months ago

no edit summary

Anonymous user

Revision as of 10:38, 18 November 2010 (view source) rosettacode>Dkf m (Add SMW link) ← Older edit		Latest revision as of 04:37, 8 October 2023 (view source) imported>Katsumi No edit summary
(One intermediate revision by one other user not shown)
Line 1: <noinclude>{{collection\|Rational Arithmetic}}[[implementation of task::Arithmetic/Rational\| ]]</noinclude> Code to find factors of a number not shown: <syntaxhighlight lang="tcl"> ~~<lang tcl>~~namespace eval rat {} proc rat::new {args} { Line 159 ⟶ 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>