Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn rle
- "run length encode a sequence"
- [xs]
- (->>
- xs
- (partition-by identity)
- (map #({:run (count %)
- :item (first %)}))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement