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

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

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

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にしてます。