今月に入って失速気味だったのですが一問解けたのでメモ。 (define LOS '(a b c)) (define LON '(1 2)) (define (cross alon1 alon2) ;;引数にリストを二つとって全部の組み合わせを書き出す関数 (cond ((empty? alon1) empty) (else (append (cross-aux (fi…