R
さだまさし

北の国からモールス(アルファベット版)

More than 3 years have passed since last update.

なんと前回の記事コメントいただいたので、作りました。

そして、アドカレ日曜日が開いていたので登録しておきました。

kashi = "アアー アアアア アー

ンンー ンンンン ンーンン
ンンン ンンン ンン
アーア アアアア アーアー
アアー アアアア アー
ンンー ンンンン ンーンン
ンンン ンンン ンン
ラララララ ラー ララララー
ララララー ラララー ララ
ラララララ ラー ウウウ フフフ
ンンンンン ンンンン
ンンンン ン
アー アアアア アーアー
アアー アアアア アー
ンンー ンンンン ンーンン
ンンン ンンン ンン
アーア アアアア アーアー
アアー アアアア アー
アアー アアアア アーアア
ンンン ンンン ンン
ンンン ンンン ンン"

m_to_i_txt = "
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 --..
1 .----
2 ..---
3 ...--
4 ....-
5 .....
6 -....
7 --...
8 ---..
9 ----.
0 -----
AA .-.-
@ @
"

m_and_i = read.table(textConnection(m_to_i_txt), as.is = TRUE)
i_to_m = m_and_i[, 1]
names(i_to_m) = m_and_i[, 2]
morse = strsplit(gsub("\n", " @ ", gsub("[ア-ン]", ".", chartr("ー", "-", kashi))), " ")[[1]]
gsub("@", " ", paste(i_to_m[morse], collapse=""))

[1] "UHA UHL SSI RHAA UHA UHL SSI 5A4 4VI 5ASS 5H HE AHAA UHA UHL SSI RHAA UHA UHL SSI SSI"

うーん、暗号的。

.-.-NAなので、AAにしてます。