1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
: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]]
