Data Update

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

@@ -1,3 +1,5 @@
-(if (= (* 2 2) 4) (print "if-then: equal"))
-(if (= (* 2 2) 6) (print "if-then: non equal"))
+(if (= (* 2 2) 4)
+   (print "if-then: equal"))
+(if (= (* 2 2) 6)
+   (print "if-then: should not be printed"))
 ; ==> if-then: equal

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

@@ -1,4 +1,9 @@
-(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 (= (* 2 2) 4)
+   (print "if-then-else: equal")
+   (print "if-then-else: non equal"))
 ; ==> if-then-else: equal
-; ==> if-then-else: i don't know
+
+(if (= (* 2 2) 6)
+   (print "if-then-else: equal")
+   (print "if-then-else: non equal"))
+; ==> if-then-else: non equal

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

@@ -1,7 +1,11 @@
-(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
+(when (= (* 2 2) 4)
+   (print "when: ..just do something..")
+   (print "when: equal"))
+; ==> when: ..just do something..
+; ==> when: equal
+
+(unless (= (* 2 2) 6)
+   (print "unless: ..just do something..")
+   (print "unless: not equal"))
+; ==> unless: ..just do something..
+; ==> unless: not equal

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

@@ -1,10 +1,23 @@
-(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
+(if (= (* 2 2) 4)
+   (print "if-then-else*: equal")
+else
+   (print "if-then-else*: ..just do something..")
+   (print "if-then-else*: non equal"))
+; ==> if-then-else*: equal
+
+(if (= (* 2 2) 4)
+then
+   (print "if-then-else*: ..just do something..")
+   (print "if-then-else*: equal")
+else
+   (print "if-then-else*: ..just do something..")
+   (print "if-then-else*: non equal"))
+; ==> if-then-else*: ..just do something..
+; ==> if-then-else*: equal
+
+(if (= (* 2 2) 4) ; same as `when`
+then
+   (print "if-then-else*: ..just do something..")
+   (print "if-then-else*: equal"))
+; ==> if-then-else*: ..just do something..
+; ==> if-then-else*: equal

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

@@ -1,8 +1,35 @@
-(case (vector 'selector 1 2 3)
+(case (* 2 2)
+   (3 ; exact number
+      (print "case: 3"))
+   (4 ; exact number
+      (print "case: 4"))
+   ((5 6 7) ; list of numbers
+      (print "case: 5 or 6 or 7"))
+   (else
+      (print "case: i don't know")))
+; ==> case: 4
+
+; extended case with usable else
+(case (* 2 2)
+   (3 ; exact number
+      (print "case: 3"))
+   (else => (lambda (num)
+      (print "case: real value is " num))))
+; ==> case: real value is 4
+
+(case (* 2 2)
+   (3 ; exact number
+      (print "case: 3"))
+   (else is num
+      (print "case: real value is " num)))
+; ==> case: real value is 4
+
+; extended case with vectors
+(case ['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
+; ==> case: selector 1, 2, 3