-- Refactoring with strategies
sudoku4 :: [String] -> [Maybe Grid]
sudoku4 xs = (solve <$> xs) `using` (parList rseq)
sudoku4 :: [String] -> [Maybe Grid]
sudoku4 xs = (solve <$> xs) `using` (parList rseq)
sudoku4 xs = (solve <$> xs) `using` (parList rseq)