String case: Difference between revisions
→Add Transd
No edit summary |
|||
Line 2,915:
$upperCase = strUpr($string);
$lowerCase = strLwr($string);
=={{header|Transd}}==
<lang Scheme>#lang transd
MainModule: {
_start: (λ
(with s "alphaBETA"
(lout (toupper s))
(lout (tolower s)))
)
}</lang>
{{out}}
<pre>
ALPHABETA
alphabeta
</pre>
=={{header|TUSCRIPT}}==
| |||