Factors of an integer: Difference between revisions
no edit summary
(Faster implementation in scala) |
No edit summary |
||
Line 3,444:
L(L(1,45),L(3,15),L(5,9))
</pre>
=={{header|ZX Spectrum Basic}}==
{{trans|AWK}}
<lang zxbasic>10 INPUT "Enter a number or 0 to exit: ";n
20 IF n=0 THEN STOP
30 PRINT "Factors of ";n;": ";
40 FOR i=1 TO n
50 IF FN m(n,i)=0 THEN PRINT i;" ";
60 NEXT i
70 DEF FN m(a,b)=a-INT (a/b)*b</lang>
| |||