Anonymous user
Factors of an integer: Difference between revisions
added Ursala
(CL bugfix: don't include square root twice) |
(added Ursala) |
||
Line 138:
1 3 5 9 15 45
1 53</pre>
=={{header|Ursala}}==
<lang Ursala>
#import std
#import nat
factors = (~| not remainder)^lrtPlNCTX/~& iota
</lang>
test program:
<lang Ursala>
#cast %nL
example = factors 100
</lang>
output:
<pre>
<1,2,4,5,10,20,25,50,100>
</pre>
|