-1
(define length1
 (lambda (lat)
  (cond 
   ((null? lat) 0)
   (else (+ 1 (length1 (cdr lat)))))))

例: length1 を呼び出したときに番号 (またはその他) を表示します。cond

4

1 に答える 1

1

(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)))

それは私の忍耐力を使い果たしたところです。

于 2012-07-24T01:24:25.593 に答える