問題 2.13 (define (make-center-percent c p) (make-center-width c (* c p)))前問で、make-center-percent 手続きは make-center-width 手続きを使って実装しました。 (define (make-center-width c w) (make-interval (- c w) (+ c w)))アリッサがした実…

問題 2.12 本文では、パーセント指定を 3.5±0.15 みたくしたいということなので、 そのまま実装すると (define (make-center-percent c p) (make-center-width c (* c p))) (define (percent i) (/ (width i) (center i)))こうなります。 ;; r1 = 6.8Ω ±10% …

問題 2.11 mul-interval 手続きに渡される r1, r2 の符号の組み合わせを考えます。 ;; r1 r2 ;; + + + + : o ;; + + + - : x ;; + + - + : o ;; + + - - : o ;; + - + + : x ;; + - + - : x ;; + - - + : x ;; + - - - : x ;; - + + + : o ;; - + + - : x ;;…

問題 2.10 make-interval 手続きの a, b は、それぞれ下限許容限界値 上限許容限界値です。 0 をまたぐ interval を div-interval 手続きに渡すと、内部の make-interval 手続きで a > b となる interval が発生してしまい、make-intercal 手続きの仕様に合…

問題 2.9 区間の幅 width 手続きの実装から。 (define (width x) (/ (- (upper-bound x) (lower-bound x)) 2.0))本文の説明をそのまま書くだけです。r1 と r2 は同じ抵抗を使います。 (define r1 (make-interval 6.12 7.48)) (define r2 (make-interval 4.47…

問題 2.6 ;; one (define one (lambda (f) (lambda (x) (f x)))) ;; two (define two (lambda (f) (lambda (x) (f (f x)))))確かこんな感じだったｗ 次いってみよー。問題 2.7 (define (make-interval a b) (cons a b))make-intarval はこのように実装されて…

問題 2.5 まず掛け算についておさらいしておこう。 ・偶数と偶数を掛け算したときに、結果は偶数になる？それとも奇数になる？ ・奇数と奇数を掛け算したときに、結果は偶数になる？それとも奇数になる？この２つについてまず見ていこう。 偶数 x 偶数 = 2m …

コーナー名が変わってしまったが気にしたら負けだ！問題 2.4cons car cdr は標準装備の手続きなので、それぞれ lcons lcar lcdr とします。 (define (lcons x y) (lambda (m) (m x y))) (define (lcar z) (z (lambda (p q) p)))トレースすればわかります。 x…

問題 2.3 (define (average x y) (/ (+ x y) 2)) (define (make-segment start-point end-point) (cons start-point end-point)) (define (start-segment seg) (car seg)) (define (end-segment seg) (cdr seg)) (define (make-point x y) (cons x y)) (defi…

問題 2.2 (define (average x y) (/ (+ x y) 2)) (define (make-segment start-point end-point) (cons start-point end-point)) (define (start-segment seg) (car seg)) (define (end-segment seg) (cdr seg)) (define (make-point x y) (cons x y)) (defi…

news.yahoo.co.jp ソシャゲは ゲームの体をした集金システム であり、子供にとって害でしかありません。 親であるあなたは、そんな事言われなくともよく理解しているはずです。 大人が暇つぶしでソシャゲをするのは別に良いでしょう。 自分で稼いだお金をど…

不動点の復習をしようと思って始めたのですが、第1章は全部は復習していませんが、最後の問題まで終わってしまったので、第2章をやりますか。暇だし。の前に、第 1 章の締めくくりとして本文に書いてあることは、とても大切なのでメモしておこう。 Lisp は他…

問題 1.46 (define (average x y) (/ (+ x y) 2)) (define tolerance 0.00001) (define (close-enough? v1 v2) (< (abs (- v1 v2)) tolerance)) (define (iterative-improve improve enough? first-guess) (define (iter guess) (let ((next (improve guess)…

news.yahoo.co.jp よし、じゃあ Scheme を勉強しよう。Scheme はとてもコンパクトな言語なので、すぐ覚えられるよ。R5RS という Scheme 言語の仕様書に設計思想が書かれているので紹介しよう。 プログラミング言語の設計は，機能の上に機能を積み重ねること…

暇すぎて復習が捗りすぎぃｗ問題 1.45 (define nil '()) (define (average x y) (/ (+ x y) 2)) (define (square x) (* x x)) (define (enumerate-interval low high) (if (> low high) nil (cons low (enumerate-interval (+ low 1) high)))) ;; (define to…

まとめて解答していく！問題 1.41 (define (inc n) (+ n 1)) (define (double f) (lambda (x) (f (f x))))問題省略、解説省略。 gosh> (((double (double double)) inc) 5) 21double で 2 回 これを double で 4 回。 これをさらに double なので 16 回。 5 …

問題1.40 newtons-methodの手続きと一緒に (newtons-method (cubic a b c) 1)の形の式で使い、三次式 x3 + ax2 + bx + c の零点を近似する手続き cubic を定義せよ。本文に、 変換 x → g(x) が微分可能な関数であれば、方程式 g(x) = 0の解は である。 とあ…

問題 1.8 立方根をとる Newton 法は y が x の立方根の近似値なら、よりよい近似は の値で与えられるという事実によっている。この式を使い平方根の手続きと似た立方根の手続きを実装せよ。 (数式面倒くさいけど頑張って書きました。褒めてｗ) (define (squa…

問題 1.7 平方根の計算で使った good-enough? テストは、非常に小さい数の平方根をとる時には効果的ではない。また、実際の計算機では、算術演算は殆んどの場合、限られた精度で実行される。それでわれわれのテストは非常に大きい数にも不適切である。小さい…

問題 1.39正接関数の連分数展開は1770年にドイツの数学者 J. H. Lambert が発表した。xをラジアンで表し、 (数式は「tan 連分数」などでググって調べてください。) Lambert の式に基づいて正接関数の近似値を計算する手続き (tan-cf x k) を定義せよ。k は問…

問題 1.38 1737年、スイスの数学者 Leonhard Eulerは De Fractionibus Continuis というメモを発表した。その中に e を自然対数の底として e - 2 の連分数展開がある. この分数ではNi はすべて1、Di は順に 1, 2, 1, 1, 4, 1, 1, 6, 1, 1, 8, ...。問題1.37 …

問題 1.37(a)nとdを一引数(項の添字i)で連分数の項のNiとDiを返す手続きとする。(cont-frac n d k)がk項有限連分数を計算するような手続きcont-fracを定義せよ. (define (cont-frac-rec n d k) (define (rec i) (if (= i k) (/ (n k) (d k)) (/ (n i) (+ (d …

問題 1.36問題1.22で示した基本のnewlineとdisplayを使い、 生成する近似値を順に印字するようfixed-pointを修正せよ。 (define (average x y) (/ (+ x y) 2)) (define tolerance 0.00001) (define (fixed-point f first-guess) (define (close-enough? v1 v…

SICP 問題 1.35(1)黄金比 φ が変換 x → 1 + 1/x の不動点であることを示せ。黄金比の定義直線を 2 つに分割することを考える。 一つを a、もう一つを b とする。 このとき、 a : b = b : (a + b) となる、 a と b の比率を黄金比と言う。a : b = b : (a + b)…

今回は、たくさん再帰呼び出しをしても大丈夫なように 合計を求めるプログラムを改良したいと思います。 1 から n までの合計を計算する手続きです。 (define (my-sum n) (if (<= n 0) 0 (+ n (my-sum (- n 1)))))このプログラムは n をとても大きな値にする…

最近の高校生は学校でプログラミングの授業があると聞きます。そこで、もうすぐ夏休みですし、おすすめの本を紹介いたします。 計算機プログラムの構造と解釈 第2版 作者:エイブルソン,ハロルド,サスマン,ジュリー,サスマン,ジェラルド・ジェイ 翔泳社 Amazo…

いままでの合計を求めるプログラムは、「1 から連続する数の合計」を求めるものだったけど、例えばテストの点数や、みんなの身長とか、靴のサイズなどの連続していない数や、同じ数が現れるかもしれない場合には向いていませんでした。今回は、 ・連続しない…

CO2ガー！CO2ガー！ 温暖化ガー！温暖化ガー！ と言うメディアにうなづいている、そこのあなた！ もう完全に洗脳されていますよ。 洗脳されて事実を事実として捉えられない状態になっています。 新興宗教だったら、もう「金のツボ」とか、 ウン十万する経典…

©2019 Bandai Namco Online Inc. ©2019 Bandai Namco Studios Inc. 「みかん」でプレイしています。ゲーム内で会っても石を投げないでくださいｗ 弱っちいほうのレイドですが、三冠取れたので記念に。

スペルキャスターは後衛職でDPS職なわけですよ。 で、主な仕事は、 とにかく敵を攻撃して殲滅する ですね。これがロール（役割）ですよ。 ですけども、IDとかPTとかでは ヘイト管理も大事になってきます。 敵にはヘイト値ってものがありまして、 ゲーム上は…