Factors of an integer: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 445: | Line 445: | ||
w $$factors(64) ; [1,2,4,8,16,32,64]</lang> |
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|OCaml}}== |
=={{header|OCaml}}== |
||
Line 451: | Line 467: | ||
let factors n = |
let factors n = |
||
List.filter (fun v -> (n mod v) = 0) (range n)</lang> |
List.filter (fun v -> (n mod v) = 0) (range n)</lang> |
||
=={{header|Oz}}== |
=={{header|Oz}}== |