langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Conditional-structures/SNOBOL4/conditional-structures.sno
+++ b/Task/Conditional-structures/SNOBOL4/conditional-structures.sno
@ -0,0 +1,14 @@
+	A = "true"
+* "if-then-else"
+if	A "true"			:s(goTrue)f(goFalse)
+goTrue	output = "A is TRUE"		:(fi)
+goFalse	output = "A is not TRUE"	:(fi)
+fi
+
+* "switch"
+switch		A ("true" | "false") . switch	:s($("case" switch))f(default)
+casetrue	output = "A is TRUE"	:(esac)
+casefalse	output = "A is FALSE"	:(esac)
+default		output = "A is neither FALSE nor TRUE"
+esac
+end