1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
struct Single(x:Int)
struct Pair(x,y:Int)
struct Mixed(x:Int, text:Text)
struct LinkedList(x:Int, next=!@LinkedList)
struct Password(text:Text; secret)
struct CorecursiveA(other:@CorecursiveB?)
struct CorecursiveB(other=!@CorecursiveA)
func test_literals():
>> Single(123)
= Single(123)
>> x := Pair(10, 20)
= Pair(x=10, y=20)
>> y := Pair(y=20, 10)
= Pair(x=10, y=20)
>> x == y
= yes
>> x == Pair(-1, -2)
= no
func test_metamethods():
>> x := Pair(10, 20)
>> y := Pair(100, 200)
>> x == y
= no
>> x == Pair(10, 20)
= yes
>> x == Pair(10, 30)
= no
>> x < Pair(11, 20)
= yes
>> set := {x}
>> set:has(x)
= yes
>> set:has(y)
= no
func test_mixed():
>> x := Mixed(10, "Hello")
>> y := Mixed(99, "Hello")
>> x == y
= no
>> x == Mixed(10, "Hello")
= yes
>> x == Mixed(10, "Bye")
= no
>> x < Mixed(11, "Hello")
= yes
>> set := {x}
>> set:has(x)
= yes
>> set:has(y)
= no
func test_text():
>> b := @CorecursiveB()
>> a := @CorecursiveA(b)
>> b.other = a
>> a
= @CorecursiveA(@CorecursiveB(@~1))
func main():
test_literals()
test_metamethods()
test_mixed()
test_text()
>> @LinkedList(10, @LinkedList(20))
>> my_pass := Password("Swordfish")
= Password(...)
>> users_by_password := {my_pass:"User1", Password("xxx"):"User2"}
= {Password(...):"User1", Password(...):"User2"}
>> users_by_password:get(my_pass)!
= "User1"
>> CorecursiveA(@CorecursiveB())
|
