RosettaCodeData/Task/Combinations/Picat/combinations-3.picat

6 lines
153 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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)].