なんのアウトプットもできてない自分に ものすごく、腹立たしくなって、 アウトプットができてる周りの人たちに 道理に合わない嫉妬をしてしまう日がある。 昨日はそんな日。 ビール飲んで寝た。
帰宅後 英語リーディング : 3.0 計 3.0 (-2.0) God Save the Child (Spenser)作者: Robert B. Parker出版社/メーカー: Dell発売日: 1987/05/01メディア: マスマーケット購入: 2人 クリック: 2回この商品を含むブログ (3件) を見る 読み終わったー。 話の内容…
朝 sicp : 2.0 計 2.0 (-3.0) 昨日は急遽、仕事終わりに焼き肉に。 帰宅は日をまたいでましたので帰宅後の勉強はなし。 今週は、ほぼ予定通りにこなすことができた。 英絵辞典を1日1回、といいつつやはり分量が結構あるので 2日に1回と言う感じなんだけ…
朝 sicp : 1.0 英絵辞典 : 0.5 帰宅後 英語リーディング : 1.0 英絵辞典 : 0.5 sicp : 0.5 計 3.5 (-1.5) 昨日は予定通りこなせた。 問題とちゃんと格闘しながらSICPをやっていると、 問題の歯ごたえが強いので、ふと読み返してみると あまりページ数が進ん…
apply-genericは以下のように実装されている。 ;; sicp 2.77 (define (apply-generic op . args) (let ((type-tags (map type-tag args))) (let ((proc (get op type-tags))) (if proc (apply proc (map contents args)) (error "No method for these types …
朝 sicp : 1.0 英絵辞典 : 0.5 英語リーディング : 0.5 帰宅後 英絵辞典 : 0.5 計 2.5 (-5.0) 昨日は3時間はいける!と思ったのだけど、 返ってきたのが10時過ぎ。 ご飯食べたら、もう時間が残ってなかった。
;; メッセージパシング (define (make-from-real-imag x y) (define (dispatch op) (cond ((eq? op 'real-part) x) ((eq? op 'imag-part) y) ((eq? op 'magnitude) (sqrt (+ (square x) (square y)))) ((eq? op 'angle) (atan y x)) (else "Unknown op -- MA…
朝 sicp : 1.5 英絵辞典 : 0.5 英語リーディング : 0.5 帰宅後 英絵辞典 : 0.5 英語リーディング : 0.5 iPhoneSDKをちょっと触る : 0.5 計 4.0(-1.0)
せっかく、MacBookとiPodTouchを持ってるので、アプリ開発したい。 というか、iPhone/iPodTouchアプリ開発のためにMacBook買ったようなもんだし。 とりあえず、ググってみてHelloWorldを書いてみた。 感想。 Objective-Cよくわからない。 Xcodeわからない。…
朝 英絵辞典 : 0.5 帰宅後 英語リーディング : 1.0 計 1.5 (-3.5) 昨日は英語の勉強しかせず。
;; Huffman符号木 (define (make-leaf symbol weight) (list 'leaf symbol weight)) (define (leaf? object) (eq? (car object) 'leaf)) (define (symbol-leaf x) (cadr x)) (define (weight-leaf x) (caddr x)) (define (make-code-tree left right) (list …
朝 英語 単語覚え : 1.0 帰宅後 英語 単語覚え : 1.0 Oxford Picture Dictionary: Monolingual作者: Jayme Adelson-Goldstein,Norma Shapiro出版社/メーカー: Oxford Univ Pr発売日: 2008/04/28メディア: ペーパーバック購入: 9人 クリック: 37回この商品を…
朝 sicp : 2.0 english reading : 0.5 計 2.5 (-2.5) 昨日は飲み会だったため、夜は勉強せず。
朝 sicp : 1.5 english reading : 0.5 帰宅後 sicp : 1.0 english reading : 0.5 英語のリーディングとして、Matilda読み進めようとしていたら、 注文していた本が届いた。God Save the Child (Spenser)作者: Robert B. Parker出版社/メーカー: Dell発売日: …
;; 順序づけられたリストとしての集合 (define (element-of-set? x set) (cond ((null? set) #f) ((= x (car set)) #t) ((< x (car set)) #f) (else (element-of-set x (cdr set))))) (define (intersection-set set1 set2) (if (or (null? set1) (null? set…
まずは、本文のコード ;; 順序づけられないリストとしての集合 (define (element-of-set? x set) (cond ((null? set) #f) ((equal? x (car set)) #t) (else (element-of-set? x (cdr set))))) (define (adjoin-set x set) (if (element-of-set? x set) set (…
2.58はまだ手を付けてない。 自分には時間がかかりそうなので、夜にじっくりとやる。 本文のコードから ;; 記号微分 (define (variable? e) (symbol? e)) (define (same-variable? v1 v2) (and (variable? v1) (variable? v2) (eq? v1 v2))) (define (sum? e…
今週は、スクリプト言語コーディングはちょっとおいといて、 SICPと英語の学習に的をしぼろう。
時間切れでとばしていた、2.1.4 拡張問題:区間算術演算の問題を解く。 ;; sicp ex 2.7 (define (make-interval a b) (cons a b)) ;;選択子 (define (upper-bound interval) (max (car interval) (cdr interval))) (define (lower-bound interval) (min (car…
朝 sicp : 3.0 英語 reading (Matilda) : 0.5 帰宅後 sicp : 2.0 計 5.5 (+0.5) 昨日はAM5:00に目が覚めて、珍しく二度寝せずにそのまま勉強。 この5時間の記録を始めてから、初めて学習時間が目標である5時間を突破した。 英語の勉強を開始。 考えるに、英…
;; sicp ex 2.53 (define (memq item x) (cond ((null? x) #f) ((eq? item (car x)) x) (else (memq item (cdr x))))) ;; gosh> (list 'a 'b 'c) ;; (a b c) ;; ;; gosh> (list (list 'george)) ;; ((george)) ;; ;; gosh> (cdr '((x1 x2) (y1 y2))) ;; ((y1…
;; sicp ex 2.29 二進モービル (define (make-mobil left right) (list left right)) ;; structure -> おもりかモービル (define (make-branch length structure) (list length structure)) ;; a) 選択子の実装 (define (left-branch mobil) (car mobil)) (d…
朝 sicp : 0.5 帰宅後 sicp : 2.5 計 3.0 (-2.0) 週末にその週の予定分を先に読んで予習しておく。 そうすると、毎日十分な問題を解く時間が取れる。 復習も重要。けど、スムーズに進めるために予習も重要。
英語の勉強はせねばとつねづね思っている。 英語にアレルギーがないだけで、取得できる情報の量が 圧倒的に広がる。 英語を操ることができれば、文字通り世界が広がる。 というか、まともに英語もできないようじゃヤバい気がしてきている。 実質的に英語はグ…
;; sicp ex 2.33 (define (my-accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (my-accumulate op initial (cdr sequence))))) (define (my-map p sequence) (my-accumulate (lambda (x y) (cons (p x) y)) '() sequence)…
;; sicp ex 2.17 ;; 最後の要素だけからなるリストを返す (define (last-pair l) (if (pair? (cdr l)) (last-pair (cdr l)) l)) ;; sicp ex 2.18 ;; 反復的 (define (reverse l) (define (iter l result) (if (null? l) result (iter (cdr l) (cons (car l) …
朝 sicp : 3.0 計 3.0 (-2.0) 夢中になって、ぶっ続けでsicpを読んだ。 土曜日にこれだけ勉強したのは珍しい。
朝 sicp : 1.5 帰宅後 sicp : 1.0 コンパイラ入門 : 1.0 計 3.5 (-1.5) コンパイラ入門読んでる途中で寝落ち。 タモリ倶楽部見逃したorz... Perfumeが orz...
;; sicp ex 2.6 (define zero (lambda (f) (lambda (x) x))) (define (add-1 n) (lambda (f) (lambda (x) (f ((n f) x))))) (define one (lambda (f) (lambda (x) (f x)))) (define two (lambda (f) (lambda (x) (f (f x))))) ;; add ;; チャーチ数は、f を …
;; sicp ex 2.1 ;; make-rat の正規化 (define (make-rat n d) (define (gcd x y) (if (= y 0) x (gcd y (remainder x y)))) (define (abs x) (if (<= x 0) (- x) x)) (let ((g (gcd (abs n) (abs d)))) (if (< (* n d) 0) (cons (- (abs (/ n g))) (abs (/ …