ideal • runtime • patterns • test_sequence

private boolean match a(character c) pure

return c == 'a' || c == 'A'

private boolean match b(character c) pure

return c == 'b' || c == 'B'

private boolean match c(character c) pure

return c == 'c' || c == 'C'

private string as string(readonly list[character] char list)

return char list • frozen copy() !> string

return procedure matcher[character, string] • new(repeat element[character] • new(the predicate, false), as string)

string match procedure(readonly list[any value] the list)

var string result : ""

for (element : the list)

assert element is string

result = result ++ "-" ++ element

return result

test case test match parse()

the matcher : sequence matcher[character, string] • new(patterns list, match procedure)

assert the matcher("abc")

assert the matcher("AbC")

assert the matcher("AaaBbCcc")

assert the matcher("AaaBBBCcc")

assert !the matcher("bac")

assert !the matcher("aabb")

assert !the matcher("aaca")

assert the matcher • parse("abc") == "-a-b-c"

assert the matcher • parse("AbC") == "-A-b-C"

assert the matcher • parse("AaaBbCcc") == "-Aaa-Bb-Ccc"

assert the matcher • parse("AaaBBBCcc") == "-Aaa-BBB-Ccc"