dan
/
rover
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

move forward east and west

main
Daniel Barlow 2023-01-22 17:21:34 +00:00
parent 89945064d5
commit 6546a16ec6
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rover.fnl
View File

@ -14,7 +14,9 @@
(fn command [rover commands] (fn command [rover commands]
(match rover.direction (match rover.direction
:n {:x 0 :y (+ rover.y 1) :direction :n} :n {:x 0 :y (+ rover.y 1) :direction :n}
:s {:x 0 :y (- rover.y 1) :direction :s})) :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}))
(fn rover [x y direction] (fn rover [x y direction]
{: x {: x
@ -35,16 +37,19 @@
{})) {}))
(let [r (rover 0 0 :n)] (let [r (rover 0 0 :n)]
(expect (expect "Moves north when pointing north and asked to move forward"
"Moves north when pointing north and asked to move forward" (r:command [:f]) {:x 0 :y 1 :direction :n}))
(r:command [:f])
{:x 0 :y 1 :direction :n}))
(let [r (rover 0 0 :s)] (let [r (rover 0 0 :s)]
(expect (expect "Moves south when pointing south and asked to move forward"
"Moves south when pointing south and asked to move forward" (r:command [:f]) {:x 0 :y -1 :direction :s}))
(r:command [:f])
{:x 0 :y -1 :direction :s}))
(let [r (rover 0 0 :w)]
(expect "Moves west when pointing west and asked to move forward"
(r:command [:f]) {:x -1 :y 0 :direction :w}))
(let [r (rover 0 0 :e)]
(expect "Moves east when pointing east and asked to move forward"
(r:command [:f]) {:x 1 :y 0 :direction :e}))
(print "OK") (print "OK")