Data commit

Task/Conditional-structures/PicoLisp/conditional-structures-1.l

@@ -0,0 +1,9 @@
+(if (condition)                  # If the condition evaluates to non-NIL
+   (then-do-this)                # Then execute the following expression
+   (else-do-that)                # Else execute all other expressions
+   (and-more) )
+
+(ifn (condition)                 # If the condition evaluates to NIL
+   (then-do-this)                # Then execute the following expression
+   (else-do-that)                # Else execute all other expressions
+   (and-more) )

Task/Conditional-structures/PicoLisp/conditional-structures-2.l

@@ -0,0 +1,7 @@
+(when (condition)                # If the condition evaluates to non-NIL
+   (then-do-this)                # Then execute tall following expressions
+   (and-more) )
+
+(unless (condition)              # If the condition evaluates to NIL
+   (then-do-this)                # Then execute all following expressions
+   (and-more) )

Task/Conditional-structures/PicoLisp/conditional-structures-3.l

@@ -0,0 +1,6 @@
+(if2 (condition1) (condition2)   # If both conditions evaluate to non-NIL
+   (expression-both)             # Then execute this expression
+   (expression-first)            # Otherwise this for the first
+   (expression-second)           # or this the second condition.
+   (expression-none)             # If both are NIL, all following expressions
+   (and-more) )

Task/Conditional-structures/PicoLisp/conditional-structures-4.l

@@ -0,0 +1,21 @@
+(cond
+   ((condition1)                 # If this condition evaluates to non-NIL
+      (expression 1)             # Execute these expression(s)
+      (more 1) )
+   ((condition2)                 # Otherwise, if this evaluates to non-NIL
+      (expression 2)             # Execute these expression(s)
+      (more 2) )
+   (T                            # If none evaluated to non-NIL
+      (expression 1)             # Execute these expression(s)
+      (more 1) )
+
+(nond
+   ((condition1)                 # If this condition evaluates to NIL
+      (expression 1)             # Execute these expression(s)
+      (more 1) )
+   ((condition2)                 # Otherwise, if this evaluates to NIL
+      (expression 2)             # Execute these expression(s)
+      (more 2) )
+   (NIL                          # If none evaluated to NIL
+      (expression 1)             # Execute these expression(s)
+      (more 1) )

Task/Conditional-structures/PicoLisp/conditional-structures-5.l

@@ -0,0 +1,9 @@
+(case (expression)               # Evaluate the expression
+   (value1                       # If it is equal to, or member of, 'value1'
+      (do-this1)                 # Execute these expression(s)
+      (do-that1) )
+   (value2                       # Else if it is equal to, or member of, 'value2
+      (do-this2)                 # Execute these expression(s)
+      (do-that2) )
+   (T                            # Else execute final expression(s)
+      (do-something-else) ) )