Factors of an integer: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,391: / Line 1,391: @@
 w $$factors(53) ; [1,53]
 w $$factors(64) ; [1,2,4,8,16,32,64]</lang>
-=={{header|Niue}}==
-<lang Niue>[ 'n ; [ negative-or-zero [ , ] if
-       [ n not-factor [ , ] when ] else ] n times n ] 'factors ;
-[ dup 0 <= ] 'negative-or-zero ;
-[ swap dup rot swap mod 0 = not ] 'not-factor ;
-( tests )
-factors .s .clr ( => 1 2 4 5 10 20 25 50 100 ) newline
-factors .s .clr ( => 1 53 ) newline
-factors .s .clr ( => 1 2 4 8 16 32 64 ) newline
-factors .s .clr ( => 1 2 3 4 6 12 )  </lang>
 =={{header|NetRexx}}==
@@ Line 1,443: / Line 1,430: @@
 -> 1 2 5 10
 etc.</pre>
+=={{header|Niue}}==
+<lang Niue>[ 'n ; [ negative-or-zero [ , ] if
+       [ n not-factor [ , ] when ] else ] n times n ] 'factors ;
+[ dup 0 <= ] 'negative-or-zero ;
+[ swap dup rot swap mod 0 = not ] 'not-factor ;
+( tests )
+factors .s .clr ( => 1 2 4 5 10 20 25 50 100 ) newline
+factors .s .clr ( => 1 53 ) newline
+factors .s .clr ( => 1 2 4 8 16 32 64 ) newline
+factors .s .clr ( => 1 2 3 4 6 12 )  </lang>
 =={{header|Oberon-2}}==