RosettaCodeData/Task/Call-a-function/ArkScript/call-a-function-7.ark

9 lines
203 B
Plaintext

(import std.Macros)
(let test_func (fun (a b c) (* a b c)))
(let test_func1 (partial test_func 1))
(let test_func2 (partial test_func1 2))
(print (test_func1 2 3)) # => 6
(print (test_func2 3)) # => 6