Data update

Task/Extend-your-language/Red/extend-your-language.red

@@ -0,0 +1,36 @@
+Red [ "Extend your language - Hinjolicious"]
+
+; This function will print a string as a heading and print any codes
+; to the screen before executing it.
+demo: function [s b] [print ["^/==" s "==^/"] print [mold/only b "^/^/Output:"] do b]
+
+demo "Creating a custom control structure if-both" [
+if-both: function [cond1 cond2 both-body first-body second-body none-body] [
+	c1: do cond1
+	c2: do cond2
+    case [
+        all [c1 c2] [do both-body]
+        c1 [do first-body]
+        c2 [do second-body]
+        true [do none-body]
+    ]
+]
+]
+
+demo "Testing it" [
+random/seed now
+
+test: does [
+	if-both [(random 100) > 50] [(random 100) < 50] [
+		print "both"
+	][
+		print "first"
+	][
+		print "second"
+	][
+		print "none"
+	]
+]
+
+loop 10 [test]
+]