8.4 Catch ���������g��������

CommonLisp��Catch, Throw���p�������������C

(defun print-table (l)
  (catch 'not-a-number
    (mapcar #'print-sqrt-abs l)))

(defun print-sqrt-abs (x)
  (print (sqrt (abs (must-be-number x)))))

(defun must-be-number (x)
  (if (numberp x) x
    (throw 'not-a-number "huh?")))

<cl> (print-table '(1 -2 a 10))

1.0 
1.4142135 
"huh?"

�������������C�����O�����������������������f���� catch�������������������������������������D �����������������C

<cl> (scheme-interpreter)
==> (define (print-table l)
        (call/cc
          (lambda (escape)
            (set! not-a-number escape)
            (map print-sqrt-abs l))))

PRINT-TABLE 

==> (define (print-sqrt-abs x)
        (write (sqrt (abs (must-be-number x))))
        (newline))

PRINT-SQRT-ABS 

==> (define (must-be-number x)
        (if (number? x) x
           (not-a-number "huh?")))

MUST-BE-NUMBER 

==> (define (map fn l)
       (if (null? l)
             nil
          (cons (fn (car l))
             (map fn (cdr l)))))

MAP 

==> (print-table '(1 -2 a 10))
1.0
1.4142135

"huh?" 

==>

��������������call/cc���p�����������������������D �������Ccatch���������������Ccall/cc���s���C ��������continuation�������������������C ����call/cc�������������������C������������ ����������continuation�����s�����������`�� ���������\�����D