Factors of an integer: Difference between revisions
Content added Content deleted
(Faster implementation in scala) |
No edit summary |
||
Line 3,444: | Line 3,444: | ||
L(L(1,45),L(3,15),L(5,9)) |
L(L(1,45),L(3,15),L(5,9)) |
||
</pre> |
</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> |