Data update

Task/Call-a-function/ArkScript/call-a-function-1.ark

@@ -0,0 +1,4 @@
+# function call with no arguments
+(foo)
+# function call with fixed number of arguments
+(bar 1 2)

Task/Call-a-function/ArkScript/call-a-function-2.ark

@@ -0,0 +1,3 @@
+(macro foo (...args) (print args))
+(foo)  # => []
+(foo 1 2 3)  # => [1 2 3]

Task/Call-a-function/ArkScript/call-a-function-3.ark

@@ -0,0 +1,6 @@
+(let foo (fun ()
+  4  # this value will be discarded as it has no effect
+  (compute_something 1 2 3)  # the return value will be discarded too
+  5 ))
+
+(print (foo))  # => 5

Task/Call-a-function/ArkScript/call-a-function-4.ark

@@ -0,0 +1,6 @@
+(mut a 5)
+(let foo (fun (bar)
+  (set bar 12)))
+(print a)  # => 5
+(foo a)
+(print a)  # => 5

Task/Call-a-function/ArkScript/call-a-function-5.ark

@@ -0,0 +1,3 @@
+(if (= 5 (foo))
+  (compute_something)
+  (print "uhoh"))

Task/Call-a-function/ArkScript/call-a-function-6.ark

@@ -0,0 +1,4 @@
+(let foo (fun () ()))
+
+(print (type foo))  # => Function
+(print (type print))  # => CProc

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

@@ -0,0 +1,8 @@
+(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