<div dir="ltr">A candidate for a solution.<div><br></div><div><div>;; sort1 : list-of-numbers  ->  list-of-numbers</div><div>;; to construct a list with all items from alon in descending order</div><div>(define (sort1 cmp alon)</div>

<div>  (local ((define (sort alon)</div><div>            (cond</div><div>              [(empty? alon) empty]</div><div>              [else (insert (first alon) (sort (rest alon)))]))</div><div>          (define (insert an alon)</div>

<div>            (cond</div><div>              [(empty? alon) (list an)]</div><div>              [else (cond</div><div>                      [(cmp an (first alon)) (cons an alon)]</div><div>                      [else (cons (first alon) (insert an (rest alon)))])])))</div>

<div>    (sort alon)))</div><div><br></div><div>(check-expect (sort1 < (list 2 3 1 5 4)) (list 1 2 3 4 5))</div><div>(check-expect (sort1 > (list 2 3 1 5 4)) (list 5 4 3 2 1))</div></div><div><br></div><div>Source: </div>

<div><a href="http://www.htdp.org/2003-09-26/Solutions/abs-sort.html">http://www.htdp.org/2003-09-26/Solutions/abs-sort.html</a><br></div><div><h1 style="color:rgb(0,0,0);font-family:'Times New Roman'">No Solution Written, yet</h1>

<span style="color:rgb(0,0,0);font-family:'Times New Roman';font-size:medium">Unfortunately, the solution to this exercise has not yet been written. To submit a solution you have written to this problem, or to complain that the solution isn't available, please contact </span><a href="mailto:robby@eecs.northwestern.edu?subject=missing%20solution%2019.1.6%20ex:abs-sort%20" style="font-family:'Times New Roman';font-size:medium">Robby Findler</a><span style="color:rgb(0,0,0);font-family:'Times New Roman';font-size:medium">.</span><p style="color:rgb(0,0,0);font-family:'Times New Roman';font-size:medium">

To see the list of solutions, visit the <a href="http://www.htdp.org/2003-09-26/Solutions/contents.html">table of contents</a>. Each of the hyperlinked exercise numbers has a solution.</p></div></div>