Data commit

Task/Conditional-structures/Ol/conditional-structures-1.ol

@@ -0,0 +1,3 @@
+(if (= (* 2 2) 4) (print "if-then: equal"))
+(if (= (* 2 2) 6) (print "if-then: non equal"))
+; ==> if-then: equal

Task/Conditional-structures/Ol/conditional-structures-2.ol

@@ -0,0 +1,4 @@
+(if (= (* 2 2) 4) (print "if-then-else: equal") (print "if-then-else: non equal"))
+(if (= (* 2 2) 6) (print "if-then-else: non equal") (print "if-then-else: i don't know"))
+; ==> if-then-else: equal
+; ==> if-then-else: i don't know

Task/Conditional-structures/Ol/conditional-structures-3.ol

@@ -0,0 +1,7 @@
+(unless (= (* 2 2) 4) (print "unless: non equal"))
+(unless (= (* 2 2) 6) (print "unless: i don't know"))
+(unless (= (* 2 2) 4) (print "unless: non equal") (print "unless: equal"))
+(unless (= (* 2 2) 6) (print "unless: i don't know") (print "unless: non equal"))
+; ==> unless: i don't know
+; ==> unless: equal
+; ==> unless: i don't know

Task/Conditional-structures/Ol/conditional-structures-4.ol

@@ -0,0 +1,10 @@
+(case (* 2 2)
+   (3
+      (print "case: 3"))
+   (4
+      (print "case: 4"))
+   ((5 6 7)
+      (print "case: 5 or 6 or 7"))
+   (else
+      (print "case: i don't know")))
+; ==> case: 4

Task/Conditional-structures/Ol/conditional-structures-5.ol

@@ -0,0 +1,8 @@
+(case (vector 'selector 1 2 3)
+   (['case1 x y]
+      (print "case: case1 " x ", " y))
+   (['selector x y z]
+      (print "case: selector " x ", " y ", " z))
+   (else
+      (print "case: i don't know")))
+; ==> tuple-case: selector 1, 2, 3

Task/Conditional-structures/Ol/conditional-structures-6.ol

@@ -0,0 +1,8 @@
+(cond
+   ((= (* 2 2) 4)
+      (print "cond: equal"))
+   ((= (* 2 2) 6)
+      (print "cond: not equal"))
+   (else
+      (print "cond: i don't know")))
+; ==> cond: equal

Task/Conditional-structures/Ol/conditional-structures-7.ol

@@ -0,0 +1,10 @@
+(define smart (case-lambda
+   ((x)
+      (print x ", -, -"))
+   ((x y)
+      (print x ", " y ", -"))
+   ((x y z)
+      (print x ", " y ", " z))))
+(smart 1)     ; ==> 1, -, -
+(smart 1 2)   ; ==> 1, 2, -
+(smart 1 2 3) ; ==> 1, 2, 3