add Direction.opposite

BrianHicks · Jan 10, 2020 · f5485d9 · f5485d9
1 parent 6b8462f
commit f5485d9
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/Direction.elm b/src/Direction.elm
@@ -1,4 +1,4 @@
-module Direction exposing (Direction, down, left, move, right, up)
+module Direction exposing (Direction, down, left, move, opposite, right, up)
 
 
 type alias Direction =
@@ -25,6 +25,11 @@ right =
     ( 0, 1 )
 
 
+opposite : Direction -> Direction
+opposite ( row, column ) =
+    ( -row, -column )
+
+
 move : { row : Int, column : Int } -> Direction -> { row : Int, column : Int }
 move { row, column } ( adjRow, adjCol ) =
     { row = row + adjRow