<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これと同様のプログラムは,schemeでは次のように なります.
> (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
<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
((if (= (+ 1 1) 2) list cons) 'a 'b) ((if (= (+ 1 1) 2) 'list 'cons) 'a 'b)