43 lines
844 B
Tcl
43 lines
844 B
Tcl
func make_adder(x:Int)-> func(y:Int)->Int:
|
|
return func(y:Int): x + y
|
|
|
|
func suffix_fn(fn:func(t:Text)->Text, suffix:Text)->func(t:Text)->Text:
|
|
return func(t:Text): fn(t)++suffix
|
|
|
|
func mul_func(n:Int, fn:func(x:Int)->Int)-> func(x:Int)->Int:
|
|
return func(x:Int): n*fn(x)
|
|
|
|
func main():
|
|
>> add_one := func(x:Int): x + 1
|
|
>> add_one(10)
|
|
= 11
|
|
|
|
>> shout := func(msg:Text): say("{msg:upper()}!")
|
|
>> shout("hello")
|
|
|
|
>> asdf := add_one
|
|
>> asdf(99)
|
|
= 100
|
|
|
|
>> add_100 := make_adder(100)
|
|
>> add_100(5)
|
|
= 105
|
|
|
|
>> shout2 := suffix_fn(Text.upper, "!")
|
|
>> shout2("hello")
|
|
= "HELLO!"
|
|
|
|
>> abs100 := mul_func(100, Int.abs)
|
|
>> abs100(-5)
|
|
= 500
|
|
|
|
// Test nested lambdas:
|
|
outer := "Hello"
|
|
fn := func():
|
|
return func():
|
|
return func():
|
|
defer: |{outer}
|
|
return outer
|
|
>> fn()()()
|
|
= "Hello"
|