Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (ns nuconta-hacks (:require [schema.core :as s]))
- (s/defschema CoolShit {:cool s/Any})
- (s/defn coolify
- [thing :- s/Any]
- {:cool thing})
- (defn hack
- [hackable]
- (:idea hackable))
- (defn a-ton
- [thing]
- (repeat 50 thing))
- (s/defn lots-of-cool-things :- [CoolShit]
- [idea]
- (->> idea
- hack
- a-ton
- (map coolify)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement