(define length1
(lambda (lat)
(cond
((null? lat) 0)
(else (+ 1 (length1 (cdr lat)))))))
例: length1 を呼び出したときに番号 (またはその他) を表示します。cond
(progn (...) (...) ...)
Common Lisp では、複数の式を 1 つにグループ化するために使用できます。
スキームで同等のものは です(begin (...) (...) ...)
。
それで:
(define length1
(lambda (lat)
(cond
((null? lat) 0)
(else (begin (display "hello world") (+ 1 (length1 (cdr lat))))))))
または多分あなたがしたい:
(define length1
(lambda (lat)
(cond
((null? lat) 0)
(else (let ((or-anything-else (+ 1 (length1 (cdr lat)))))
(display or-anything-else)
or-anything-else)))
それは私の忍耐力を使い果たしたところです。