RosettaCodeData/Task/Combinations/Picat/combinations-3.picat
2023-07-01 13:44:08 -04:00

5 lines
153 B
Text

go3 =>
L = "abcde",
printf("comb3(%d,%w): %w\n",3,L,comb3(3,L)).
comb3(M, List) = [ [List[P[I]] : I in 1..P.length] : P in comb1(M,List.length)].