Transliterate English text using the Greek alphabet: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl) |
(J draft) |
||
Line 95: | Line 95: | ||
{{Template:Strings}} |
{{Template:Strings}} |
||
<br> |
<br> |
||
=={{header|J}}== |
|||
Implementation: |
|||
<lang J>endings=: {{ |
|||
W=. (#~ tolower=toupper) (32}.127{.a.)-.":1234567890x |
|||
7 u:&.> ,(x,"1 0 W);"1 y,"1 0 W |
|||
}} |
|||
trans=: rplc&(7 u:L:0 ".{{)n |
|||
'ch';'χ'; 'th';'θ'; 'ps';'ψ'; 'ph';'f'; ('s' endings 'ς'), 'Ch';'Χ'; |
|||
'Th';'Θ'; 'Ps';'Ψ'; 'Ph';'F'; 'ee';'h'; 'ck';'κ'; 'rh';'r'; 'kh';'χ'; |
|||
'Kh';'Χ'; 'oo';'w'; 'a';'α'; 'b';'β'; 'c';'κ'; 'd';'δ'; 'e';'ε'; |
|||
'f';'φ'; 'g';'γ'; 'h';'η'; 'i';'ι'; 'j';'ι'; 'k';'κ'; 'l';'λ'; |
|||
'm';'μ'; 'n';'ν'; 'o';'ο'; 'p';'π'; 'q';'κ'; 'r';'ρ'; 's';'σ'; |
|||
't';'τ'; 'u';'υ'; 'v';'β'; 'w';'ω'; 'x';'ξ'; 'y';'υ'; 'z';'ζ'; |
|||
'D';'Δ'; 'F';'Φ'; 'G';'Γ'; 'J';'I'; 'L';'Λ'; 'P';'Π'; 'Q';'Κ'; |
|||
'R';'Ρ'; 'S';'Σ'; 'Y';'U'; 'W';'Ω'; 'X';'Ξ' |
|||
}} -.LF)^:_</lang> |
|||
Examples: |
|||
<lang J>txt1=:'The quick brown fox jumped over the lazy dog.' |
|||
txt2=:{{)n |
|||
I was looking at some rhododendrons in my back garden, |
|||
dressed in my khaki shorts, when the telephone rang. |
|||
As I answered it, I cheerfully glimpsed that the July sun |
|||
caused a fragment of black pine wax to ooze on the velvet quilt |
|||
laying in my patio. |
|||
}} |
|||
txt3=: 'sphinx of black quartz, judge my vow.' |
|||
trans txt1 |
|||
Θε κυικ βροων φοξ ιυμπεδ οβερ θε λαζυ δογ. |
|||
trans txt2 |
|||
I ωας λωκινγ ατ σομε ροδοδενδρονς ιν μυ βακ γαρδεν, |
|||
δρεσσεδ ιν μυ χακι σηορτς, ωηεν θε τελεφονε ρανγ. |
|||
Aς I ανσωερεδ ιτ, I χηρφυλλυ γλιμψεδ θατ θε Iυλυ συν |
|||
καυσεδ α φραγμεντ οφ βλακ πινε ωαξ το ωζε ον θε βελβετ κυιλτ |
|||
λαυινγ ιν μυ πατιο. |
|||
trans txt3 |
|||
σφινξ οφ βλακ κυαρτζ, ιυδγε μυ βοω.</lang> |
|||