����

1. Common Lisp�����������s���������������l���������D

   
   <cl> (defun two-funs (x)
       (list (function (lambda () x))
             (function (lambda (y) (setq x y)))))
   <cl> (setq funs (two-funs 6))
   <cl> (funcall (car funs))
   6
   <cl> (funcall (cadr funs) 3)
   3
   <cl> (funcall (car funs))
   3
   

   ���������l���v���O�������Cscheme�������������� ���������D

   
   > (define (two-funs x)
       (list (lambda () x))
             (lambda (y) (set! x y))))
   > (define funs (two-funs 6))
   > ((car funs))
   6
   > ((cadr funs) 3)
   3
   > ((car funs))
   3
   

2. Chez Scheme���C���X�g�[�������C�g���������D
3. Revised 5 report �_�E�����[�h���������������D
4. Scheme���������`������ integral ���Q�l���A������ ����������������sigma�����`�����B

   <cl> (sigma #'(lambda (x) x) 0 #'1+ 10)
   55 
   <cl> (sigma #'(lambda (x) (* x x)) 0 #'1+ 10)
   385 
   <cl> (sigma #'(lambda (x) (* x x x)) 0 #'1+ 10)
   3025
   

5. Scheme�����s���������D

   
   ((if (= (+ 1 1) 2) list cons) 'a 'b)
   
   ((if (= (+ 1 1) 2) 'list 'cons) 'a 'b)