2015-11-05から1日間の記事一覧
(define last-data10b '()) (define count-in 0) (define count-out 0) (define (line-scaler data10b last-flag) ;; (if (= count-in count-out) (assert (null last-data10b))) (print `(,count-in ,count-out)) (let ((new-value12b (if (= count-in coun…