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

extract function "command"

Browse Source
This commit is contained in:
Daniel Barlow 2023-01-22 17:54:03 +00:00
parent 3375906dee
commit f8a58c4a68
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rover.fnl
View File

@ -1,6 +1,7 @@
(local { : view } (require :fennel)) (local { : view } (require :fennel))
(local { : merge } (require :lume)) (local { : merge } (require :lume))
;; who needs a test framework when you have lisp macros?
(macro expect [text actual expected] (macro expect [text actual expected]
`(let [actual# ,actual] `(let [actual# ,actual]
(or (match actual# (or (match actual#
@ -12,13 +13,15 @@
:actual actual# :actual actual#
}))))) })))))
(fn execute [rover [cmd & cmds]] (fn command [rover command]
(let [r1
(match rover.direction (match rover.direction
:n (merge rover {:y (+ rover.y 1)}) :n (merge rover {:y (+ rover.y 1)})
:s (merge rover {:y (- rover.y 1)}) :s (merge rover {:y (- rover.y 1)})
:w (merge rover {:x (- rover.x 1)}) :w (merge rover {:x (- rover.x 1)})
:e (merge rover {:x (+ rover.x 1)}))] :e (merge rover {:x (+ rover.x 1)})))
(fn execute [rover [cmd & cmds]]
(let [r1 (command rover)]
(if (next cmds) (if (next cmds)
(r1:execute cmds) (r1:execute cmds)
r1))) r1)))