aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Dinesmans-multiple-dwelling-problem/Mathematica/dinesmans-multiple-dwelling-problem.mathematica Normal file
View file

@ -0,0 +1,15 @@
floor[x_,y_]:=Flatten[Position[y,x]][[1]]
Select[Permutations[{"Baker","Cooper","Fletcher","Miller","Smith"}],
( floor["Baker",#] < 5 )
&&( Abs[floor["Fletcher",#] - floor["Cooper",#]] > 1 )
&&( Abs[floor["Fletcher",#] - floor["Smith",#]] > 1 )
&&( 1 < floor["Cooper",#] < floor["Miller",#] )
&&( 1 < floor["Fletcher",#] < 5 )
&] [[1]] //Reverse //Column
->
Miller
Fletcher
Baker
Cooper
Smith