(<\/span>define <\/span>(<\/span>build-list<\/span> x<\/span>)<\/span><\/div> (<\/span>define <\/span>(<\/span>range<\/span> a<\/span> b<\/span>)<\/span><\/div> (<\/span>if <\/span>(<\/span>> <\/span>a<\/span> b<\/span>)<\/span> '<\/span>()<\/span><\/div> (<\/span>cons <\/span>a<\/span> (<\/span>range<\/span> (<\/span>+ <\/span>a<\/span> 1<\/span>)<\/span> b<\/span>))))<\/span><\/div> (<\/span>range<\/span> 1<\/span> x<\/span>))<\/span><\/div> <\/div>
(<\/span>define <\/span>(<\/span>my-cool-reverse<\/span> l<\/span>)<\/span><\/div> (<\/span>define <\/span>(<\/span>my-reverse<\/span> l1<\/span> l2<\/span>)<\/span><\/div> (<\/span>if <\/span>(<\/span>null? <\/span>l1<\/span>)<\/span><\/div> l2<\/span><\/div> (<\/span>my-reverse<\/span> (<\/span>cdr <\/span>l1<\/span>)<\/span><\/div> (<\/span>cons <\/span>(<\/span>car <\/span>l1<\/span>)<\/span> l2<\/span>))))<\/span><\/div> (<\/span>my-reverse<\/span> l<\/span> '<\/span>()))<\/span><\/div> <\/div>
<\/div><\/pre><\/div>\n \n <\/div>\n\n