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

move forward east and west

Browse Source
This commit is contained in:
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]
(match rover.direction
: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]
{: x
@ -35,16 +37,19 @@
{}))
(let [r (rover 0 0 :n)]
(expect
"Moves north when pointing north and asked to move forward"
(r:command [:f])
{:x 0 :y 1 :direction :n}))
(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)]
(expect
"Moves south when pointing south and asked to move forward"
(r:command [:f])
{:x 0 :y -1 :direction :s}))
(expect "Moves south when pointing south and asked to move forward"
(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")