ถ่ายโดยตรงจากการประกวดการเขียนโปรแกรม ACM Winter 2013 คุณเป็นคนที่ชอบทำสิ่งต่าง ๆ อย่างแท้จริง ดังนั้นสำหรับคุณการสิ้นสุดของโลกจึงเป็นเอ็ด ตัวอักษรสุดท้ายของ "The" และ "World" เรียงต่อกัน

จัดทำโปรแกรมที่ใช้ประโยคและพิมพ์ตัวอักษรสุดท้ายของแต่ละคำในประโยคนั้นให้มีพื้นที่น้อยที่สุดเท่าที่จะเป็นไปได้ คำจะถูกคั่นด้วยอะไรก็ได้ยกเว้นตัวอักษรจากตัวอักษร (65 - 90, 97 - 122 บนตาราง ASCII) นั่นหมายถึงขีดล่างเครื่องหมายตัวหนอนหลุมฝังศพเครื่องหมายวงเล็บปีกกา ฯลฯ เป็นตัวคั่น แต่ละคำมีตัวคั่นมากกว่าหนึ่งตัว

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อีกหนึ่งบันทึกจริงอื่น ๆ คือ\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

ดังนั้นโลกจึงสิ้นสุดลงในเอ็ด ขณะที่ผมชอบที่จะเป็นตัวอักษรเกินไปฉันตัดสินใจที่จะเขียนจะเขียนแก้ปัญหาด้วยเอ็ด - และเห็นได้ชัดว่ามันเป็นจริงการเขียนโปรแกรมภาษา มันสั้นอย่างน่าประหลาดใจแม้จะพิจารณาวิธีแก้ปัญหาสั้น ๆ ที่มีอยู่แล้วในเธรดนี้ มันจะดีกว่าถ้าฉันสามารถใช้สิ่งอื่นนอกเหนือจาก[a-zA-Z]นี้ได้ แต่การพิจารณา ed ไม่ใช่ภาษาการเขียนโปรแกรมมันดีพอจริง ๆ

ก่อนอื่นฉันอยากจะบอกว่านี่แค่แยกวิเคราะห์บรรทัดสุดท้ายในไฟล์ มันจะเป็นไปได้ที่จะแยกวิเคราะห์เพิ่มเติมเพียงพิมพ์,ที่จุดเริ่มต้นของสองบรรทัดแรก (ช่วงนี้ "ทุกอย่าง" ที่ระบุซึ่งตรงข้ามกับช่วงบรรทัดสุดท้ายมาตรฐาน) แต่ที่จะเพิ่มขนาดรหัสถึง 37 ตัวอักษร

ตอนนี้สำหรับคำอธิบาย บรรทัดแรกทำในสิ่งที่โซลูชัน Perl ทำ (ยกเว้นโดยไม่สนับสนุนอักขระ Unicode) ฉันไม่ได้คัดลอกโซลูชัน Perl ฉันเพิ่งคิดค้นสิ่งที่คล้ายกันโดยบังเอิญ

บรรทัดที่สองพิมพ์บรรทัดสุดท้ายดังนั้นคุณจะเห็นผลลัพธ์ บรรทัดที่สามบังคับให้ออก - ฉันต้องทำมิฉะนั้นedจะพิมพ์?เพื่อเตือนคุณว่าคุณไม่ได้บันทึกไฟล์

ตอนนี้สำหรับวิธีดำเนินการ มันง่ายมาก เพียงเรียกใช้edไฟล์ที่มีกรณีทดสอบในขณะที่ไพพ์โปรแกรมของฉันแบบนั้น

ed -s testcase < program

-sเงียบ สิ่งนี้จะป้องกันมิให้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 \\npaste -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"

สกาลา, 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

Xi, 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.subre.IGNORECASEre.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

วิธีการแก้ปัญหานี้สามารถสั้นลงได้ถึง67ตัวอักษรหากคุณอนุญาตให้เอาท์พุทที่จะรวมตัวอักษร Backspace (รหัส ASCII 8) ที่จุดเริ่มต้น ผลลัพธ์จะเหมือนกันทางสายตา

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

อินพุตเดียวกัน, เอาต์พุตเดียวกัน (มองเห็น) <BS>มีความหมายที่จะเป็นตัวอักษร Backspace

C #

วิธีการ105ไบต์: (ถือว่าเป็นการใช้ระบบ, 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]","")

คำตอบของ Retina @ @ mbomb007ของพอร์ตคำตอบ

คำอธิบาย:

ลองออนไลน์

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

คำอธิบายเพิ่มเติมสำหรับ 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 ด้วยการจัดรูปแบบดั้งเดิมสำหรับวิธีนี้เพิ่มลงใน String:

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

62 chars ใน Pharo 1.4 พร้อมการจัดรูปแบบ regex และแปลก

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Ì

ลองมัน