, . , / , .
:
(append-to-form (a b) (c d) ?z)
(rule (append-to-form (?u . ?v) ?y (?u . ?z))
(append-to-form ?v ?y ?z))
?u = a, ?v = (b), ?y = (c d), ?z = (a . ?z_2)
:? z ? z , ? z ? z_2. (1 2 3) (? A.? B) ? A = 1,? B = (2 3), , car/cdr'ing .
(append-to-form ?v ?y ?z) ,
(append-to-form (b) (c d) ?z_2)
(append-to-form () (c d) ?z_3)
: (rule (append-to-form () ?y ?y)) ? z_3 (c d).
, zz2 (b.? Z_3),? Z (a. Z2)
(append-to-form (a b) (c d) ?z) , : z = (a. (b. (c d))) (append-to-form (a b) (c d) (a b c d))
;)
, 4.2.2. - SICP, . . ( R5RS) , , .