samples/negpattern.tri at string-repr-callable

Actually just three programming languages in a trenchcoat

trilogy / samples / negpattern.tri

at string-repr-callable 9 lines 152 B view raw

wrap content

1proc matcher!(x) {
2    match x
3        case -y { return y }
4        case 'a(y) { return y }
5}
6
7proc main!() {
8    exit matcher!(5) + matcher!('a(5));
9}