Data commit

Task/Conditional-structures/Slope/conditional-structures-1.slope

@@ -0,0 +1 @@
+(if [test] [consequent] [[alternate]])

Task/Conditional-structures/Slope/conditional-structures-2.slope

@@ -0,0 +1,2 @@
+(define my-file (file-open-read "my-file.txt"))
+(if my-file (write (read-all my-file)) (! "Could not open file"))

Task/Conditional-structures/Slope/conditional-structures-3.slope

@@ -0,0 +1 @@
+(case [value] (match-val expression)...)

Task/Conditional-structures/Slope/conditional-structures-4.slope

@@ -0,0 +1,6 @@
+(case my-enum
+  (string (do-string my-enum))
+  (bool (do-bool my-enum))
+  (proc (my-enum))
+  (number (do-number my-enum))
+  (else (! "No match found in case")))

Task/Conditional-structures/Slope/conditional-structures-5.slope

@@ -0,0 +1 @@
+(cond ([test] [expression])...)

Task/Conditional-structures/Slope/conditional-structures-6.slope

@@ -0,0 +1,5 @@
+(define my-num 123)
+(cond
+  ((positive? my-num) 'positive)
+  ((negative? my-num) 'negative)
+  (else 'zero))