Transliterate English text using the Greek alphabet: Difference between revisions
Transliterate English text using the Greek alphabet (view source)
Revision as of 14:38, 17 June 2022
, 1 year ago→{{header|Raku}}: missed k => kappa
Thundergnat (talk | contribs) m (→{{header|Julia}}: improve) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: missed k => kappa) |
||
Line 159:
my %post =
:ch<χ>, :th<θ>, :ps<ψ>, :Ch<Χ>, :Th<Θ>, :Ps<Ψ>, :kh<χ>, :a<α>, :b<β>, :d<δ>,
:e<ε>, :f<φ>, :g<γ>, :h<η>, :i<ι>, :j<ι>, :k<κ>, :l<λ>, :m<μ>, :n<ν>, :o<ο
:p<π>, :q<κ>, :r<ρ>, :s<σ>, :t<τ>, :u<υ>, :v<β>, :w<ω>, :x<ξ>, :y<υ>, :z<ζ
:A<Α>, :B<Β>, :D<Δ>, :E<Ε>, :F<Φ>, :G<Γ>, :H<Η>, :I<Ι>, :L<Λ>, :M<Μ>, :N<Ν
:O<Ο>, :P<Π>, :Q<Κ>, :R<Ρ>, :S<Σ>, :T<Τ>, :U<Υ>, :W<Ω>, :X<Ξ>, :Z<Ζ>;
$string.=subst(:g, .key, .value ) for flat %pre, %post;
Line 186:
say "Or, to named characters:\n\n$_\n" ~
.&to-Greek.comb.map({ .match(/\W/) ?? $_ !!
'<' ~
}).join
given 'sphinx of black quartz, judge my vow.';</lang>
<pre>English:
Line 206 ⟶ 205:
"Greek":
Ι ωας
δρεσσεδ ιν μυ
Ας Ι ανσωερεδ ιτ, Ι
cαυσεδ α φραγμεντ οφ
λαυινγ ιν μυ πατιο.
σφινξ οφ
================================================================================
Or, to named characters:
sphinx of black quartz, judge my vow.
<sigma><
=={{header|Wren}}==
|