aboutsummaryrefslogtreecommitdiffhomepage
path: root/samples/rosetta/sorting_quicksort.bruijn
diff options
context:
space:
mode:
authorMarvin Borner2024-03-10 14:18:17 +0100
committerMarvin Borner2024-03-10 14:18:17 +0100
commite4dc5918cdfc231bee29ca5808e37ee23f33712e (patch)
treeb73f9384964f96fe92ad6a08d393ba73b942a73c /samples/rosetta/sorting_quicksort.bruijn
parent6ae44d09faa0ae353c0818705503cad42127d102 (diff)
Samples and std additions
Diffstat (limited to 'samples/rosetta/sorting_quicksort.bruijn')
-rw-r--r--samples/rosetta/sorting_quicksort.bruijn4
1 files changed, 2 insertions, 2 deletions
diff --git a/samples/rosetta/sorting_quicksort.bruijn b/samples/rosetta/sorting_quicksort.bruijn
index f55f128..0413024 100644
--- a/samples/rosetta/sorting_quicksort.bruijn
+++ b/samples/rosetta/sorting_quicksort.bruijn
@@ -4,8 +4,8 @@
sort y [[0 [[[case-sort]]] case-end]]
case-sort (4 lesser) ++ (2 : (4 greater))
- lesser 1 <#> (\les? 2)
- greater 1 <#> (\geq? 2)
+ lesser (\les? 2) <#> 1
+ greater (\geq? 2) <#> 1
case-end empty
:test (sort ((+3) : ((+2) : {}(+1)))) ((+1) : ((+2) : {}(+3)))