5 lines
175 B
Haskell
5 lines
175 B
Haskell
randomLatinSquare :: Eq a => [a] -> Random [[a]]
|
|
randomLatinSquare set = do
|
|
r <- randomPermutation set
|
|
c <- randomPermutation (tail r)
|
|
return $ latinSquare r (head r:c)
|