ACM Winter Programming Contest 2013から直接取られました。あなたは文字通り物事を好む人です。したがって、あなたのために、世界の終わりが編集されます。「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コマンドラインスイッチが必要です。名前付きプロパティLは文字のみに一致しA-Za-zます。このような名前付きプロパティは数百ありますが、ASCIIテキストを扱う場合、興味深いものはほとんどありません。さらに\pL、実際の音符のもう1つは\pP、句読点に一致するのみです。

オンラインでお試しください！

Perl 5、17バイト

Dom Hastingsによる1バイトの改善

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で書くために書くことにしました- そして明らかにそれは実際にはプログラミング言語です。このスレッドには多くの短いソリューションがすでに存在していることを考えても、驚くほど短いです。以外の何かを使用できればもっといいと思いますが[a-zA-Z]、edはプログラミング言語ではないことを考えると、実際には十分です。

まず、これはファイルの最後の行のみを解析すると言いたいです。,最初の2行（標準の最終行範囲ではなく「すべて」の範囲を指定）の先頭に入力するだけで、さらに解析することも可能ですが、コードサイズが37文字に増加します。

説明のために。最初の行は、Perlソリューションが行うこととまったく同じです（Unicode文字のサポートがない場合を除く）。Perlソリューションをコピーしたわけではなく、偶然にも似たようなものを発明しただけです。

2行目は最終行を出力するため、出力を確認できます。3行目は強制終了します-そうしない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番目の置換ですべての無関係な文字を簡単に削除できます。

編集

• 大文字と小文字を区別しないフラグ（-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出力を使用するのではなく、プロンプトから読み取って印刷する必要がある場合は、59に変換sしreadLineてラップインprintln()します。

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

Xi、32

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

西はまだベータ段階の言語ですが、コードゴルフではうまく機能しているようですので、もう1つの短く機能的なソリューションを示すことができると考えました（言語を少し宣伝します:-)）。

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」}

Python 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文字、このメソッドの従来の書式設定を文字列に追加：

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;
  }
}

EDITED 今はそれだ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Ì

それを試してみてください