Взятые прямо с зимнего соревнования по программированию ACM 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

изд, 35 знаков

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

Итак, мир заканчивается в ред. Поскольку мне нравится быть слишком буквальным, я решил написать, чтобы написать решение с 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 за хорошее улучшение.

С, 78

Golfed:

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 символов

Равная длина ответа Тора , но, думаю, проще.

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

Логика вполне тривиальна - замените последовательности букв их последней буквой, а затем удалите все не-буквы.

Математика, 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"}

К, 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

Си, 32

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

Язык Xi все еще находится на стадии бета-тестирования, но, похоже, он хорошо работает с Code Golf, поэтому я решил, что с таким же успехом могу показать еще одно короткое и функциональное решение (и немного прорекламировать язык :-)).

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.

Питон, 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 символов, если вы разрешите выводу включать символы возврата (код ASCII 8) в начале. Вывод будет визуально идентичным.

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

62 символа в Pharo 1.4, с регулярным выражением и странным форматированием

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

К 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Ì

Попытайся