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

remove unneeded destructuring

Browse Source
This commit is contained in:
Daniel Barlow 2023-01-23 22:37:56 +00:00
parent 2dfc7ac5e4
commit 1dd77f9657
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rover.fnl
View File

@ -10,7 +10,7 @@
(any obstacles (any obstacles
(fn [[ox oy]] (and (= ox x) (= oy y))))) (fn [[ox oy]] (and (= ox x) (= oy y)))))
(fn try-to-drive [{: x : y : direction : stopped &as r} distance] (fn try-to-drive [{: x : y : direction : stopped} distance]
(let [distance (let [distance
(if (. {:w true :e true} direction) (if (. {:w true :e true} direction)
(/ distance (math.cos (/ (* math.pi y) 180))) (/ distance (math.cos (/ (* math.pi y) 180)))
@ -21,8 +21,8 @@
:w {:x (wrap-longitude (- x distance))} :w {:x (wrap-longitude (- x distance))}
:e {:x (wrap-longitude (+ x distance))}))) :e {:x (wrap-longitude (+ x distance))})))
(fn drive [{: x : y : direction : stopped &as r} distance] (fn drive [r distance]
(if stopped (if r.stopped
r r
(let [next-move (merge r (try-to-drive r distance))] (let [next-move (merge r (try-to-drive r distance))]
(if (at-obstacle? next-move) (if (at-obstacle? next-move)