直接取自2013年ACM冬季编程竞赛。您是一个喜欢从字面上看事物的人。因此，对您而言，《世界的尽头》已编辑。“ The”和“ World”的最后一个字母串联在一起。

编写一个包含句子的程序，并以尽可能小的空间（最小字节）输出该句子中每个单词的最后一个字母。单词之间用字母以外的字母分隔（ASCII表上的65-90、97-122）。这意味着下划线，波浪号，坟墓，花括号等是分隔符。每个单词之间可以有多个分隔符。

asdf jkl;__zxcv~< vbnm,.qwer| |uiop-> flvmrp
pigs, eat dogs; eat Bob: eat pigs-> ststbts
looc si siht ,gnitirw esreveR-> citwR
99_bottles_of_beer_on_the_wall->sfrnel

Perl 5，18个字节

s/\pL*(\pL)|./$1/g

需要-p命令行开关。named属性L仅匹配字母字符A-Za-z。有几百个这样的命名属性，但是当处理ASCII文本时，很少有它们是有趣的。此外\pL，任何真实音符中唯一的另一个是\pP，它与标点符号匹配。

在线尝试！

Perl 5，17个字节

Dom Hastings改进了一个字节

print/\pL*(\pL)/g

需要-n（并-l支持多个输入）。

在线尝试！

样品用法

$ more in.dat
asdf jkl;__zxcv~< vbnm,.qwer| |uiop
pigs, eat dogs; eat Bob: eat pigs
looc si siht ,gnitirw esreveR
99_bottles_of_beer_on_the_wall

$ perl -p ends-in-ed.pl < in.dat
flvmrp
ststbts
citwR
sfrnel

ed，35个字符

s/[a-zA-Z]*\([a-zA-Z]\)\|./\1/g
p
Q

因此，世界以ed结尾。就像我太直白了一样，我决定用ed编写解决方案，显然这实际上是一种编程语言。即使考虑到该线程中已经存在许多更短的解决方案，它也很短。如果我可以使用以外的其他[a-zA-Z]语言，那就更好了，但是考虑到ed不是一种编程语言，它实际上已经足够好了。

首先，我想说这仅解析文件的最后一行。可以解析更多内容，只需,在两个第一行（此指定的“所有”范围，而不是标准的最后一行范围）的开头键入内容，但是这会将代码大小增加到37个字符。

现在进行解释。第一行与Perl解决方案完全一样（不支持Unicode字符除外）。我没有复制Perl解决方案，我只是偶然地发明了类似的东西。

第二行显示最后一行，因此您可以看到输出。第三行强制退出-我必须这样做，否则ed会打印出来?以提醒您您尚未保存文件。

现在介绍如何执行它。好吧，这很简单。ed像这样通过管道运行我的程序时，只需运行包含测试用例的文件即可。

ed -s testcase < program

-s保持沉默。这样可以防止ed在开始时输出难看的文件大小。毕竟，我将其用作脚本，而不是编辑器，因此不需要元数据。如果我不这样做，ed将显示我无法避免的文件大小。

Javascript，49

alert(prompt().replace(/.(?=[a-z])|[^a-z]/gi,''))

它使用正则表达式删除字母前面的所有字符以及所有非字母字符。然后剩下每个单词的最后一个字母。

感谢tomsmeding进行了很好的改进。

C，78

打高尔夫球：

main(int c,char**s){for(;c=*s[1]++;)isalpha(c)&&!isalpha(*s[1])?putchar(c):0;}

带空格：

main(int c,char**s)
{
  for(;c=*s[1]++;)
    isalpha(c)&&!isalpha(*s[1])?putchar(c):0;
}

输出：

GNU Sed，40 38 37

s/[a-z]\b/&\n/g; s/[^\n]*\(.\)\n/\1/g

测试中

cat << EOF > data.txt
asdf jkl;__zxcv~< vbnm,.qwer| |uiop
pigs, eat dogs; eat Bob: eat pigs
looc si siht ,gnitirw esreveR
EOF

运行sed：

sed 's/[A-Za-z]\b/&\n/gi; s/[^\n]*\(.\)\n/\1/g' data.txt

输出：

flvmrp
ststbts
citwR

说明

第一次替换用换行符替换所有单词边界，在该单词边界之前是所需的匹配组。这样可以轻松删除第二个替换中的所有多余字符。

编辑

• 使用不区分大小写的标志（-2），感谢manatwork。
• 不要计算空格（-1）。

Grep and Paste，36 34 28

> echo 'asdf jkl;__zxcv~< vbnm,.qwer| |uiop' | grep -io '[a-z]\b' | tr -d \\n
flvmrp

> echo 'pigs, eat dogs; eat Bob: eat pigs'   | grep -io '[a-z]\b' | tr -d \\n
ststbts

echo 'looc si siht ,gnitirw esreveR'         | grep -io '[a-z]\b' | tr -d \\n
citwR

