Data update

Task/Metaprogramming/Red/metaprogramming.red

@@ -0,0 +1,42 @@
+Red [ "Metaprogramming - 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 do b]
+
+demo "Infix Operators Creation" [
+++: make op! function [a b][rejoin [a b]]
+print "Hello" ++ ", " ++ "World" ++ "!"
+]
+
+demo "Runtime Code Evaluation" [
+do load ask "Type your code: "
+]
+
+demo "Language Construct Redefinitions and Aliases" [
+show: :print
+show "Hello!"
+
+if-else: :either
+if-else (random 100) > 90 [
+	show "You're lucky!"
+][
+	show "Try again!"
+]
+]
+
+demo "Code Manipulation" [
+; Create a C-Style for loop
+for: function [ init[block!] cond[block!] next[block!] body[block!] ] [
+	; Insert the next block to the end of body block
+	body: head insert tail copy body next
+	
+	; Compose the block ready to be executed
+	compose/deep [(init) while [(cond)] [(body)]]
+]
+
+do for [x: 1] [x <= 10] [x: x + 1] [
+	print x
+]
+
+]