Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/String-case/SNOBOL4/string-case-2.sno
+++ b/Task/String-case/SNOBOL4/string-case-2.sno
@ -0,0 +1,18 @@
+        define('UC(STR)')
+        define('LC(STR)')
+        define('UCFIRST(STR)')
+        define('SWAPC(STR)')                               :(CASES.END)
+UC      uc = replace(str,&lcase,&ucase)                    :(RETURN)
+LC      lc = replace(str,&ucase,&lcase)                    :(RETURN)
+UCFIRST str len(1) . ch = uc(ch) ; ucfirst = str           :(RETURN)
+SWAPC   swapc = replace(str, &ucase &lcase, &lcase &ucase) :(RETURN)
+CASES.END
+
+*       # Test and display
+        str = 'alphaBETA'
+        output = str
+        output = lc(str)
+        output = uc(str)
+        output = ucfirst(str)
+        output = swapc(str)
+END