Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ((fn [start & args]
- (loop [last-val start
- coll [start]
- args args]
- (if args
- (recur ((first args) last-val) (conj coll last-val) (rest args))
- coll))) 0 inc dec inc inc)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement