diff options
Diffstat (limited to 'samples/rosetta/sorting_quicksort.bruijn')
| -rw-r--r-- | samples/rosetta/sorting_quicksort.bruijn | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/samples/rosetta/sorting_quicksort.bruijn b/samples/rosetta/sorting_quicksort.bruijn new file mode 100644 index 0000000..f55f128 --- /dev/null +++ b/samples/rosetta/sorting_quicksort.bruijn @@ -0,0 +1,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 1 <#> (\les? 2) + greater 1 <#> (\geq? 2) + case-end empty + +:test (sort ((+3) : ((+2) : {}(+1)))) ((+1) : ((+2) : {}(+3))) + +main [[0]] |