String case: Difference between revisions
Content added Content deleted
(→{{header|Smalltalk}}: format) |
(Added Quackery.) |
||
| Line 2,132: | Line 2,132: | ||
PRINT "Converted to lowercase: "; LCASE$(s$) |
PRINT "Converted to lowercase: "; LCASE$(s$) |
||
PRINT "Converted to uppercase: "; UCASE$(s$)</lang> |
PRINT "Converted to uppercase: "; UCASE$(s$)</lang> |
||
=={{header|Quackery}}== |
|||
<lang Quackery> [ $ "" swap |
|||
witheach [ upper join ] ] is upper$ ( $ --> $ ) |
|||
[ $ "" swap |
|||
witheach [ lower join ] ] is lower$ ( $ --> $ ) |
|||
$ "PaTrIcK, I dOn'T tHiNk WuMbO iS a ReAl wOrD." |
|||
dup lower$ echo$ cr |
|||
upper$ echo$ cr</lang> |
|||
{{Out}} |
|||
<pre>patrick, i don't think wumbo is a real word. |
|||
PATRICK, I DON'T THINK WUMBO IS A REAL WORD.</pre> |
|||
=={{header|R}}== |
=={{header|R}}== |
||