Skip to content

Instantly share code, notes, and snippets.

@luxbock luxbock/gambit.clj
Created Jan 29, 2014

Embed
What would you like to do?
(defn create-nfg-strategy-list
[strategies]
(->> strategies
(map (fn [strat]
(add-braces (str/join " " (doall (map add-doublequotes strat))))
;; (->> strat
;; (map add-doublequotes)
;; (str/join " ")
;; add-braces)
))
doall
add-linebreaks
add-braces))
nasher.gambit> (create-nfg-strategy-list
[[1 2 3] [1 2 3 4 5 6]])
"{ \nclojure.lang.LazySeq@ca39a76e\n }"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.