Factors of an integer: Difference between revisions
m
moved Netrexx to proper position
Walterpachl (talk | contribs) (added NetRexx) |
Walterpachl (talk | contribs) m (moved Netrexx to proper position) |
||
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 )▼
100 factors .s .clr ( => 1 2 4 5 10 20 25 50 100 ) newline▼
53 factors .s .clr ( => 1 53 ) newline▼
64 factors .s .clr ( => 1 2 4 8 16 32 64 ) newline▼
12 factors .s .clr ( => 1 2 3 4 6 12 ) </lang>▼
=={{header|NetRexx}}==
Line 1,443 ⟶ 1,430:
10 -> 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 )
▲100 factors .s .clr ( => 1 2 4 5 10 20 25 50 100 ) newline
▲53 factors .s .clr ( => 1 53 ) newline
▲64 factors .s .clr ( => 1 2 4 8 16 32 64 ) newline
▲12 factors .s .clr ( => 1 2 3 4 6 12 ) </lang>
=={{header|Oberon-2}}==
|