diff options
Diffstat (limited to 'samples')
| -rw-r--r-- | samples/euler/002.bruijn | 2 | ||||
| -rw-r--r-- | samples/rosetta/compare_a_list_of_strings.bruijn | 6 | ||||
| -rw-r--r-- | samples/rosetta/sorting_quicksort.bruijn | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/samples/euler/002.bruijn b/samples/euler/002.bruijn index a0b614c..8269a7b 100644 --- a/samples/euler/002.bruijn +++ b/samples/euler/002.bruijn @@ -6,7 +6,7 @@ lim (+34) solve [∑(crit <#> (take lim fibs))] - crit φ [[0 1 0]] even? (\les? 0) + crit φ [[0 1 0]] even? (\lt? 0) :test ((solve (+4000)) =? (+3382)) ([[1]]) 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))) |