Data commit

Task/Function-definition/Ol/function-definition-1.ol

@@ -0,0 +1,2 @@
+(lambda (x y)
+   (* x y))

Task/Function-definition/Ol/function-definition-2.ol

@@ -0,0 +1,3 @@
+(define multiply (lambda (x y) (* x y)))
+
+(define (multiply x y) (* x y))

Task/Function-definition/Ol/function-definition-3.ol

@@ -0,0 +1,12 @@
+(let multiply ((x n) (y m))
+   (* x y))
+
+; example of naive multiplication function implementation using local recursion:
+(define (multiply x y)
+   (let loop ((y y) (n 0))
+      (if (= y 0)
+         n
+         (loop (- y 1) (+ n x)))))
+
+(print (multiply 7 8))
+; ==> 56