Sort the letters of string in alphabetical order: Difference between revisions
Sort the letters of string in alphabetical order (view source)
Revision as of 14:06, 29 July 2021
, 2 years ago→{{header|F_Sharp|F#}}: Added Turkish
(→{{header|F_Sharp|F#}}: Added Turkish) |
|||
Line 86:
let fG n g=let g=g|>Seq.countBy id|>Map.ofSeq in [for n in n->if Map.containsKey n g then [|for g in 1..g.[n]->n|]|>System.String else ""]|>String.concat ""
let English=fG ['a';'A';'b';'B';'c';'C';'d';'D';'e';'E';'f';'F';'g';'G';'h';'H';'i';'I';'j';'J';'k';'K';'l';'L';'m';'M';'n';'N';'o';'O';'p';'P';'q';'Q';'r';'R';'s';'S';'t';'T';'u';'U';'v';'V';'w';'W';'x';'X';'y';'Y';'z';'Z']
let Turkish=fG ['a';'A';'b';'B';'c';'C';'ç';'Ç';'d';'D';'e';'E';'f';'F';'g';'G';'ğ';'Ğ';'h';'H';'ı';'I';'i';'İ';'j';'J';'k';'K';'l';'L';'m';'M';'n';'N';'o';'O';'ö';'Ö';'p';'P';'r';'R';'s';'S';'ş';'Ş';'t';'T';'u';'U';'ü';'Ü';'v';'V';'y';'Y';'z';'Z'];
printfn "%s" (English "baNAnaBAnaNA")▼
let main args=use n=new System.IO.StreamWriter(System.IO.File.Create("out.txt"))
n.WriteLine(Turkish (String.filter((<>)' ') "Meseleyi anlamağa başladı"))
</lang>
{{out}}
<pre>
aaaAAAbBnnNN
aaaaaabdeeeğıilllmMnsşy
</pre>
| |||