Skip to content

Instantly share code, notes, and snippets.

@luxbock

luxbock/gambit.clj

Created January 29, 2014 15:48
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save luxbock/8690806 to your computer and use it in GitHub Desktop.
Save luxbock/8690806 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gambit.clj
(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