8 lines
373 B
Text
8 lines
373 B
Text
p = Position[#1, #2][[1, 1]] &;
|
|
Permutations[{"Baker", "Cooper", "Fletcher", "Miller", "Smith"}, {5}];
|
|
Select[%, #[[5]] != "Baker" &];
|
|
Select[%, #[[1]] != "Cooper" &];
|
|
Select[%, #[[1]] != "Fletcher" && #[[5]] != "Fletcher" &];
|
|
Select[%, #~p~"Miller" > #~p~"Cooper" &];
|
|
Select[%, Abs[#~p~"Smith" - #~p~"Fletcher"] > 1 &];
|
|
Select[%, Abs[#~p~"Cooper" - #~p~"Fletcher"] > 1 &]
|