String case: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 604:
return 0;
}</lang>
=={{header|C sharp|C#}}==
<lang csharp>
class Program
{
static void Main(string[] args)
{
string input;
Console.Write("Enter a series of letters: ");
input = Console.ReadLine();
stringCase(input);
}
private static void stringCase(string str)
{
char[] chars = str.ToCharArray();
string newStr = "";
foreach (char i in chars)
if (char.IsLower(i))
newStr += char.ToUpper(i);
else
newStr += char.ToLower(i);
Console.WriteLine("Converted: {0}", newStr);
}
}</lang>
Title case is a little different:
<lang csharp>System.Console.WriteLine(System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToTitleCase("exAmpLe sTrinG"));</lang>
=={{header|C++}}==
Line 648 ⟶ 678:
return 0;
}</lang>
=={{header|Clojure}}==
Line 807:
Lowercase:> alphabeta
</pre>
=={{header|D}}==
<lang d>void main() {
Line 866 ⟶ 867:
OUTPUT (LowerCased);
OUTPUT (TitleCased);</lang>
=={{header|Elena}}==
ELENA 4.x:
Line 947 ⟶ 949:
"alphaBETA" >title ! "Alphabeta"
"ß" >case-fold ! "ss"</lang>
=={{header|Falcon}}==
Line 1,164 ⟶ 1,165:
<lang frink>lc[ uc["Imbiß"] ]</lang>
<pre>imbiss</pre>
=={{header|FutureBasic}}==
Line 1,659:
alphabeta
</pre>
=={{header|MUMPS}}==
<lang MUMPS>
Line 1,916 ⟶ 1,917:
Also works in Perl 4 if the '''my''' is removed.
=={{header|Phix}}==
Line 2,135 ⟶ 2,117:
(string-titlecase example)
;"Alphabeta"</lang>
=={{header|Raku}}==
(formerly Perl 6)
In Perl 6, case modification is implemented as builtin subroutine or method:
<lang perl6>my $word = "alpha BETA" ;
say uc $word; # all uppercase (subroutine call)
say $word.uc; # all uppercase (method call)
# from now on we use only method calls as examples
say $word.lc; # all lowercase
say $word.tc; # first letter titlecase
say $word.tclc; # first letter titlecase, rest lowercase
say $word.wordcase; # capitalize each word
</lang>
Output:
<pre>ALPHA BETA
alpha beta
Alpha BETA
Alpha beta
Alpha Beta</pre>
=={{header|Raven}}==
Line 2,376 ⟶ 2,378:
say "alpha BETA".tc; #=> Alpha BETA
say "alpha BETA".tclc; #=> Alpha beta</lang>
=={{header|Simula}}==
<lang Simula>TEXT soup, lower;
Line 2,692 ⟶ 2,695:
MyWord = UCase("alphaBETA") ' Returns "ALPHABETA"
MyWord = LCase("alphaBETA") ' Returns "alphabeta"</lang>
=={{header|Vedit macro language}}==
<lang vedit>#1 = CP
IT("alphaBETA")
Case_Upper_Block(#1, CP)
Case_Lower_Block(#1, CP)</lang>
=={{header|Visual Basic}}==
Line 2,729 ⟶ 2,738:
first position of letter A (case-insensitive) = 1
concatenated with '123' = alphaBETA123</pre>
=={{header|XPL0}}==
| |||