ddsk.rkt

#lang racket
(require data/queue)

(define ds (vector "ドド" "スコ"))
(define history (make-queue))

(define (limit-history)
  (when (< 12 (queue-length history))
    (dequeue! history)))

(define (ddsk-rec)
  (if (equal? (queue->list history)
              (list 0 1 1 1 0 1 1 1 0 1 1 1))
    (displayln "ラブ注入♡")
    (let ([i (random 2)])
      (display (vector-ref ds i))
      (enqueue! history i)
      (limit-history)
      (ddsk-rec))))

(ddsk-rec)