Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
17
Task/Permutations/Phix/permutations-1.phix
Normal file
17
Task/Permutations/Phix/permutations-1.phix
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
global function permute(integer n, sequence set)
|
||||
--
|
||||
-- return the nth permute of the given set.
|
||||
-- n should be an integer in the range 1 to factorial(length(set))
|
||||
--
|
||||
sequence res
|
||||
integer w
|
||||
n -= 1
|
||||
res = set
|
||||
for i=length(set) to 1 by -1 do
|
||||
w = remainder(n,i)+1
|
||||
res[i] = set[w]
|
||||
set[w] = set[i]
|
||||
n = floor(n/i)
|
||||
end for
|
||||
return res
|
||||
end function
|
||||
8
Task/Permutations/Phix/permutations-2.phix
Normal file
8
Task/Permutations/Phix/permutations-2.phix
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
function permutes(sequence set)
|
||||
sequence res = repeat(0,factorial(length(set)))
|
||||
for i=1 to length(res) do
|
||||
res[i] = permute(i,set)
|
||||
end for
|
||||
return res
|
||||
end function
|
||||
?permutes("abcd")
|
||||
Loading…
Add table
Add a link
Reference in a new issue