Permutations: Difference between revisions
Content deleted Content added
Added Qi, translation of erlang |
→{{header|Qi}}: Forgot insert function |
||
Line 1,575: | Line 1,575: | ||
{{trans|Erlang}} |
{{trans|Erlang}} |
||
<lang qi> |
<lang qi> |
||
(define insert |
|||
L 0 E -> [E|L] |
|||
[L|Ls] N E -> [L|(insert Ls (- N 1) E)]) |
|||
(define seq |
(define seq |
||
Start Start -> [Start] |
Start Start -> [Start] |
||
Line 1,591: | Line 1,595: | ||
(permute T)))) |
(permute T)))) |
||
</lang> |
</lang> |
||
=={{header|R}}== |
=={{header|R}}== |