Advertisement
Guest User

Untitled

a guest
Jan 14th, 2020
148
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (ns nuconta-hacks (:require [schema.core :as s]))
  2. (s/defschema CoolShit {:cool s/Any})
  3. (s/defn coolify [thing :- s/Any]
  4.   {:cool thing})
  5. (defn hack [hackable]
  6.   (:idea hackable))
  7. (defn a-ton [thing]
  8.   (repeat 50 thing))
  9. (s/defn lots-of-cool-things :- [CoolShit] [idea]
  10.   (->> idea
  11.        hack
  12.        a-ton
  13.        (map coolify)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement