jooyunghan/ant.clj

Created March 1, 2016 08:36

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/jooyunghan/88a129b15b48f914b31f.js"></script>
Save jooyunghan/88a129b15b48f914b31f to your computer and use it in GitHub Desktop.

Download ZIP

Look-and-say sequence in Clojure using Lazy sequence

Raw

ant.clj

	(defn nn [s] (->> s (partition-by identity) (mapcat (juxt count first))))
	(defn ant [] (iterate nn [1]))
	(-> (ant) (nth 1000000) (nth 1000000))

Author

jooyunghan commented Oct 18, 2016 •

edited

Loading

(iterate #(mapcat (juxt count first) (partition-by identity %)) [1])

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment