Advertisement
Guest User

Untitled

a guest
Jan 23rd, 2017
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.34 KB | None | 0 0
  1. (letfn [(part [n]
  2. [(list `quote (symbol (str "step-" n))),
  3. `(count (doto ~'coll (.add ~n)))])]
  4. `(let [~'coll (java.util.LinkedList.)]
  5. ~(apply array-map (mapcat part (range 10)))))
  6.  
  7. ;; eval the result of the previous form:
  8. user> (eval (letfn [(part [n]
  9. [(list `quote (symbol (str "step-" n))),
  10. `(count (doto ~'coll (.add ~n)))])]
  11. `(let [~'coll (java.util.LinkedList.)]
  12. ~(apply array-map (mapcat part (range 10))))))
  13. {step-5 6, step-0 1, step-2 3, step-8 9, step-3 4, step-7 8, step-1 2, step-6 7, step-4 5, step-9 10}
  14.  
  15. ;; copy-paste the result of the previous form into the repl instead:
  16. user> (let [coll (java.util.LinkedList.)]
  17. {(quote step-0) (count (doto coll (.add 0))),
  18. (quote step-1) (count (doto coll (.add 1))),
  19. (quote step-2) (count (doto coll (.add 2))),
  20. (quote step-3) (count (doto coll (.add 3))),
  21. (quote step-4) (count (doto coll (.add 4))),
  22. (quote step-5) (count (doto coll (.add 5))),
  23. (quote step-6) (count (doto coll (.add 6))),
  24. (quote step-7) (count (doto coll (.add 7))),
  25. (quote step-8) (count (doto coll (.add 8))),
  26. (quote step-9) (count (doto coll (.add 9)))})
  27. {step-5 9, step-0 10, step-2 2, step-8 1, step-3 4, step-7 3, step-1 5, step-6 8, step-4 7, step-9 6}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement