diff options
author | tomsmeding <tom.smeding@gmail.com> | 2018-09-02 10:21:43 +0200 |
---|---|---|
committer | tomsmeding <tom.smeding@gmail.com> | 2018-09-02 10:21:43 +0200 |
commit | 55261161c4cb05653c88f15e3537c1d514fefd2e (patch) | |
tree | dbc892ed655d470c44a2efafe3280ed4c2cdc32b | |
parent | 95a851bea2895bc89a3c147116c418e1fc39708c (diff) |
hsolve: Fix print spacing
-rw-r--r-- | hsolve/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/hsolve/Main.hs b/hsolve/Main.hs index 7688b4e..a2a1676 100644 --- a/hsolve/Main.hs +++ b/hsolve/Main.hs @@ -260,7 +260,7 @@ writeSudokuDiff su1 su2 = intercalate "\n" $ flip map [0..8] $ \r -> let line = flip concatMap [0..8] $ \c -> (if c > 1 && c `mod` 3 == 0 then " " else "") - ++ (if c > 1 then " " else "") + ++ (if c > 0 then " " else "") ++ case (su1 `at` (9 * r + c), su2 `at` (9 * r + c)) of (Left v1, Left v2) | v1 == v2 -> show (v2 + 1) ++ printposs pe pe |