Skip to content

Instantly share code, notes, and snippets.

@rigibun

rigibun/stap.clj

Last active August 29, 2015 14:02
Show Gist options
  • Save rigibun/c7da8ad71738debce24d to your computer and use it in GitHub Desktop.
Save rigibun/c7da8ad71738debce24d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
stap.clj
(defn getchar []
(rand-nth
(sequence "ABCDEFGHIJKLMNOPQRSTUVWXYZ")))
(defn gen-stap [accum func]
(if (= (func (str (getchar) (getchar) (getchar) (getchar))) "STAP")
accum
(recur (+ accum 1) func)))
(println (gen-stap 1
(fn [s]
(println s "細胞") s))
"回目で陽性確認")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment