Skip to content

Instantly share code, notes, and snippets.

@tmountain

tmountain/gist:289897

Created January 29, 2010 17:05
Show Gist options
  • Save tmountain/289897 to your computer and use it in GitHub Desktop.
Save tmountain/289897 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
(defn- get-chars
"gets the next char(s) in the sequence"
[s offset]
(if (>= offset (count s))
(let [div-val (dec (int (/ offset (count s))))
mod-val (mod offset (count s))]
(apply str (get-chars s div-val) (get-chars s mod-val)))
(subs s offset (inc offset))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment