24 lines
291 B
Plaintext
24 lines
291 B
Plaintext
-- main.mcl --
|
|
$call = func($f, $arg) {
|
|
$f($arg)
|
|
}
|
|
|
|
$lambda = func($x) {
|
|
func($f, $arg) {
|
|
$f($arg)
|
|
}(
|
|
if $x == "nope1" {
|
|
func($z) { "nope2" + $x }
|
|
} else {
|
|
func($z) { "hello" + $x }
|
|
},
|
|
"bye"
|
|
)
|
|
}
|
|
|
|
$s = $lambda("world")
|
|
|
|
test [$s,] {}
|
|
-- OUTPUT --
|
|
Vertex: test[helloworld]
|