Advertisement
Guest User

Untitled

a guest
Jan 14th, 2020
116
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
  4.   [thing :- s/Any]
  5.   {:cool thing})
  6. (defn hack
  7.   [hackable]
  8.   (:idea hackable))
  9. (defn a-ton
  10.   [thing]
  11.   (repeat 50 thing))
  12. (s/defn lots-of-cool-things :- [CoolShit]
  13.   [idea]
  14.   (->> idea
  15.        hack
  16.        a-ton
  17.        (map coolify)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement