javascheme_Scheme中的Scheme返回对

嗨我得到错误mcar&＃xff1a; Contract 违规期待&＃xff1a;mpair&＃xff1f;给出:()运行这些代码时&＃xff1a;

(define helpy

(lambda (y listz)

(map (lambda (z) (list y z))

listz)))

(define print

(lambda (listy)

(cond

((null? list) (newline))

(#t (helpy (car listy) (cdr listy))

(print (cdr listy))))))

我的代码试图在列表中返回对 . 例如&＃xff0c;当我调用 (print &＃39;(a b c)) 时&＃xff0c;它应该返回 ((a b) (a c) (b c)) .

我只修复并更新了我的代码&＃xff0c;现在它不会返回错误但我只能在运行这些代码时获得对((a b)(a c)&＃xff1a;

(定义帮助

(lambda(y listz)

( Map (lambda(z)(list y z))

listz)))

(定义打印

(lambda(listy)

(条件

((null&＃xff1f;listy)(换行符))

(#t(helpy(car listy)(cdr listy)))

(print (cdr listy)))))

我认为我的递归有问题