diff options
Diffstat (limited to 'hsolve/FSu.hs')
-rw-r--r-- | hsolve/FSu.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/hsolve/FSu.hs b/hsolve/FSu.hs index dc0f4c6..7429da2 100644 --- a/hsolve/FSu.hs +++ b/hsolve/FSu.hs @@ -104,7 +104,7 @@ isValidCol :: Arr s Value -> Index -> State s -> ST s Bool isValidCol arr c st = indexSetNoDups arr [9 * i + c | i <- [0..8]] st isValidBlock :: Arr s Value -> Index -> State s -> ST s Bool -isValidBlock arr b st = indexSetNoDups arr [blockOrigin b + 9 * y + x| y <- [0..2], x <- [0..2]] st +isValidBlock arr b st = indexSetNoDups arr [blockOrigin b + 9 * y + x | y <- [0..2], x <- [0..2]] st indexSetNoDups :: forall s. Arr s Value -> [Index] -> State s -> ST s Bool indexSetNoDups arr set st = do |