Zaczerpnięty z zimowego konkursu programistycznego ACM 2013. Jesteś osobą, która lubi brać rzeczy dosłownie. Dlatego dla was koniec Świata jest wydany; ostatnie litery „The” i „World” zostały połączone.

Stwórz program, który pobiera zdanie, i wypisz ostatnią literę każdego słowa w tym zdaniu na możliwie najmniejszej przestrzeni (jak najmniej bajtów). Słowa są oddzielone tylko literami alfabetu (65–90, 97–122 w tabeli ASCII.) Oznacza to, że znaki podkreślenia, tyldy, groby, nawiasy klamrowe itp. Są separatorami. Między każdym słowem może znajdować się więcej niż jeden separator.

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 bajtów

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

Wymaga -pprzełącznika linii poleceń. Nazwana właściwość Lpasuje tylko do znaków literowych A-Za-z. Istnieje kilkaset takich nazwanych właściwości, ale w przypadku tekstu ASCII bardzo niewiele z nich jest interesujących. Poza \pLtym jedyną prawdziwą nutą jest \pP, która pasuje do interpunkcji.

Wypróbuj online!

Perl 5, 17 bajtów

Jednobajtowe ulepszenie Dom Hastings

print/\pL*(\pL)/g

Wymaga -n(i -ldo obsługi wielu wejść).

Wypróbuj online!

Przykładowe użycie

$ 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 znaków

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

Tak więc świat kończy się na ed. Ponieważ lubię być zbyt dosłowny, postanowiłem napisać, aby napisać rozwiązanie w ed - i najwyraźniej jest to faktycznie język programowania . Jest zaskakująco krótki, nawet biorąc pod uwagę wiele krótszych rozwiązań w tym wątku. Byłoby miło, gdybym mógł użyć czegoś innego [a-zA-Z], ale biorąc pod uwagę, że ed nie jest językiem programowania, jest wystarczająco dobry.

Po pierwsze, chciałbym powiedzieć, że analizuje to tylko ostatni wiersz w pliku. Można by parsować więcej, wystarczy wpisać ,na początku dwóch pierwszych wierszy (to określiło zakres „wszystko”, w przeciwieństwie do standardowego zakresu ostatniego wiersza), ale zwiększyłoby to rozmiar kodu do 37 znaków.

Teraz wyjaśnienia. Pierwszy wiersz robi dokładnie to samo, co robi Perl (z wyjątkiem bez obsługi znaków Unicode). Nie skopiowałem rozwiązania Perla, właśnie wynalazłem coś podobnego przez przypadek.

Drugi wiersz wypisuje ostatni wiersz, dzięki czemu można zobaczyć wynik. Trzecia linia zmusza do wyjścia - muszę to zrobić, w przeciwnym edrazie wydrukuje, ?aby przypomnieć, że nie zapisałeś pliku.

Teraz, jak to wykonać. To bardzo proste. Po prostu uruchom edz plikiem zawierającym przypadek testowy, podczas pipetowania mojego programu, w ten sposób.

ed -s testcase < program

-smilczy. Zapobiega to edwysyłaniu brzydkiego rozmiaru pliku na początku. W końcu używam go jako skryptu, a nie edytora, więc nie potrzebuję metadanych. Gdybym tego nie zrobił, ed pokazałby rozmiar pliku, którego inaczej nie mogłem zapobiec.

JavaScript, 49

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

Używa wyrażenia regularnego, aby usunąć wszystkie znaki poprzedzające literę, a także wszystkie znaki nieliterowe. Następnie zostaje nam ostatnia litera każdego słowa.

Dzięki Tomsmeding dla miłej poprawy.

C, 78

Gra w golfa:

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

Z białymi znakami:

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

Wydajność:

GNU Sed, 40 38 37

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

Testowanie

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

Uruchom sed:

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

Wydajność:

flvmrp
ststbts
citwR

Wyjaśnienie

