Transliterate English text using the Greek alphabet: Difference between revisions

{{trans|Julia}}

Implementation:

W=. (#~ tolower=toupper) (32}.127{.a.)-.":1234567890x

,(x,"1 0 W);&(7&u:)"1 y,"1 0 W

'D';'Δ'; 'F';'Φ'; 'G';'Γ'; 'J';'I'; 'L';'Λ'; 'P';'Π'; 'Q';'Κ';

'R';'Ρ'; 'S';'Σ'; 'Y';'U'; 'W';'Ω'; 'X';'Ξ'

 

Examples:

txt2=:{{)n

I was looking at some rhododendrons in my back garden,

 

trans txt3

 

=={{header|Julia}}==

"""The quick brown fox jumped over the lazy dog.""",

"""I was looking at some rhododendrons in my back garden,

println("$txt\n", "="^65)

end

<pre>

The quick brown fox jumped over the lazy dog.

 

=={{header|Perl}}==

use experimental 'for_list';

use utf8;

'The quick brown fox jumped over the lazy dog.',

'I was looking at some rhododendrons in my back garden, dressed in my khaki shorts, when the telephone rang.',

{{out}}

<pre>The quick brown fox jumped over the lazy dog.

Just for a laugh, figure out the rules directly from the task description.

You can run this online [http://phix.x10.mx/p2js/greek.htm here] (and it'll probably look better in a browser than on a Windows console).

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #008080;">constant</span> <span style="color: #000000;">task</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"""

<span style="color: #000000;">g</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">extract</span><span style="color: #0000FF;">(</span><span style="color: #000000;">names</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">substitute_all</span><span style="color: #0000FF;">(</span><span style="color: #000000;">thedog</span><span style="color: #0000FF;">,</span><span style="color: #000000;">sub</span><span style="color: #0000FF;">,</span><span style="color: #000000;">rep</span><span style="color: #0000FF;">)),</span><span style="color: #008000;">""</span><span style="color: #0000FF;">)</span>

<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%s\n=&gt;\n%s\n\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">thedog</span><span style="color: #0000FF;">,</span><span style="color: #000000;">g</span><span style="color: #0000FF;">})</span>

{{out}}

<pre>

 

=={{header|Raku}}==

my %pre = :Ph<F>, :ck<k>, :ee<h>, :J<I>, :rh<r>,:oo<w>, :ph<f>, :ch<χ>,

:th<θ>, :ps<ψ>, :Ch<Χ>, :Th<Θ>, :Ps<Ψ>, :kh<χ>, 's ' => 'ς ';

'<' ~ .uniname.subst( /.+<?after LETTER\s>/).lc ~ '>'

}).join

{{out}}

<pre>English:

=={{header|Wren}}==

{{libheader|Wren-str}}

 

var English2Greek = Fn.new { |text|

s = s + c

}

 

{{out}}