LISP Scheme Part5

>>344
あ、そういうことか。
ポータブルに書くのは難しいけど、gaucheならこんな感じでどう?
sys-selectはタイミング調整ね。

(define (come!)
　(for-each (lambda (x) (display x) (display "\r") (flush) (sys-select #f #f #f 200000))
　'((ﾟ∀ﾟ_) (∀ﾟ　) (ﾟ　　) (　_　) (　　ﾟ) (　ﾟ∀) (_ﾟ∀ﾟ)))
(come!)