Diambil langsung dari ACM Winter Programming Contest 2013. Anda adalah orang yang suka mengambil sesuatu secara harfiah. Karena itu, bagimu, akhir Dunia adalah ed; huruf terakhir dari "The" dan "World" disatukan.

Buat program yang mengambil kalimat, dan keluarkan huruf terakhir dari setiap kata dalam kalimat itu dalam ruang sesedikit mungkin (byte paling sedikit). Kata-kata dipisahkan dengan apa pun kecuali huruf dari alfabet (65 - 90, 97 - 122 pada tabel ASCII.) Itu berarti menggarisbawahi, tildes, kuburan, kurung kurawal, dll adalah pemisah. Mungkin ada lebih dari satu pemisah antara setiap kata.

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 byte

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

Membutuhkan -psaklar baris perintah. Properti yang disebutkan Lhanya cocok dengan karakter huruf A-Za-z. Ada beberapa ratus properti yang dinamai demikian, tetapi ketika berhadapan dengan teks ASCII, sangat sedikit yang menarik. Selain itu \pL, satu-satunya yang lain dari not nyata adalah \pP, yang cocok dengan tanda baca.

Cobalah online!

Perl 5, 17 byte

Peningkatan satu byte oleh Dom Hastings

print/\pL*(\pL)/g

Membutuhkan -n(dan -lmendukung banyak input).

Cobalah online!

Penggunaan sampel

$ 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 karakter

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

Jadi, dunia berakhir pada ed. Karena saya ingin menjadi terlalu literal, saya memutuskan untuk menulis untuk menulis solusinya dengan ed - dan ternyata itu sebenarnya bahasa pemrograman . Ini mengejutkan pendek, bahkan mempertimbangkan banyak solusi yang lebih pendek sudah ada di utas ini. Akan lebih baik jika saya bisa menggunakan sesuatu selain [a-zA-Z], tetapi mengingat ed bukan bahasa pemrograman, itu sebenarnya cukup baik.

Pertama, saya ingin mengatakan ini hanya mem-parsing baris terakhir dalam file. Dimungkinkan untuk mem-parsing lebih banyak, cukup ketik ,di awal dua baris pertama (rentang "semuanya" yang ditentukan ini, yang bertentangan dengan rentang baris terakhir standar), tetapi itu akan meningkatkan ukuran kode menjadi 37 karakter.

Sekarang untuk penjelasan. Baris pertama melakukan persis apa yang dilakukan solusi Perl (kecuali tanpa dukungan untuk karakter Unicode). Saya belum menyalin solusi Perl, saya baru saja menemukan sesuatu yang serupa secara kebetulan.

Baris kedua mencetak baris terakhir, sehingga Anda bisa melihat hasilnya. Kekuatan garis ketiga berhenti - saya harus melakukannya, jika tidak edakan mencetak ?untuk mengingatkan Anda bahwa Anda belum menyimpan file.

Sekarang untuk bagaimana menjalankannya. Yah, ini sangat sederhana. Jalankan saja eddengan file yang berisi test case, sambil mem-pipkan program saya, seperti itu.

ed -s testcase < program

-sdiam. Ini mencegah eddari menghasilkan ukuran file yang jelek di awal. Bagaimanapun, saya menggunakannya sebagai skrip, bukan editor, jadi saya tidak perlu metadata. Jika saya tidak melakukan itu, ed akan menunjukkan ukuran file yang saya tidak bisa mencegah sebaliknya.

Javascript, 49

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

Itu menggunakan ekspresi reguler untuk menghapus semua karakter yang datang sebelum huruf, serta semua karakter non-huruf. Lalu kita pergi dengan huruf terakhir dari setiap kata.

Terima kasih kepada Tom untuk perbaikan yang bagus.

C, 78

Golf:

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

Dengan spasi putih:

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

Keluaran:

GNU Sed, 40 38 37

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

Pengujian

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

