SHARE
TWEET

Untitled

a guest Jan 17th, 2020 89 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (ns nuconta-hacks
  2.   (:require [schema.core :as s]))
  3.  
  4. (s/defschema CoolShit
  5.   {:cool s/Any})
  6.  
  7. (s/defn coolify
  8.   [thing :- s/Any]
  9.   {:cool thing})
  10.  
  11. (defn hack
  12.   [hackable]
  13.   (:idea hackable))
  14.  
  15. (defn a-ton
  16.   [thing]
  17.   (repeat 50 thing))
  18.  
  19. (s/defn lots-of-cool-things :- [CoolShit]
  20.   [idea]
  21.   (->> idea
  22.        hack
  23.        a-ton
  24.        (map coolify)))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top