如果需要最后一个换行符，请替换tr -d \\n为paste -sd ''。

编辑

• 使用不区分大小写的grep（-2），感谢manatwork。
• 使用tr代替paste（-4），谢谢manatwork。
• 不要计算管道（-2）周围的空格。

sed，37个字符

与Thor的回答长度相等，但我认为更简单。

s/[a-z]*\([a-z]\)/\1/ig;s/[^a-z]*//ig

逻辑很简单-用最后一个字母替换字母序列，然后删除所有非字母。

Mathematica，39岁

""<>StringCases[#,(__~~x_)?LetterQ:>x]&

测试：

""<>StringCases[#,(__~~x_)?LetterQ:>x]& /@
 {"asdf jkl;__zxcv~< vbnm,.qwer| |uiop",
  "pigs, eat dogs; eat Bob: eat pigs",
  "looc si siht ,gnitirw esreveR",
  "99_bottles_of_beer_on_the_wall"}

{"flvmrp", "ststbts", "citwR", "sfrnel"}

K，49

{last'f@&"b"$#:'f:"|"\:@[x;&~x in,/.Q`a`A;:;"|"]}

。

k){last'f@&"b"$#:'f:"|"\:@[x;&~x in,/.Q`a`A;:;"|"]}"asdf jkl;__zxcv~< vbnm,.qwer| |uiop"
"flvmrp"
k){last'f@&"b"$#:'f:"|"\:@[x;&~x in,/.Q`a`A;:;"|"]}"pigs, eat dogs; eat Bob: eat pigs"
"ststbts"
k){last'f@&"b"$#:'f:"|"\:@[x;&~x in,/.Q`a`A;:;"|"]}"looc si siht ,gnitirw esreveR"
"citwR"

Scala，59岁（或43岁）

假设字符串已经在s：

s.split("[^a-zA-Z]+").map(_.last).mkString

如果你需要从一个提示，阅读和打印而不是使用REPL输出，转换s到readLine在包裹println()59。

x86：54个字节

假定一个带有签名的cdecl例程void world_end(char *input, char *output)：

60 8b 74 24 24 8b 7c 24 28 33 d2 8a 0e 8a c1 24
df 3c 41 72 08 3c 5a 77 04 8a d1 eb 09 84 d2 74
05 88 17 47 33 d2 46 84 c9 75 e0 84 d2 74 03 88
17 47 88 0f 61 c3

，32

println$ @{=>.-1}<>input re"\W+"

Xi是一种仍处于测试阶段的语言，但是它似乎可以与代码高尔夫一起很好地工作，因此我认为我不妨展示另一种简短且实用的解决方案（并稍微宣传一下该语言：-）。

Mathematica 62 57 52

