Sorting algorithms/Counting sort: Difference between revisions

Content deleted Content added
m Simplified 'need' call
Line 900: Line 900:
=={{header|PicoLisp}}==
=={{header|PicoLisp}}==
<lang PicoLisp>(de countingSort (Lst Min Max)
<lang PicoLisp>(de countingSort (Lst Min Max)
(let Count (need (- Max Min -1) NIL 0)
(let Count (need (- Max Min -1) 0)
(for N Lst
(for N Lst
(inc (nth Count (- N Min -1))) )
(inc (nth Count (- N Min -1))) )