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

remove unneeded destructuring

main
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
(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
(if (. {:w true :e true} direction)
(/ distance (math.cos (/ (* math.pi y) 180)))
@ -21,8 +21,8 @@
:w {:x (wrap-longitude (- x distance))}
:e {:x (wrap-longitude (+ x distance))})))
(fn drive [{: x : y : direction : stopped &as r} distance]
(if stopped
(fn drive [r distance]
(if r.stopped
r
(let [next-move (merge r (try-to-drive r distance))]
(if (at-obstacle? next-move)