来月に備えて念願のコロコロ付きバッグを入手した ! そうか、キャリーバッグと呼ぶのか。 カバンのセレクション｜本店 意外と重くて 3.3kg とかある。 空の状態で持ち帰りしたけど、そんなにあるとは思わなかったな。 普段持ってるバッグのほうがはるかに重…

正接 = tangent だから、sin/cos してやればいいだけですね。 (load "./chapter3.scm") (load "./ex360.scm") (load "./ex361.scm") (define (div-series s1 s2) (if (= 0 (stream-car s2)) (raise "constant term is 0") (mul-series s1 (invert-unit-serie…

定義と恒等式に従って書くだけ。 (load "./chapter3.scm") (load "./ex360.scm") (define (invert-unit-series s) (cons-stream 1 (mul-series (scale-stream (stream-cdr s) -1) (invert-unit-series s))))

べき級数のかけ算、ということだから、和の積。 コンボリュージョンみたいなことをしてるんだろうか ? たぶんこれでいいと思うんだけど。 後半の add-stream が、べきの係数項を乗じてずらした式の和を表現してるのでしょう。 (define (mul-series s1 s2) (c…

cosine と sine は思い付かなかった。頭いーな。 http://www.parsprototo.org/StoppingTime/?p=7 ;;; a (define (integrate-series a) (define (merge-series a s) (cons-stream (/ (stream-car a) (stream-car s)) (merge-series (stream-cdr a) (stream-cd…

割り算

delay を macro で定義しようとしたらなぜか fibs が unknown symbol になってしまった。 悩みすぎてもしょうがないので add-stream を改変して済ませてみる。http://gist.github.com/190724 http://gist.github.com/190725表示用にこんな手続きを使いました…

万能調味料マヨネーズ トマトに、キャベツに、白米に、パンに、大活躍 未成年が佳境に 物語も終盤、アルカージィ・ペトローヴィチの最後の行為が語られそうになった 数学ガールを再読 内容覚えてなかったけど前よりすんなり理解できる ! 学ぶとはどういうこ…