String case: Difference between revisions

Content deleted Content added

Inline

@@ Line 258: / Line 258: @@
  string tolower $string
  #==>  alphabeta
+==[[Toka]]==
+[[Category:Toka]]
+  needs ctype
+  [ i 1- ] is I
+  [ count [ dup I + c@ toupper over I + c! ] +iterate ] is >upper
+  [ count [ dup I + c@ tolower over I + c! ] +iterate ] is >lower
+  " heLlO wORld" >upper type cr
+  " HeLlO wORld" >lower type cr