25 lines
445 B
Plaintext
25 lines
445 B
Plaintext
-- main.mcl --
|
|
import "fmt"
|
|
|
|
# this should be a function as a value, iow a lambda
|
|
$answer = func() {
|
|
"the answer is 42"
|
|
}
|
|
|
|
$out1 = $answer()
|
|
$out2 = $answer()
|
|
|
|
test [$out1 + $out2,] {}
|
|
-- OUTPUT --
|
|
Edge: FuncValue -> call # fn
|
|
Edge: FuncValue -> call # fn
|
|
Edge: FuncValue -> call # fn
|
|
Edge: call -> composite: []str # 0
|
|
Vertex: FuncValue
|
|
Vertex: FuncValue
|
|
Vertex: call
|
|
Vertex: call
|
|
Vertex: call
|
|
Vertex: composite: []str
|
|
Vertex: const: str("+")
|