VB_PGに落ち込んだのでブログタイトルを変更しました。 何でJAVAをやりたいというと気色ばんで否定しようとしますか? ++ modeverv::hatena $title="ニート=>vb_PGは生き残れるか" -- modeverv::hatena $title="ニートはPGになれるのか"

ヘッドホン推奨 ハットぽいのがperfumeでしょ?

;;; q2.53 (list 'a 'b 'c 'd) (list (list 'george)) (car '((x1 x2) (y1 y2))) (cdr '((x1 x2) (y1 y2))) (cadr '((x1 x2) (y1 y2))) (pair? (car '(a short list))) (memq 'red '((red shoes) (blue socks))) (memq 'red '(red shoes blue socks)) ;;; q2…

;;; q2.41 ;;3つの組み合わせを作ります (define (make-trio n) (flatmap (lambda (i) (flatmap (lambda (j) (map (lambda (k) (list k j i)) (enumerate-interval 1 (- j 1)))) (enumerate-interval 1 (- i 1)))) (enumerate-interval 1 n)) ) ;(caddr (lis…

ねむい ;;何だか自信無くなって来ました。。。。 ;;; q2.33 (define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr sequence)))) ) ;;(accumulate + 0 (list 1 2 3 4 5)) (define (map p …

苦労した (define (reverse ls) (reverse-itr ls '()) ) (define (reverse-itr ls ans) (if (null? ls) ans (reverse-itr (cdr ls) (cons (car ls) ans)) ) ) (define (deep-reverse ls) (deep-reverse-itr ls '()) ) (define (deep-reverse-itr ls ans) (if…

;;; q2.21 (define (square-list items) (if (null? items) '() (cons (* (car items) (car items)) (square-list (cdr items))) ) ) (define (square-list items) (map (lambda (x) (* x x) ) items) ) (square-list (list 1 2 3)) (define (square x) (* x…

ちょっと混乱するわ ;;; q2.4 (define (cons x y) (lambda (m) (m x y))) ;手続きを引数 (define (car z) (z (lambda (p q) p))) ;手続きzにlambda手続きを渡す (define (cdr z) (z (lambda (p q) q))) (define a (cons 1 2)) ;;=>lam (a) (a 1 2) (car a) ;…

;; q2.1 ;;正負を正規化するmake-ratの改良版 (define (make-rat n d) (cond ;; (((and (> n 0) (> d 0))(cons n d));両者+ならそのまま ((and (< n 0) (< d 0)) (cons (* -1 n) (* -1 d)));両者-なら両者-で ((and (> n 0) (< d 0)) (cons (* -1 n) (* -1 d…

ちょっと楽しい ;;; 1.3.4 値として返される手続き (define (average a b) (/ (+ a b) 2) ) (define (square a) (* a a) ) (define (average-dump f) (lambda (x) (average x (f x)))) ((average-dump square) 10) ;;; q1.41 (define (double f) (lambda (x)…

問題文を読めばよい ;;;q1.16 冪乗 ;;; $Id$ ;;;線形 (define (beki n c) (if (= c 0) 1 (* n (beki n (- c 1))) ) ) ;;(even? 2) ;;even?はあるらしい。 ;;(remainder hoge hoge)を使用せよとSICPにはあるが。 ;;;even?で省力するタイプ (define (square n)…

;;;q1.23 ;;;prime-next (define (prime-next n) (if (= n 2) 3 (+ n 2) ) ) ;;;+１していた物をprime-nextに置換えしたprime?内蔵 (define (prime?-clever n) (define (prime?-itr n c) (cond ((= (remainder n c) 0) #f) ((>= c (/ n c)) #t) (else (prime…

最初はリストをhogehogeして最終的にリスト内をクロールして足していけばいいじゃん! とか思ったけど入れ子リストがうまく扱えませんでした。。。。 ;;;1.12 (define (fact n) (if (= n 0) 1 (* n (fact (- n 1))) ) ) (define (combination n k) (/ (fact n…

昨日は肩こりがひどくて頭痛がやばかったのでビタミン剤を買ってきて飲んだのです マルチ+ミネラルとビタミンEと喫煙者なのでビタミンC 寝て起きたら肩こり軽減でびっくりした。欠乏してたのね。 肩こりならビタミンを摂取しませう。ビタミンEがオススメ。 …

;;mzscheme (require (lib "trace.ss")) (define save '()) (define (fact2 x) (if (= x 1) (call/cc (lambda (cc) (set! save cc) 1 ) ) (* x (fact2 (- x 1))) ) ) (trace fact2) ;begeinはプロンプト見にくいから (begin (newline) (fact2 10) ) (begin (…