Permutations: Difference between revisions
→{{header|langur}}
Langurmonkey (talk | contribs) |
Langurmonkey (talk | contribs) |
||
| (2 intermediate revisions by 2 users not shown) | |||
Line 5,691:
This follows the Go language non-recursive example, but is not limited to integers, or even to numbers.
<syntaxhighlight lang="langur">val .factorial =
val .permute =
if .list is not
val .limit = 10
Line 5,729:
for .e in .permute([1, 3.14, 7]) {
writeln .e
}
{{out}}
Line 9,408 ⟶ 9,409:
st> 'Abc' permutations contents
('bcA' 'cbA' 'cAb' 'Acb' 'bAc' 'Abc' )
</syntaxhighlight>
=={{header|Standard ML}}==
<syntaxhighlight lang="sml">
fun interleave x [] = [[x]]
| interleave x (y::ys) = (x::y::ys) :: (List.map (fn a => y::a) (interleave x ys))
fun perms [] = [[]]
| perms (x::xs) = List.concat (List.map (interleave x) (perms xs))
</syntaxhighlight>
| |||