Tiré directement du Concours de programmation d'hiver ACM 2013. Vous êtes une personne qui aime prendre les choses au pied de la lettre. Par conséquent, pour vous, la fin du Monde est finie; les dernières lettres de "The" et "World" concaténées.

Créez un programme qui prend une phrase et affichez la dernière lettre de chaque mot de cette phrase dans le moins d'espace possible (le moins d'octets). Les mots sont séparés par autre chose que des lettres de l'alphabet (65 - 90, 97 - 122 sur la table ASCII.) Cela signifie que les traits de soulignement, les tildes, les tombes, les accolades, etc. sont des séparateurs. Il peut y avoir plus d'un séparateur entre chaque mot.

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 octets

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

Nécessite un -pcommutateur de ligne de commande. La propriété nommée Lcorrespond uniquement aux caractères de lettre A-Za-z. Il existe plusieurs centaines de ces propriétés nommées, mais quand il s'agit de texte ASCII, très peu d'entre elles sont intéressantes. En outre \pL, la seule autre note réelle est\pP qui correspond à la ponctuation.

Essayez-le en ligne!

Perl 5, 17 octets

Une amélioration d'un octet par Dom Hastings

print/\pL*(\pL)/g

Nécessite -n(et -lpour prendre en charge plusieurs entrées).

Essayez-le en ligne!

Exemple d'utilisation

$ 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 caractères

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

Ainsi, le monde se termine en éd. Comme j'aime être trop littéral, j'ai décidé d'écrire pour écrire la solution avec ed - et apparemment c'est en fait un langage de programmation . C'est étonnamment court, même si de nombreuses solutions plus courtes existent déjà dans ce fil. Ce serait plus agréable si je pouvais utiliser autre chose que [a-zA-Z], mais étant donné que ed n'est pas un langage de programmation, il est en fait assez bon.

Tout d'abord, je voudrais dire que cela analyse uniquement la dernière ligne du fichier. Il serait possible d'analyser davantage, il suffit de taper, au début des deux premières lignes (cette plage "tout" spécifiée, par opposition à la plage de dernière ligne standard), mais cela augmenterait la taille du code à 37 caractères.

Maintenant pour des explications. La première ligne fait exactement ce que fait la solution Perl (sauf sans prise en charge des caractères Unicode). Je n'ai pas copié la solution Perl, j'ai juste inventé quelque chose de similaire par hasard.

La deuxième ligne imprime la dernière ligne, vous pouvez donc voir la sortie. La troisième ligne force à quitter - je dois le faire, sinon edj'imprimerais? pour vous rappeler que vous n'avez pas enregistré le fichier.

Maintenant, comment l'exécuter. Eh bien, c'est très simple. Exécutez simplement edle fichier contenant le cas de test, tout en canalisant mon programme, comme ça.

ed -s testcase < program

-sest silencieuse. Cela empêche edde sortir une taille de fichier laide au début. Après tout, je l'utilise comme script, pas comme éditeur, donc je n'ai pas besoin de métadonnées. Si je ne le faisais pas, ed montrerait la taille du fichier que je ne pourrais pas empêcher autrement.

Javascript, 49

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

Il utilise une expression régulière pour supprimer tous les caractères qui précèdent une lettre, ainsi que tous les caractères non-lettre. Ensuite, nous nous retrouvons avec la dernière lettre de chaque mot.

Merci à tomsmeding pour une belle amélioration.

C, 78

Golfé:

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

Avec espace:

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

Sortie:

GNU Sed, 40 38 37

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

Essai

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

Exécutez sed:

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

Sortie:

flvmrp
ststbts
citwR

Explication

La première substitution remplace toutes les limites de mots, qui sont précédées par le groupe de correspondance souhaité, par une nouvelle ligne. Cela facilite la suppression de tous les caractères étrangers dans la deuxième substitution.

modifier

• Utilisez un drapeau insensible à la casse (-2), merci manatwork .
• Ne comptez pas les espaces (-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

Si une nouvelle ligne finale est nécessaire, remplacez-la tr -d \\npar paste -sd ''.

modifier

• Utilisez grep insensible à la casse (-2), merci manatwork .
• Utilisez trau lieu de paste(-4), merci manatwork .
• Ne comptez pas les espaces autour du tuyau (-2).

sed, 37 caractères

Longueur égale à la réponse de Thor , mais, je pense, plus simple.

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

La logique est assez banale - remplacez les séquences de lettres par leur dernière lettre, puis supprimez toutes les non-lettres.

Mathematica, 39

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

Tester:

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

En supposant que la chaîne est déjà dans s:

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

Si vous devez lire à partir d'une invite et imprimer plutôt que d'utiliser la sortie REPL, convertissez sen readLineet encapsulez println()pour 59.

x86: 54 octets

Supposons une routine cdecl avec la signature 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 est un langage encore dans sa phase bêta, mais il semble bien fonctionner avec le code golf alors j'ai pensé que je pourrais aussi bien montrer une autre solution courte et fonctionnelle (et annoncer un peu le langage :-)).

Mathematica 62 57 52

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

Essai

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 caractères

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

Traite correctement les majuscules et les soulignements. Le 2 est de passer re.suble re.IGNORECASEdrapeau sans avoir à utiliser re.I.

Python, 76 caractères

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

Python 3.x, 64 octets

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

Lua, 42

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

Exemple d'utilisation: lua script.lua "asdf jkl;__zxcv~< vbnm,.qwer| |uiop"

Mathematica 71 47 45 61

Retour à la planche à dessin, après que @belisarius a trouvé une erreur dans le code.

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

Essai

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

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

Sortie: CodeGolf

Cette solution peut être raccourcie à 67 caractères si vous autorisez la sortie à inclure des caractères de retour arrière (code ASCII 8) au début. La sortie sera visuellement identique.

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

Même entrée, (visuellement) même sortie. <BS>est censé être le caractère de retour arrière.

C #

Méthode, 105 octets: (suppose des utilisations pour System, System.Text.RegularExpressions et System.Linq)

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

Programme, 211 octets:

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) caractères

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

Doit être exécuté avec le -pcommutateur:

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

Rétine , 16 octets

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

Essayez-le en ligne!

Explication

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

Rétine , 20 octets

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

Essayez-le en ligne

Ce programme est compatible avec la version 0.8.2

Java 8, 43 octets

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

Port de la réponse Retina de @ mbomb007 .

Explication:

Essayez-le en ligne.

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

Explication supplémentaire pour l'expression régulière:

"(?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 flaveur
122 caractères avec une mise en forme traditionnelle pour cette méthode ajoutée à String:

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

62 caractères dans Pharo 1.4, avec regex et formatage bizarre

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

J: 60 caractères (ou 38 caractères pour une version moins correcte)

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

Si nous voulons laisser le programme s'arrêter chaque fois qu'il y a des mots se terminant par deux points ou un trait de soulignement, nous pouvons simplifier cela à 38 caractères.

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

Exemple d'exécution:

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

It's in PHP. 197 bytes :( I'm beginner

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

EDITED Now it's 171 bytes

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

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

Try it