RosettaCodeData/Task/Find-the-missing-permutation/Picat/find-the-missing-permutation-2.picat
2023-07-01 13:44:08 -04:00

14 lines
245 B
Text

% ...
Missing = _,
foreach(P in Perms, Missing = _)
Found = false,
foreach(T in P1)
if P == T then
Found := true
end
end,
if not Found then
Missing := P
end
end,
println(missing1=Missing).