Exercises17.1.2

今月に入って失速気味だったのですが一問解けたのでメモ。

(define LOS '(a b c))
(define LON '(1 2))

(define (cross alon1 alon2)　　;;引数にリストを二つとって全部の組み合わせを書き出す関数
  (cond
    ((empty? alon1) empty)
    (else
     (append (cross-aux (first alon1) alon2)
           (cross (rest alon1) alon2)))))

(define (cross-aux n alon2)
  (cond
    ((empty? alon2) '())
    (else
     (cons (list n (first alon2)) (cross-aux n (rest alon2))))))

(cross LOS LON)　evaluates to ; (list (list 'a 1) (list 'a 2) (list 'b 1) (list 'b 2) (list 'c 1) (list 'c 2))

最近たべたタコスはまさに絶品だったので自分の中のメキシコ値が急上昇しています。
（HTDP）＜この文字がどうもタコスっぽいと思のは自分だけでしょうか？