rosetta/compare_a_list_of_strings.bruijn

:import std/String .

all-eq? [land? (zip-with eq? 0 (tail 0))]

all-gt? [land? (zip-with lt? 0 (tail 0))]

# --- tests ---

list-a "abc" : ("abc" : {}("abc"))

list-b "abc" : ("def" : {}("ghi"))

:test (all-eq? list-a) ([[1]])
:test (all-eq? list-b) ([[0]])
:test (all-gt? list-a) ([[0]])
:test (all-gt? list-b) ([[1]])

main [[0]]