monmon · September 26, 2012 05:24
diff --git a/gistfile1.scm b/gistfile1.scm
 ; p.39の脚注58より
 ; x |-> f(g(x))
 ; は
 ; (lambda (x) (f (g x)))


 (define (compose f g)
  (lambda (x) (f (g x))))


 (define (square i) (* i i))
 (define (inc i) (+ i 1))
 (print ((compose square inc) 6))    ; 49
	; p.39の脚注58より
	; x \|-> f(g(x))
	; は
	; (lambda (x) (f (g x)))


	(define (compose f g)
	(lambda (x) (f (g x))))


	(define (square i) (* i i))
	(define (inc i) (+ i 1))
	(print ((compose square inc) 6)) ; 49
No results found