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)))