2008-03-09から1日間の記事一覧
よくプログラムの作業中、ユーザーを待たせる間に、回転するカーソルが表示されることがありますよね?それを作ってみました。 (define (progress) (define chars '(#\| #\/ #\- #\\)) (define (loop l) (if (null? l) (loop chars) (begin (ticker (car l))…
よくプログラムの作業中、ユーザーを待たせる間に、回転するカーソルが表示されることがありますよね?それを作ってみました。 (define (progress) (define chars '(#\| #\/ #\- #\\)) (define (loop l) (if (null? l) (loop chars) (begin (ticker (car l))…