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

Compare commits

base: dan:689fb894ada8f3f05dd5299e27bd6096ae6fe7ba
Branches Tags
dan:main
...
compare: dan:fb3be522a0c46d5251a36d654e05243b9f0fc2bb
Branches Tags
dan:main

4 Commits
689fb894ad ... fb3be522a0

Author SHA1 Message Date
Daniel Barlow
fb3be522a0 remove more destructuring 2023-01-23 22:42:56 +00:00
Daniel Barlow
65e298c82c extract lateral? function 2023-01-23 22:39:06 +00:00
Daniel Barlow
1dd77f9657 remove unneeded destructuring 2023-01-23 22:37:56 +00:00
Daniel Barlow
2dfc7ac5e4 move obstacle checking down from command to drive 2023-01-23 22:34:14 +00:00
1 changed files with 31 additions and 26 deletions
Show Stats Expand all files Collapse all files

33
rover.fnl
View File

@ -6,18 +6,31 @@
(< 180 x) (wrap-longitude (- x 360)) (< 180 x) (wrap-longitude (- x 360))
x)) x))
(fn drive [{: x : y : direction : stopped &as r} distance] (fn at-obstacle? [{: x : y : obstacles}]
(if stopped (any obstacles
r (fn [[ox oy]] (and (= ox x) (= oy y)))))
(fn lateral? [direction]
(. {:w true :e true} direction))
(fn try-to-drive [{: x : y : direction} distance]
(let [distance (let [distance
(if (. {:w true :e true} direction) (if (lateral? direction)
(/ distance (math.cos (/ (* math.pi y) 180))) (/ distance (math.cos (/ (* math.pi y) 180)))
distance)] distance)]
(match direction (match direction
:n {:y (+ y distance)} :n {:y (+ y distance)}
:s {:y (- y distance)} :s {:y (- y distance)}
: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 [r distance]
(if r.stopped
r
(let [next-move (merge r (try-to-drive r distance))]
(if (at-obstacle? next-move)
(merge r {:stopped [next-move.x next-move.y]})
next-move))))
(fn turn-left [{: x : y : direction}] (fn turn-left [{: x : y : direction}]
(if (= y 90) (if (= y 90)
@ -43,22 +56,14 @@
} }
(. direction))})) (. direction))}))
(fn at-obstacle? [{: x : y : obstacles}]
(any obstacles
(fn [[ox oy]] (and (= ox x) (= oy y)))))
(fn command [rover string] (fn command [rover string]
(let [next-move
(merge rover (merge rover
(match string (match string
:f (drive rover 1) :f (drive rover 1)
:b (drive rover -1) :b (drive rover -1)
:r (turn-right rover) :r (turn-right rover)
:l (turn-left rover) :l (turn-left rover)
_ (assert false (. "unrecognised command " string))))] _ (assert false (. "unrecognised command " string)))))
(if (at-obstacle? next-move)
(merge rover {:stopped [next-move.x next-move.y]})
next-move)))
(fn fudge-for-pole [{: y &as r}] (fn fudge-for-pole [{: y &as r}]
(if (= y 90) (if (= y 90)