Pierwsze podstawienie zastępuje wszystkie granice słów poprzedzone wybraną grupą dopasowania nową linią. Ułatwia to usunięcie wszystkich obcych znaków w drugiej zamianie.

Edytować

• Użyj flagi bez rozróżniania wielkości liter (-2), dzięki manatwork .
• Nie licz białych znaków (-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

Jeśli potrzebna jest ostateczna new-line, należy wymienić tr -d \\nz paste -sd ''.

Edytować

• Użyj grep bez rozróżniania wielkości liter (-2), dzięki manatwork .
• Użyj trzamiast paste(-4), dzięki manatwork .
• Nie licz białych znaków wokół potoku (-2).

sed, 37 znaków

Równa długość do odpowiedzi Thora , ale myślę, że prościej.

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

Logika jest dość trywialna - zamień sekwencje liter na ostatnią literę, a następnie usuń wszystkie nie-litery.

Mathematica, 39

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

Test:

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

Zakładając, że ciąg jest już w s:

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

Jeśli potrzebujesz czytać z monitu i drukować, zamiast korzystać z danych wyjściowych REPL, przekonwertuj sna readLinei zapakuj println()dla 59.

x86: 54 bajty

Załóżmy procedurę cdecl z podpisem 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 jest językiem wciąż w fazie beta, ale wydaje się, że działa dobrze z golfem kodowym, więc pomyślałem, że równie dobrze mogę pokazać jeszcze jedno krótkie i funkcjonalne rozwiązanie (i trochę reklamować język :-)).

Mathematica 62 57 52

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

Testowanie

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 znaków

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

Prawidłowo dotyczy wielkich liter i znaków podkreślenia. W 2 jest przekazać re.subdo re.IGNORECASEflagi bez konieczności użycia re.I.

Python, 76 znaków

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

Python 3.x, 64 bajty

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

Lua, 42 lata

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

Przykład użycia: lua script.lua "asdf jkl;__zxcv~< vbnm,.qwer| |uiop"

Mathematica 71 47 45 61

Wróć do tablicy kreślarskiej po tym, jak @belisarius znalazł błąd w kodzie.

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

Testowanie

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

Wkład: 435_ASDC__uio;|d re;fG o55677jkl..f

Wydajność: CodeGolf

To rozwiązanie można skrócić do 67 znaków, jeśli zezwolisz, aby na początku były uwzględniane znaki cofania (kod ASCII 8). Dane wyjściowe będą wizualnie identyczne.

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

To samo wejście, (wizualnie) to samo wyjście. <BS>ma być znakiem backspace.

DO#

Metoda, 105 bajtów: (zakłada użycia dla System, System.Text.RegularExpressions i System.Linq)

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

Program, 211 bajtów:

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) znaków

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

Należy uruchomić za pomocą -pprzełącznika:

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

Siatkówka , 16 bajtów

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

Wypróbuj online!

Wyjaśnienie

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

Siatkówka , 20 bajtów

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

Wypróbuj online

Ten program jest kompatybilny z wersją 0.8.2

Java 8, 43 bajty

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

Port odpowiedzi Retina @ mbomb007 .

Wyjaśnienie:

Wypróbuj 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

Dodatkowe wyjaśnienie wyrażenia regularnego:

"(?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 flavour
122 char z tradycyjnym formatowaniem tej metody dodany do String:

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

62 znaki w Pharo 1.4, z wyrażeniem regularnym i dziwnym formatowaniem

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

J: 60 znaków (lub 38 znaków w przypadku mniej poprawnej wersji)

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

Jeśli chcemy, aby program się zepsuł, gdy tylko słowa kończą się dwukropkiem lub znakiem podkreślenia, możemy uprościć to do 38 znaków.

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

Przykładowy przebieg:

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

To jest w PHP . 197 bajtów :( Jestem początkujący

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

ZMIENIONO Teraz jest 171 bajtów

<?$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 bajtów

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

Spróbuj