rover

commit b4ade2e114b5b9506ad3df88f7c2aaf15979b4a6
parent 6546a16ec67aa137144ddd0d3a0ad9830c15077a
Author: Daniel Barlow <dan@telent.net>
Date:   Sun, 22 Jan 2023 17:23:26 +0000

test it works with non-zero starting position

Diffstat:
M
rover.fnl
 | 
16
++++++++--------

1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/rover.fnl b/rover.fnl
@@ -13,10 +13,10 @@
 
 (fn command [rover commands]
   (match rover.direction
-    :n {:x 0 :y (+ rover.y 1) :direction :n}
-    :s {:x 0 :y (- rover.y 1) :direction :s}
-    :w {:x (- rover.x 1) :y 0 :direction :w}
-    :e {:x (+ rover.x 1) :y 0 :direction :e}))
+    :n {:x rover.x :y (+ rover.y 1) :direction :n}
+    :s {:x rover.x :y (- rover.y 1) :direction :s}
+    :w {:x (- rover.x 1) :y rover.y :direction :w}
+    :e {:x (+ rover.x 1) :y rover.y :direction :e}))
 
 (fn rover [x y direction]
   {: x
@@ -25,11 +25,11 @@
    : command
    })
 
-(let [r (rover 0 0 :n)]
+(let [r (rover 7 15 :n)]
   (expect
    "rover knows (x,y) and the direction (N,S,E,W) it is facing"
    r
-   {:x 0 :y 0 :direction :n}))
+   {:x 7 :y 15 :direction :n}))
 
 (let [r (rover 0 0 :n)]
   (expect "The rover receives a character array of commands"
@@ -40,9 +40,9 @@
   (expect "Moves north when pointing north and asked to move forward"
           (r:command [:f]) {:x 0 :y 1 :direction :n}))
 
-(let [r (rover 0 0 :s)]
+(let [r (rover 3 2 :s)]
   (expect "Moves south when pointing south and asked to move forward"
-          (r:command [:f]) {:x 0 :y -1 :direction :s}))
+          (r:command [:f]) {:x 3 :y 1 :direction :s}))
 
 (let [r (rover 0 0 :w)]
   (expect "Moves west when pointing west and asked to move forward"