1 2 3 4 5 6 7 8 9 10 11 12 13
:import std/Combinator . :import std/Number . :import std/List . sort y [[0 [[[case-sort]]] case-end]] case-sort (4 lesser) ++ (2 : (4 greater)) lesser (\lt? 2) <#> 1 greater (\ge? 2) <#> 1 case-end empty :test (sort ((+3) : ((+2) : {}(+1)))) ((+1) : ((+2) : {}(+3))) main [[0]]
