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

extract common call to merge

Browse Source
This commit is contained in:
Daniel Barlow 2023-01-22 18:11:43 +00:00
parent 94325e53a0
commit db552b8c11
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rover.fnl
View File

@ -31,17 +31,17 @@
} }
(. direction))) (. direction)))
(fn command [rover string] (fn command [rover string]
(merge rover
(match string (match string
:f (match rover.direction :f (match rover.direction
:n (merge rover {:y (+ rover.y 1)}) :n {:y (+ rover.y 1)}
:s (merge rover {:y (- rover.y 1)}) :s {:y (- rover.y 1)}
:w (merge rover {:x (- rover.x 1)}) :w {:x (- rover.x 1)}
:e (merge rover {:x (+ rover.x 1)})) :e {:x (+ rover.x 1)})
:r (merge rover {:direction (turn-right rover.direction)}) :r {:direction (turn-right rover.direction)}
:l (merge rover {:direction (turn-left rover.direction)}) :l {:direction (turn-left rover.direction)}
_ (assert false (. "unrecognised command " string)))) _ (assert false (. "unrecognised command " string)))))
(fn execute [rover [cmd & cmds]] (fn execute [rover [cmd & cmds]]
(let [r1 (command rover cmd)] (let [r1 (command rover cmd)]