September Morn Update

2019-09-12 10:33:56 -07:00 · 2019-09-12 10:33:56 -07:00 · aac6731f2c
commit aac6731f2c
parent 4e2d22a71d
6856 changed files with 141342 additions and 21127 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