Jalankan sed:

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

Keluaran:

flvmrp
ststbts
citwR

Penjelasan

Substitusi pertama menggantikan semua batas kata, yang didahului oleh grup pertandingan yang diinginkan, dengan baris baru. Ini membuatnya mudah untuk menghapus semua karakter asing di substitusi kedua.

Edit

• Gunakan flag case-insensitive (-2), terima kasih manatwork .
• Jangan hitung spasi putih (-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

Jika baris baru final diperlukan, ganti tr -d \\ndengan paste -sd ''.

Edit

• Gunakan case- insepitive grep (-2), terima kasih manatwork .
• Gunakan trbukan paste(-4), terima kasih manatwork .
• Jangan hitung spasi putih di sekitar pipa (-2).

sed, 37 karakter

Panjangnya sama dengan jawaban Thor , tetapi, saya pikir, lebih sederhana.

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

Logikanya cukup sepele - ganti urutan huruf dengan huruf terakhir mereka, lalu hapus semua non-huruf.

Mathematica, 39

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

Uji:

""<>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 (atau 43)

Dengan asumsi string sudah ada di s:

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

Jika Anda perlu membaca dari prompt dan mencetak daripada menggunakan output REPL, konversikan ske readLinedan masukkan println()59.

x86: 54 byte

Asumsikan rutin cdecl dengan tanda tangan 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+"

Xi adalah bahasa yang masih dalam fase beta, tetapi tampaknya bekerja dengan baik dengan kode golf jadi saya pikir saya mungkin juga menunjukkan solusi pendek dan fungsional lainnya (dan beriklan sedikit bahasa :-)).

Mathematica 62 57 52

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

Pengujian

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 karakter

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

Berurusan dengan benar dengan huruf kapital dan garis bawah. 2 adalah untuk lulus re.subdengan re.IGNORECASEbendera tanpa harus menggunakan re.I.

Python, 76 karakter

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

Python 3.x, 64 byte

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

Lua, 42

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

Contoh penggunaan: lua script.lua "asdf jkl;__zxcv~< vbnm,.qwer| |uiop"

Mathematica 71 47 45 61

Kembali ke papan gambar, setelah @belisarius menemukan kesalahan dalam kode.

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

Pengujian

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

Memasukkan: 435_ASDC__uio;|d re;fG o55677jkl..f

Keluaran: CodeGolf

Solusi ini dapat disingkat menjadi 67 karakter jika Anda mengizinkan output untuk memasukkan karakter backspace (kode ASCII 8) di awal. Outputnya akan identik secara visual.

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

Input yang sama, (secara visual) output yang sama. <BS>dimaksudkan untuk menjadi karakter backspace.

C #

Metode, 105 byte: (mengasumsikan penggunaan untuk System, System.Text.RegularExpressions and System.Linq)

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

Program, 211 byte:

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) karakter

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

Harus dijalankan dengan -psakelar:

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

Retina , 16 byte

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

Cobalah online!

Penjelasan

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

Retina , 20 byte

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

Cobalah online

Program ini kompatibel dengan versi 0.8.2

Java 8, 43 byte

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

Port @ mbomb007 adalah jawaban Retina .

Penjelasan:

Cobalah online.

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

Penjelasan tambahan untuk regex:

"(?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 flavor
122 char dengan format tradisional untuk metode ini ditambahkan ke String:

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

62 karakter di Pharo 1.4, dengan format regex dan aneh

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

J: 60 karakter (atau 38 karakter untuk versi yang kurang benar)

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

Jika kami bersedia membiarkan program terputus setiap kali ada kata yang berakhir dengan titik dua atau garis bawah, maka kami dapat menyederhanakannya menjadi 38 karakter.

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

Contoh dijalankan:

    (#~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

Ada dalam PHP . 197 byte :( Saya pemula

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

DIedit Sekarang ini 171 byte

<?$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 byte

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

Cobalah