2008-05-22から1日間の記事一覧

金沢行き途中。富山。

金沢で四芸祭というのがあるのでいく。 電車が富山県内を抜ける前に、emobileでつないで急いでかく。 ちなみに富山といえば、true tearsとpersonaの舞台だ。 なかなかきれいな都市らしい。 emobileもつながるし、先端技術もあるらしい(秋葉駅内に広告がある)…

問題 2.25

(define list1 (list 1 3 (list 5 7) 9)) ;list1 ;-> (1 3 (5 7) 9) ;(car (cdr (car (cdr (cdr list1))))) ;-> 7 (define list2 (list (list 7))) ;list2 ;-> ((7)) ;(car (car list2)) ;-> 7 (define list3 (list 1 (list 2 (list 3 (list 4 (list 5 (list…

問題 2.24

(list 1 (list 2 (list 3 4))) ;-> (1 (2 (3 4))) ;consにすると、 (cons 1 (cons 2 (cons 3 4))) ;-> (1 2 3 . 4) ;にているようで違う。 ;どのような意味の違いがあるのか? (list 1 (list 2 (list 3 4))) ;-> (1 (2 (3 4))) (cons 1 (cons (cons 2 (cons …

問題 2.23

(define (fe f l) (if (pair? l) (void (f l) (fe f (cdr l))))) (fe (lambda (x) (display x) (newline)) (list 57 321 88)) ;-> ;(57 321 88) ;(321 88) ;(88)

問題 2.22

(define (square x) (* x x)) (define (square-list items) (define (iter things answer) (if (null? things) answer (iter (cdr things) (cons answer (square (car things)))))) (iter items null)) ;(square-list (list 1 2 3 4 5)) ;->(((((() . 1) . 4…

問題 2.21

(define (map proc items) (if (null? items) null (cons (proc (car items)) (map proc (cdr items))))) (define (scale-list items factor) (map (lambda (x) (* x factor)) items)) (define (square x) (* x x)) (define (square-list items) (if (null? …