diff options
Diffstat (limited to 'samples/rosetta')
| -rw-r--r-- | samples/rosetta/compare_a_list_of_strings.bruijn | 6 | ||||
| -rw-r--r-- | samples/rosetta/sorting_quicksort.bruijn | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/samples/rosetta/compare_a_list_of_strings.bruijn b/samples/rosetta/compare_a_list_of_strings.bruijn index 636a98d..ba0fa76 100644 --- a/samples/rosetta/compare_a_list_of_strings.bruijn +++ b/samples/rosetta/compare_a_list_of_strings.bruijn @@ -2,7 +2,7 @@ all-eq? [land? (zip-with eq? 0 (tail 0))] -all-gre? [land? (zip-with les? 0 (tail 0))] +all-gt? [land? (zip-with lt? 0 (tail 0))] # --- tests --- @@ -12,7 +12,7 @@ list-b "abc" : ("def" : {}("ghi")) :test (all-eq? list-a) ([[1]]) :test (all-eq? list-b) ([[0]]) -:test (all-gre? list-a) ([[0]]) -:test (all-gre? list-b) ([[1]]) +:test (all-gt? list-a) ([[0]]) +:test (all-gt? list-b) ([[1]]) main [[0]] diff --git a/samples/rosetta/sorting_quicksort.bruijn b/samples/rosetta/sorting_quicksort.bruijn index 0413024..6e57bd9 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 (\les? 2) <#> 1 - greater (\geq? 2) <#> 1 + lesser (\lt? 2) <#> 1 + greater (\ge? 2) <#> 1 case-end empty :test (sort ((+3) : ((+2) : {}(+1)))) ((+1) : ((+2) : {}(+3))) |