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

4 lines
116 B
Text

% ...
println(missing3=difference(Perms,P1)).
difference(Xs,Ys) = findall(X,(member(X,Xs),not(member(X,Ys)))).