пусть петля возвращает неожиданные результаты

Question

Может кто-нибудь сказать мне, почему результат

(remove (list 1 2 3) 1) 

где remove определяется

(define (remove ls x) 
(let loop((ls0 ls) (ls1 '())) 
(if (null? ls0) 
    (reverse ls1) 
    (let ((ls2 (if (eqv? x (car ls0)) 
        ls1 
        (cons (car ls0) ls1)))) 
     loop (cdr ls0) ls2)))) 

() это вместо (2 3)?

Answer 1

Ваш рекурсивный вызов неправильно, замените его

(loop (cdr ls0) ls2))))