hikoz · July 14, 2015 06:16
diff --git a/sincoku.clj b/sincoku.clj
 (let [ws '(進捗 どう です か)
      wc (count ws)
      l (loop [r [] i 0]
          (let [n (rand-int wc)
                s (nth ws n)
                r (conj r s)]
            (if (= n i (dec wc))
              r
              (recur r (if (= n i) (inc i) 0)))))
      s (apply str l)]
  (printf "%s???\n%s文字で煽られました。\n" s (count s)))
	(let [ws '(進捗どうですか)
	wc (count ws)
	l (loop [r [] i 0]
	(let [n (rand-int wc)
	s (nth ws n)
	r (conj r s)]
	(if (= n i (dec wc))
	r
	(recur r (if (= n i) (inc i) 0)))))
	s (apply str l)]
	(printf "%s???\n%s文字で煽られました。\n" s (count s)))