Family Day update

This commit is contained in:
Ingy döt Net 2020-02-17 23:21:07 -08:00
parent aac6731f2c
commit 9ad63ea473
2442 changed files with 39761 additions and 8255 deletions

View file

@ -10,19 +10,20 @@ def queenPuzzle(nRows, nCols):
in which no two Queens share a row,
column, or diagonal.
'''
def go(nRows, nCols):
def go(nRows):
lessRows = nRows - 1
return reduce(
lambda a, xys: a + reduce(
lambda b, iCol: b + [xys + [iCol]] if (
safe(nRows - 1, iCol, xys)
safe(lessRows, iCol, xys)
) else b,
enumFromTo(1)(nCols),
[]
),
go(nRows - 1, nCols),
go(lessRows),
[]
) if nRows > 0 else [[]]
return go(nRows, nCols)
return go(nRows)
# safe :: Int -> Int -> [Int] -> Bool