store.jp.square-enix.com これ↑。 生実況もあるよ。みんなと観よう。 live.nicovideo.jp

| results zunDoko | makeZunDokoBlock := [ | array collection | array := #('zun' 'doko'). collection := OrderedCollection new. 5 timesRepeat: [collection add: (array at: (Random new next * 2) asInteger + 1)]. collection]. kiyoshiCheckBlock …

説明不要。 (use srfi-27) (define nil '()) (define zun 'ズン) (define doko 'ドコ) (define (make-zun-doko) (if (= (random-integer 2) 0) zun doko)) (define (init-zun-doko) (define (iter n lst) (if (= n 0) lst (iter (- n 1) (append lst (cons (…