Row@StringTake[StringCases[#,LetterCharacter..],-1]&

测试中

l = {"asdf jkl;__zxcv~<vbnm,.qwer| |uiop", 
     "pigs,eat dogs;eat Bob:eat pigs", 
     "looc si siht,gnitirw esreveR"}

Row@StringTake[StringCases[#,LetterCharacter..],-1]&/@ l
(*{flvmrp,ststbts,citwR}*)

Python3，59个字符

import re;print(re.sub('.(?=[a-z])|[^a-z]','',input(),0,2))

正确处理大写字母和下划线。2是通过re.sub所述re.IGNORECASE标志而不必使用re.I。

Python，76个字符

import re;print "".join(re.findall("([a-zA-Z])(?=$|[^a-zA-Z])",raw_input()))

Python 3.x，64字节

import re;print(''.join(a[-1] for a in re.split('\W+',input())))

卢阿（42岁）

print(((...):gsub('.-(.)%f[%A]%A*','%1')))

用法示例： lua script.lua "asdf jkl;__zxcv~< vbnm,.qwer| |uiop"

Mathematica 71 47 45 61

@belisarius在代码中发现错误后，返回到绘图板。

StringCases[#, RegularExpression["[A-Za-z](?![A-Za-z])"]] <> "" &

测试中

l = {"asdf jkl;__zxcv~<vbnm,.qwer| |uiop", "asdf jkl__zxcv~<vbnm,.qwer| |uiop", 
"pigs,eat dogs;eat Bob:eat pigs", "looc si siht,gnitirw esreveR"};

StringCases[#, RegularExpression["[A-Za-z](?![A-Za-z])"]] <> "" & /@ l

{“ flvmrp”，“ flvmrp”，“ ststbts”，“ citwR”}

蟒蛇2，88 80 75 69 68

s=p=''
for c in raw_input()+' ':a=c.isalpha();s+=p[a:];p=c*a
print s

输入： 435_ASDC__uio;|d re;fG o55677jkl..f

输出： CodeGolf

如果允许输出在开始时包含退格字符（ASCII码8），则此解决方案可以缩短为67个字符。输出将在视觉上相同。

s=p='<BS>'
for c in raw_input()+p:a=c.isalpha();s+=p[a:];p=c*a
print s

相同的输入，（在视觉上）相同的输出。<BS>是指退格字符。

C＃

方法，105字节：（假设对System，System.Text.RegularExpressions和System.Linq使用）

string R(string i){return string.Concat(Regex.Split(i,"[^a-zA-Z]").Where(x=>x!="").Select(n=>n.Last()));}

程序，211字节：

using System;using System.Text.RegularExpressions;using System.Linq;class A{static void Main(){Console.WriteLine(string.Concat(Regex.Split(Console.ReadLine(),"[^a-zA-Z]").Where(x=>x!="").Select(n=>n.Last())));}}

VBA，147 161

Sub a(s)
For n=0 To 255:m=Chr(n):s=Replace(s,IIf(m Like"[A-Za-z]","",m)," "):Next
For Each r In Split(s," "):t=t & Right(r,1):Next
MsgBox t
End Sub

Ruby 2.0，25（+1）个字符

gsub(/(\w+)\W*/){$1[-1]}

必须与-p开关一起运行：

 $ ruby -p ed.rb <<< "asdf jkl;__zxcv~< vbnm,.qwer| |uiop"
flvmrp

视网膜，16字节

Li, -1|""`[a-z]+

在线尝试！

说明

Li, -1|""`[a-z]+
L         [a-z]+        List all the sequences of letters in the input
 i                      case insensitive
  ,                     Keep all the results
    -1                  but only the last character for each of them
      |""               Use the empty string as separator

视网膜，20字节

i`.(?=[a-z])|[^a-z]

在线尝试

该程序与0.8.2版本兼容

Java 8，43字节

s->s.replaceAll("(?i).(?=[a-z])|[^a-z]","")

@ mbomb007的Retina端口。

说明：

在线尝试。

s->  // Method with String as both parameter and return-type
  s.replaceAll("(?i).(?=[a-z])|[^a-z]","")
     //  Remove every match of this regex, and return as result

正则表达式的其他说明：

"(?i).(?=[a-z])|[^a-z]"  // Main regex to match
 (?i)                    //  Case insensitive
     .                   //   Any character
      (?=[a-z])          //   Followed by a letter (as positive look-ahead)
               |[^a-z]   //   or a non-letter

""                       // Replace it with: nothing

Smalltalk，Squeak / Pharo风味
122字符，具有此方法的传统格式，已添加到String中：

endOfWords
    ^(self subStrings: (CharacterSet allCharacters select: #isLetter) complement) collect: #last as: String

Pharo 1.4中有62个字符，带有正则表达式和奇怪的格式

endOfWords^''join:(self regex:'[a-zA-Z]+'matchesCollect:#last)

J：60个字符（对于较不正确的版本，则为38个字符）

(#~e.&(,26&{.&(}.&a.)"0(97 65))){:&>;:]`(' '"_)@.(e.&'_:')"0

如果我们愿意在出现以冒号或下划线结尾的单词时让程序中断，则可以将其简化为38个字符。

(#~e.&(,26&{.&(}.&a.)"0(97 65))){:&>;:

样品运行：

    (#~e.&(,26&{.&(}.&a.)"0(97 65))){:&>;:]`(' '"_)@.(e.&'_:')"0'asdf jkl;__zxcv~< vbnm,.qwer| |uiop'
flvmrp
    (#~e.&(,26&{.&(}.&a.)"0(97 65))){:&>;:]`(' '"_)@.(e.&'_:')"0'pigs, eat dogs; eat Bob: eat pigs'
ststbts
    (#~e.&(,26&{.&(}.&a.)"0(97 65))){:&>;:]`(' '"_)@.(e.&'_:')"0'99_bottles_of_beer_on_the_wall'
sfrnel

在PHP中。197字节:(我是初学者

$l=$_GET['line'];
$l=preg_replace('/(\W|_)+/',' ',$l);
$s=explode(' ',$l);
foreach($s as $d){
$a=substr($d,-1,1);
$o=ORD($a);
if(($o>=97 && $o<=122) || ($o>=65 && $o<=90)){
echo $a;
  }
}

编辑 现在是171个字节

<?$l=$_GET['l'];$l=preg_replace('/(\W|_)+/',' ',$l);$s=explode(' ',$l);foreach($s as $d){$a=substr($d,-1,1);$o=ORD($a);if(($o>=97&&$o<=122)||($o>=65&&$o<=90)){echo$a;}}

K 30

q)k)f:{x@&-1=-':(1_x," ")in,/.Q`a`A}
q)f "asdf jkl;__zxcv~< vbnm,.qwer| |uiop"
"flvmrp"
q)f "pigs, eat dogs; eat Bob: eat pigs"
"ststbts"
q)f "looc si siht ,gnitirw esreveR"
"citwR"
q)f "99_bottles_of_beer_on_the_wall"
"sfrnel"

Japt v2，16个字节

r/\L*\l+)\L*/@YÌ

试试吧