(<\/span>define <\/span>(<\/span>build-list<\/span> n<\/span>)<\/span><\/div> (<\/span>cond <\/span>((<\/span>= <\/span>1<\/span> n<\/span>)<\/span> (<\/span>list <\/span>n<\/span>))<\/span><\/div> (<\/span>else <\/span>(<\/span>append <\/span>(<\/span>build-list<\/span> (<\/span>- <\/span>n<\/span> 1<\/span>))<\/span> (<\/span>list <\/span>n<\/span>)<\/span> ))))<\/span><\/div> <\/div>
(<\/span>define <\/span>(<\/span>build-reverse<\/span> a<\/span>)<\/span><\/div> (<\/span>cond <\/span>((<\/span>= <\/span>a<\/span> 0<\/span>)<\/span> (<\/span>list <\/span>a<\/span>))<\/span><\/div> (<\/span>else <\/span>(<\/span>cons <\/span>a<\/span> (<\/span>build-reverse<\/span> (<\/span>- <\/span>a<\/span> 1<\/span>))))))<\/span><\/div> <\/div>
(<\/span>define <\/span>(<\/span>my-reverse<\/span> l<\/span>)<\/span><\/div> (<\/span>cond <\/span>((<\/span>null? <\/span>l<\/span>)<\/span> '<\/span>())<\/span><\/div> (<\/span>else <\/span>(<\/span>append <\/span>(<\/span>my-reverse<\/span> (<\/span>cdr <\/span>l<\/span>))<\/span> (<\/span>list <\/span>(<\/span>car <\/span>l<\/span>))))))<\/span><\/div> <\/div>
(<\/span>define <\/span>(<\/span>my-append<\/span> l1<\/span> l2<\/span>)<\/span><\/div> (<\/span>if <\/span>(<\/span>null? <\/span>l1<\/span>)<\/span> l2<\/span><\/div> (<\/span>cons <\/span>(<\/span>car <\/span>l1<\/span>)<\/span> (<\/span>append <\/span>(<\/span>cdr <\/span>l1<\/span>)<\/span> l2<\/span>))))<\/span><\/div> <\/div>
(<\/span>define <\/span>(<\/span>my-length<\/span> l<\/span>)<\/span><\/div> (<\/span>if <\/span>(<\/span>null? <\/span>l<\/span>)<\/span> 0<\/span><\/div> (<\/span>+ <\/span>1<\/span> (<\/span>my-length<\/span> (<\/span>cdr <\/span>l<\/span>)))))<\/span><\/div> <\/div>
(<\/span>define <\/span>(<\/span>last-pair<\/span> l<\/span>)<\/span><\/div> (<\/span>if <\/span>(<\/span>null? <\/span>(<\/span>cdr <\/span>l<\/span>))<\/span> (<\/span>car <\/span>l<\/span>)<\/span><\/div> (<\/span>last-pair<\/span> (<\/span>cdr <\/span>l<\/span>))))<\/span><\/div> <\/div><\/pre><\/div>\n \n <\/div>\n\n