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) |
(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))) ) |