2017-10-02から1日間の記事一覧
「10.8.4 変数・記号・論理式」の続き 時間がかかるのはいつものパターンで書き換え (define (IsNumberType x) (let loop ((k 1)) (let ((e (elm x k))) (cond ((not (= e cf)) (and (or (= e c0) (IsVarType e 1)) (= (elm x (+ k 1)) 0))) (else (loop (+ …
「10.8.4 変数・記号・論理式」の続き 時間がかかるのはいつものパターンで書き換え (define (IsNumberType x) (let loop ((k 1)) (let ((e (elm x k))) (cond ((not (= e cf)) (and (or (= e c0) (IsVarType e 1)) (= (elm x (+ k 1)) 0))) (else (loop (+ …