gistfile1.scm

;; -*- coding:utf-8 -*-
(use util.match)
(use data.random)

(set! (random-data-seed) (sys-time))
(define *parts* (map (^s (cons s (string-length s))) '("進捗" "どう" "です" "か")))
(define index-gen (integers$ (length *parts*)))
(define *stream* (generator->lseq (^[] (~ *parts* (index-gen)))))

(let loop ([s *stream*] [cnt 0])
  (match s
    [() (print "???") (print cnt "文字で煽られました。")]
    [(("進捗" . _) ("どう" . _) ("です" . _) ("か" . _) x . _) (loop (take s 4) cnt)]
    [((x . a) . r) (display x) (loop r (+ cnt a))]))

ちょっと直した。終端文字列にマッチ成功の時にストリームをぶった切れば、特別扱いする必要が減る。

一定のコレクションからランダムに選んでくるジェネレータがあるのも便利だなと思ったので足した。HEADを使うと*stream*はこう書ける。

(define *stream*
  (generator->lseq
   (samples$ (map (^s (cons s (string-length s))) '("進捗" "どう" "です" "か")))))