前回の続き。C問題にチャレンジ abc036.contest.atcoder.jp (define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr sequence ))))) (define nil '()) (define (toNil . x) nil) (define (…

SICPゼミで前々からSchemeで競プロの問題を解いてみようみたいな話があったので暇つぶしにちょっとやってみた。 今回はABC036のA問題とB問題 abc036.contest.atcoder.jp

練習問題1.17 対数時間で掛け算を定義せよ(再帰的に) (define (fast-prod b n) (define (even? a) (= (remainder a 2) 0)) (define (double a) (* 2 a)) (define (halve a) (/ a 2)) (cond ((= n 0) 0) ((even? n) (double (fast-prod b (halve n)))) (else …

読んでるpdf https://raw.githubusercontent.com/hiroshi-manabe/sicp-pdf/japanese/jsicp.pdf 1.2 手続きとそれが生成するプロセス プロセスと手続きという単語が出てくるが、プロセスは所謂OS的な意味でのプロセス。手続きは演算処理と認識した。プロセス…