北の国からモールス

枠があいていたのでやっつけでございます、すいません。

北の国からを見ていて、「アアー アアアア アー」の所で、「トンツー トントントントン　ツー」と口ずさんだ経験はみなさんお持ちだと思います¹。

ということで、今日は、イロハモールスに変換してみました。

kashi = "アアー アアアア アー
ンンー ンンンン ンーンン
ンンン ンンン ンン
アーア アアアア アーアー
アアー アアアア アー
ンンー ンンンン ンーンン
ンンン ンンン ンン
ラララララ ラー ララララー
ララララー ラララー ララ
ラララララ ラー ウウウ フフフ
ンンンンン ンンンン
ンンンン ン
アー アアアア アーアー
アアー アアアア アー
ンンー ンンンン ンーンン
ンンン ンンン ンン
アーア アアアア アーアー
アアー アアアア アー
アアー アアアア アーアア
ンンン ンンン ンン
ンンン ンンン ンン"

m_to_i_txt = "
イ .- 
ノ ..--
ロ .-.- 
オ .-...
ハ -... 
ク ...-
ニ -.-. 
ヤ .--
ホ -.. 
マ -..-
ヘ . 
ケ -.--
ト ..-..
フ --..
チ ..-. 
コ ----
リ --. 
エ -.---
ヌ .... 
テ .-.--
ル -.--.
ア --.--
ヲ .--- 
サ -.-.-
ワ -.- 
キ -.-..
カ .-.. 
ユ -..--
ヨ -- 
メ -...-
タ -. 
ミ ..-.-
レ --- 
シ --.-.
ソ ---. 
ヱ .--..
ツ .--. 
ヒ --..-
ネ --.- 
モ -..-.
ナ .-. 
セ .---.
ラ ... 
ス ---.-
ム - 
ン .-.-.
ウ ..- 
ヰ .-..- 
゛ ..
゜ ..--.
1 .---- 
2 ..---
3 ...--
4 ....-
5 ..... 
6 -....
7 --...
8 ---..
9 ----. 
0 ----- 
"

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("[ア-ン]", ".", chartr("ー\n", "- ", kashi)), " ")[[1]]
paste(i_to_m[morse], collapse="")

[1] "ウヌイウヌカララ゛ナヌロウヌイウヌカララ゛5イ44ク゛5イララ5ヌヌヘイヌロウヌイウヌカララ゛ナヌロウヌイウヌカララ゛ララ゛"

なんか官能的・・・

本当にゴメンなさい。

1. アマ無線技士免許取得系なら間違いなく。 ↩