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

펄 5, 18 바이트

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

-p명령 행 스위치가 필요합니다 . 명명 된 속성 L은 문자 만 일치합니다 A-Za-z. 있습니다 수백 명명 된 속성이 있지만, ASCII 문자를 처리 할 때, 그들 중 거의 재미 있습니다. 또한 \pL실제 메모 중 다른 하나는 \pP구두점과 일치합니다.

온라인으로 사용해보십시오!

펄 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가 프로그래밍 언어가 아니라는 것을 고려하면 실제로 충분합니다.

먼저 파일의 마지막 줄만 구문 분석한다고 말하고 싶습니다. ,두 개의 첫 번째 줄의 시작 부분 (표준 마지막 줄 범위와 달리 "모든 항목"범위)을 입력하기 만하면 더 구문 분석 할 수 있지만 코드 크기는 37 자로 늘어납니다.

이제 설명을하겠습니다. 첫 번째 줄은 Perl 솔루션의 기능을 정확하게 수행합니다 (유니 코드 문자를 지원하지 않는 경우 제외). 나는 Perl 솔루션을 복사하지 않았으며 우연의 일치로 비슷한 것을 발명했습니다.

두 번째 줄은 마지막 줄을 인쇄하므로 출력을 볼 수 있습니다. 세 번째 라인의 힘은 종료 - 내가해야 할, 그렇지 않으면 ed인쇄 할 ?파일을 저장하지 않은 있음을 알려.

이제 그것을 실행하는 방법에 대해. 아주 간단합니다. ed내 프로그램을 파이핑하는 동안 테스트 케이스가 들어있는 파일로 실행 하십시오.

ed -s testcase < program

-s조용합니다. 이렇게하면 ed처음에 못생긴 파일 크기가 출력되지 않습니다. 결국, 나는 편집기가 아닌 스크립트로 사용하므로 메타 데이터가 필요하지 않습니다. 그렇게하지 않으면 ed는 달리 막을 수없는 파일 크기를 보여줍니다.

자바 스크립트, 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).

그렙 앤 페이스트, 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 .
• 고마워요 manatworktr 대신 paste(-4) 대신 사용하십시오 .
• 파이프 (-2) 주위의 공백은 계산하지 마십시오.

sed, 37 자

Thor의 대답 과 길이는 같지만 더 간단합니다.

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

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 출력을 사용하지 않고 프롬프트에서 읽고 인쇄해야하는 경우 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

사이, 32

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

Xi 는 아직 베타 단계의 언어이지만 코드 골프와 잘 작동하는 것 같습니다. 그래서 또 다른 짧고 기능적인 솔루션을 보여줄 것이라고 생각했습니다 (그리고 언어를 약간 광고합니다 :-)).

매스 매 티카 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()))

파이썬 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"

매스 매 티카 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"}

파이썬 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>백 스페이스 문자입니다.

기음#

메서드, 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

루비 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와 호환됩니다

자바 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 flavor
122 char이 메소드에 대한 기존 형식이 문자열에 추가되었습니다.

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

편집 됨 이제 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Ì

시도 해봐