这个问题涉及将摩尔斯电码的输入作为。（句点）和-（减号），并用空格分隔输入。您的任务是将代码转换为标准输出。您可以假定唯一的输入包含在国际摩尔斯电码字母表中找到的字符符号，可以在以下位置找到：http : //en.wikipedia.org/wiki/Morse_code#Letters.2C_numbers.2C_punctuation。

所有输出应使用小写字母。双精度空格应解释为单词空格。

输入样例：

. -..- .- -- .--. .-.. . .-.-.-  ... --- ...

输出：

example. sos

两周后获胜的最短代码。

Mathematica 62

Mathematica让我们作弊

f=ToLowerCase@StringDrop[WolframAlpha[". .- "<>#,"Result"],2]&

f@"."
f@". -..- .- -- .--. .-.. . .-.-.-"
f@".... .- ...- .  -.-- --- ..-  -- --- --- . -..  - --- -.. .- -.-- ..--.."

Ë

例。

你今天有心情吗？

前两个符号.和.-是正确解释小代码所必需的。

德拉特，我希望能在GolfScripters到达之前到达这里：-(

hoo ...

C：228个字符：

char n,t,m[9],*c=" etianmsurwdkgohvf l pjbxcyzq  54 3   2& +    16=/   ( 7   8 90    $       ?_    \"  .    @   '  -        ;! )     ,    :";
main(){while(scanf("%s",m)>0){for(t=m[6]=n=0;m[n];n++)t+=t+1+(m[n]&1);putchar(c[t]);}}

我以为我会对此做一个解释。

根据中的树数据解析输入数据*c，可以将其扩展如下（·用于表示一个空节点）：

                     dot <-- (start) --> dash
                e                               t
        i               a               n               m
    s       u       r       w       d       k       g       o
  h   v   f   ·   l   ·   p   j   b   x   c   y   z   q   ·   ·
 5 4 · 3 · · · 2 & · + · · · · 1 6 = / · · · ( · 7 · · · 8 · 9 0
····$·······?_····"··.····@···'··-········;!·)·····,····:·······

从树的顶部开始，向下移动，同时向左移动一个点，向右移动一个短划线。然后在输入字符串结束时（即，遇到空白字符时）输出您碰巧遇到的任何字符。因此，例如，三个点和线将带你v通过e，i和s。无需显式检查点（ASCII \x2e）和破折号（ASCII \x2d），我们只需要检查最后一位（m[n]&1），即0代表.1 -。

六行足以编码除以外的所有内容，除外$，后者具有7个点/破折号：...-..-，但由于保证输入数据有效，因此可以通过将输入截断为6个字符（m[6]=0）并解释...-..为$来轻松解决。我们还可以从树数据中删除最后7个字节，因为它们都是空的，并且如果输入有效，则不需要。

GolfScript（116 113 97个字符）

这包括在查找表中使用的不可打印字符，因此我将其作为xxd输出：

0000000: 6e2d 2720 272f 7b60 7b5c 6261 7365 2035
0000010: 3925 2210 a9cd 238d 57aa 8c17 d25c d31b
0000020: 432d 783e 277a 3823 e146 e833 6423 23ac
0000030: e72a 39d5 021c 4e33 3b30 3138 dc51 2044
0000040: 3aa7 d001 df4b 2032 333f 36ae 51c3 223d
0000050: 7d2b 5b35 2d34 5d2f 2b32 3333 257d 256e
0000060: 2b

这将解码为与

n-' '/{`{\base 59%"\x10\xA9\xCD#\x8DW\xAA\x8C\x17\xD2\\\xD3\eC-x>'z8#\xE1F\xE83d##\xAC\xE7*9\xD5\x02\x1CN3;018\xDCQ D:\xA7\xD0\x01\xDFK 23?6\xAEQ\xC3"=}+[5-4]/+233%}%n+

这本质上是

n-' '/{`{\base 59%"MAGIC STRING"=}+[5-4]/+233%}%n+

这基于一个用于生成最小完美哈希函数的最佳算法的核心思想使用了（非最小）完美哈希。捷克，哈瓦斯和马耶夫斯基；1992年。他们的基本思想是使用两个哈希函数f1和f2以及一个查找表g，而完美的哈希是(g[f1(str)] + g[f2(str)]) % m（这里m是我们希望区分的字符串数）；聪明的一点是他们建立的方式g。将所有值f1(str)和感兴趣的f2(str)字符串str视为无向图中的节点，并在f1(str)和之间添加一条边f2(str)对于每个字符串。它们不仅要求每个边都不同，而且要求图是非循环的。那么将权重分配给节点（即填充查找表g）只是DFS，这样每个边都有所需的总和即可。

Czech等人生成随机函数，f1并f2通过查找表将其表示出来，但这显然不好：我使用简单的基本转换（具有从-10到9的两个不同基数）搜索了合适的哈希值。我还放宽了非循环的要求。我不想将字符串分配给从0到54的值，而是分配给相应的ASCII码，因此，(g[f1(str)] + g[f2(str)]) % m我不想将它们分配给(g[f1(str)] + g[f2(str)]) % Nsome N > 'z'。但这允许自由尝试各种变量，N并查看它们是否允许有效的查找表g，而不管是否存在循环。与Czech等人不同，我不在乎是否寻找完美的哈希函数是O（n ^ 4）。

-4base和5basemod 生成的图形59为：

除了最大的连接组件（长度为三个周期）之外，这是相当不错的。我们必须N=233先找到一个g一致的值。

C，169个字符

我找不到更好的哈希函数。

（我发布了未最小化的代码，但计数为最小化；要最小化，只需:%s/ //g | %j!在vim中这样做，然后在字符串文字中放回空格。）

c, v = 1;

main() {
  while (c = getchar(), ~c)
    v = c < 33? putchar(
      "& etianmsurwdkgohvf.l.pjbxcyzq..54.3.;!2).+...,16=/:..(.7.?_8.9o\"...$...@...'..-"[v < 64? (v != 40)*v : v % 51 + 33]
    ), 1 : v * 2 + c % 2;
}

测试运行

（morse.in只是莫尔斯语中的整个字母在单独的行上）：

% clang morse.c && ./a.out </tmp/morse.in
abcdefghijklmnopqrstuvwxyzO123456789.,?'!/()&:;=+-_"$@
% ./a.out <<<'. -..- .- -- .--. .-.. . .-.-.-  ... --- ...'
example. sos

说明

这是相当简单的。c < 33找到一个空白/分隔符（，\n，EOF，...）。c % 2将点或破折号转换成一点。想法是简单地通过将每个字符解释为二进制数字（在为前缀加上1以处理可变长度之后）来为每个字符创建唯一数字（这种解释就是其中的v*2 + c%2一部分）。然后，我得到了一个137个字符的LUT，并通过对所得值进行哈希处理（v < 64? v : v % 51 + 33通过试错法找到常量，并查看分布并试图找到一个巨大的缺口）来对其进行压缩。不幸的是，此哈希函数只有一次冲突，这就是为什么我必须对40 → '&'映射进行特殊情况的原因。

R，145字节

将点转换为2，将破折号转换为1，并以三进制形式解释数字并采用mod 89，这给出了我们可以在哈希表中使用的唯一数字。存在13（111 base-3）表示加1，因为ASCII 13在TIO中不起作用。

cat(c(letters,0:9,".")[match(strtoi(chartr(".-","12",scan(,"",t=scan(,""))),3)%%89+1,utf8ToInt('DG,)62	5N*EHMAI.%"!4=@'))],sep='')

在线尝试！

R，236字节（非竞争）

这不会具有竞争力，但是它可以让我们在R中展示一些有趣的东西：将莫尔斯电码树存储在带引号的语言结构中，m并使用[[可以递归地应用于列表。例如m[[c(2,2,3,2)]]检索点，点，破折号，点或“ f”。

m=quote(.(e(i(s(h(5,4),v(,3)),u(f,M(,2))),a(r(l,.(.(,.),)),w(p,j(,1)))),t(n(d(b(6),x),k(c,y)),m(g(z(7),q),o(D(8),S(9,0))))))
for(w in scan(,"",t=scan(,"")))
cat(chartr("MDS","-. ","if"(is.symbol(z<-m[[(utf8ToInt(w)==45)+2]]),z,z[[1]])))

在线尝试！

Powershell，193个字节

$n=1
-join("$args "|% t*y|%{if($_-32){$n=$n*2+($_-ne'.')}else{("  etianmsurwdkgohvf l pjbxcyzq  54 3   2& +~16=/   ( 7   8 90~~~?~ `"  .~@   '  -~~;! )~ ,~:~~~~$"-replace'~','    ')[$n]
$n=1}})

减少高尔夫测试脚本：

$f = {

$n=1
-join(
    "$args "|% t*y|%{
        if($_-32){
            $n=$n*2+($_-ne'.')
        }else{
            ("  etianmsurwdkgohvf l pjbxcyzq  54 3   2& +~16=/   ( 7   8 90~~~?~ `"  .~@   '  -~~;! )~ ,~:~~~~$"-replace'~','    ')[$n]
            $n=1
        }
    }
)

}

@(
    ,("example. sos",". -..- .- -- .--. .-.. . .-.-.-  ... --- ...")
    ,("0123456789abcdefghijklmnopqrstuvwxyz","----- .---- ..--- ...-- ....- ..... -.... --... ---.. ----. .- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. -- -. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --..")
    ,("hello world", ".... . .-.. .-.. ---  .-- --- .-. .-.. -..")
) | % {
    $expected,$s = $_
    $result = &$f $s
    "$($result-eq$expected): $result"
}

输出：

True: example. sos
True: 0123456789abcdefghijklmnopqrstuvwxyz
True: hello world

JavaScript（165字节，仅实现四个平面。）

n=''.replace(/\./g,1).replace(/-/g,0).split(' ')
l='|te|mnai|ogkdwrus|cöqzycxbjpälüfvh'.split('|')
r=''
for(i in n){r+=l[n[i].length][parseInt(n[i],2)]}
alert(r)

应将输入分配给n，执行以下代码以获取输出：

n='. -..- .- -- .--. .-.. .'.replace(/\./g,1).replace(/-/g,0).split(' ')
l='|te|mnai|ogkdwrus|cöqzycxbjpälüfvh'.split('|')
r=''
for(i in n) {r+=l[n[i].length][parseInt(n[i],2)]}
alert(r)