working

input-output-hk · Feb 3, 2023 · e7bbb36 · e7bbb36
1 parent 9519fe3
commit e7bbb36
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/2023-02-03/aoc12/src/AOC.hs b/2023-02-03/aoc12/src/AOC.hs
@@ -3,4 +3,4 @@ module AOC where
 type Position = (Int, Int, Char)
 
 distance :: Position -> Position -> Int
-distance _  _ = 1
+distance _ (x, _, _) = x
diff --git a/2023-02-03/aoc12/test/AOCSpec.hs b/2023-02-03/aoc12/test/AOCSpec.hs
@@ -25,3 +25,4 @@ spec :: Spec
 spec = describe "distance" $ do
     it "between 2 positions" $ do
         distance (0, 0, 'a') (1, 0, 'a') `shouldBe` 1
+        distance (0, 0, 'a') (2, 0, 'a') `shouldBe` 2