Verkleinern Sie jedes Wort in einer Folge von Zeichenketten auf einzelne Buchstaben, die durch Leerzeichen oder Satzzeichen gekennzeichnet sind.

Beispiel

I'm a little teapot,  short and stout. Here is my handle, here is my spout. When I get all steamed up - hear me shout!   Tip me over and pour me out. 

wird

I' a l t, s a s. H i m h, h i m s. W I g a s u - h m s! T m o a p m o. 

Bearbeiten - Wenn mehrere Leerzeichen vorhanden sind, behalten Sie nur ein Leerzeichen bei. Alle Interpunktion sollte erhalten bleiben, ich habe den Apostroph verpasst. Ja das ist Code Golf :-).

CJam, 13 Bytes

r{(\'A,f&Sr}h

Funktioniert, wenn ich nur die allgemeinen Satzzeichen berücksichtigen kann und die Ausgabe nachgestellte Leerzeichen enthalten kann. (Danke an Dennis.)

Diese Frage muss noch viel geklärt werden ...

CJam, 17 16 Bytes

r{(\eu_elf&Sr}h&

Probieren Sie es online aus .

Erläuterung

r          e# Read one word from input.
{          e# While it is not EOF:
    (\     e# Extract the first character.
    eu     e# Convert the rest to uppercase.
    _el    e# And lowercase.
    f&     e# Delete characters in the first string if not in the second string.
    S      e# Append a space.
    r      e# Read the next word.
}h
&          e# Discard the last space by intersecting with empty string.

Pyth, 14 Bytes

jdm+hd-rtd0Gcz

Probieren Sie es online aus: Demonstration

Erläuterung:

                 implicit: z = input string
            cz   split z by spaces
  m              map each word d to:
    hd              first letter of d
   +                +
       rtd0         (lowercase of d[1:]
      -    G         but remove all chars of "abc...xyz")
jd               join resulting list by spaces and print

Python 3.4, 94 92 82 77 Bytes

print(*[w[0]+''.join(c[c.isalpha():]for c in w[1:])for w in input().split()])

Ich bin neu im Code-Golf, aber ich dachte, ich würde es versuchen! Dies ist kein Gewinner, aber es hat Spaß gemacht.

Dadurch wird nur die Zeichenfolge aufgeteilt, wobei das erste Zeichen jedes Wortes zusammen mit etwaigen Satzzeichen im Rest des Wortes verwendet wird.

* bearbeitet mit Änderungen von FryAmTheEggman, DLosc

Gelee , 14 Bytes

Ḣ;ḟØB$
Ḳ¬ÐfÇ€K

Probieren Sie es online aus!

Lösung mit Mr. Xcoder und Caird Coinheringaahing im Chatroom von Jelly Hypertraining .

Alternative 14 Bytes: Probieren Sie es online aus!

sed (39 Zeichen)

Nur ein paar reguläre Ausdrücke:

sed 's+\<\(.\)[A-Za-z]*+\1+g;s+  *+ +g'

Lua - 126 Zeichen

Lua ist keine gute Code-Golfsprache, aber ich habe es ausprobiert:

a=''for b in string.gmatch( c, '%S+%s?' )do d=(b:match('%w')or''):sub(1,1)e=b:match('[^%s%w]')or''a=a..d..e..' 'end print( a )

Dies setzt voraus, dass dies cdie Zeichenfolge ist.

Hier wird es zur besseren Lesbarkeit aufgeräumt:

local string = [[I'm a little teapot,  short and stout. Here is my handle, here is my 
spout. When I get all steamed up - hear me shout!   Tip me over and pour me out.]]

local final = ''
for word in string.gmatch( string, '%S+%s?' ) do 
    local first = ( word:match( '%w' ) or '' ):sub( 1, 1 )
    local second = word:match( '[^%s%w]' ) or ''
    final = final .. first .. second .. ' '
end
print( final )

Sie können es hier testen (kopieren und einfügen. Zum ersten müssen Sie es auch tun c = "I'm a little ....) Aus irgendeinem Grund können Sie in der Online-Demo von Lua keine Variablen mit io.read...

PowerShell, 56 Byte

%{($_-split' '|%{$_[0]+($_-replace'[a-z]','')})-join' '}

Javascript ( ES6 ) 72 68 Bytes

f=x=>x.split(/\s+/).map(x=>x.replace(/^(.)|[a-z]/gi,'$1')).join(' ')

<input id="input" value="I'm a little teapot,  short and stout. Here is my handle, here is my spout. When I get all steamed up - hear me shout!   Tip me over and pour me out. " />
<button onclick="output.innerHTML=f(input.value)">Run</button>
<br /><pre id="output"></pre>

Kommentiert:

f=x=>
    x.split(/\s+/). // split input string by 1 or more spaces
    map(x=> // map function to resulting array
        x.replace(/^(.)|[a-z]/gi, '$1') // capture group to get the first character
                                        // replace all other letters with empty string
    ).
    join(' ') // join array with single spaces

C99 - 170 169 Bytes

main(_,a)char**a;{for(char*b=a[1],*c=b,*e,*d;*c++=*b;){for(e=b;*++b&&*b-32;);for(*b=0,d=strpbrk(e,"!',-."),d&&d-e?*c++=*d:0;b[1]==32;++b);++b;*c++=32;*c=0;}puts(a[1]);}

Ungolfed:

main(int argc, char**a) {
    char*b=a[1],*c=b,*e,*d;
    while(*c++=*b){
        for(e=b;*++b&&*b-32;); //scan for first space or end of word
        *b=0; //mark end of word
        for(;b[1]==32;++b); //skip following spaces
        d=strpbrk(e,"!',-."); //find punctuation
        if(d&&d-e) //append punctuation if any, and it's not the word itself
            *c++=*d;
        *c++=32; //append space
        b++;
    }
    *c=0; //mark end of line
    puts(a[1]);
}

Verwendungszweck:

gcc -std=c99 test.c -o test
./test "I'm a little teapot,  short and stout. Here is my handle, here is my spout. When I get all steamed up - hear me shout!   Tip me over and pour me out."

Ausgabe:

I' a l t, s a s. H i m h, h i m s. W I g a s u - h m s! T m o a p m o.

Java 8, 87 Bytes

s->{for(String x:s.split(" +"))System.out.print(x.replaceAll("^(.)|[a-z]+","$1")+" ");}

Erläuterung:

Probieren Sie es hier aus.

s->{                                  // Method with String parameter and no return-type
  for(String x:s.split(" +"))         //  Split the input on one or multiple spaces
                                      //  And loop over the substrings
    System.out.print(                 //   Print:
      x.replaceAll("^(.)|[a-z]+","$1")//    Regex to get the first letter + all non-letters
      +" ");                          //    + a space delimiter
                                      //  End of loop (implicit / single-line body)
}                                     // End of method

Regex Erklärung:

x.replaceAll("^(.)|[a-z]+","$1")
x.replaceAll("           ","  ") # Replace the match of String1 with String2, in String `x`
             "           "       # Regex to match:
              ^(.)               #  The first character of String `x`
                  |[a-z]+        #  Or any one or multiple lowercase letters
                           "  "  # Replace with:
                            $1   #  The match of the capture group (the first character)

Es werden also im Grunde alle Kleinbuchstaben eines Strings entfernt, mit Ausnahme des allerersten.

Perl 5 , 34 Bytes

33 Bytes Code + 1 für -p.

s!\S\K\S+| \K +!$&=~s/\w| //gr!ge

Probieren Sie es online aus!

R, 46 45 Bytes

cat(gsub("^\\w\\W*\\K\\w*","",scan(,""),T,T))

Dies liest eine Zeile von STDIN und druckt nach STDOUT. Es wird ein regulärer Ausdruck verwendet, um alle Zeichen nach dem ersten Buchstaben zu entfernen, gefolgt von einer beliebigen Interpunktion.

Ungolfed + Erklärung:

# Read a string from STDIN and convert it to a character vector,
# splitting at spaces

input <- scan(what = "")

# Replace stuff with nothing using a regex.
# ^ start position anchor
# \w single "word" character
# \W* any amount of non-word (i.e. punctuation) characters
# \K move the match position forward
# \w* any number of word characters

replaced <- gsub("^\\w\\W*\\K\\w*", "", input, ignore.case = TRUE, perl = TRUE)

# Print the vector elements to STDOUT, separated by a space

cat(replaced, sep = " ")

Beispiel:

> cat(gsub("^\\w\\W*\\K\\w*","",scan(,""),T,T))
1: I'm a little teapot,  short and stout. Here is my handle, here is my spout. When I get all steamed up - hear me shout!   Tip me over and pour me out. 

I' a l t, s a s. H i m h, h i m s. W I g a s u - h m s! T m o a p m o.

05AB1E , 13 Bytes

#õKεćsDáмJ}ðý

Probieren Sie es online aus!

Erläuterung:

#õKεćsDáмJ}ðý  Full program
#              Split on spaces
 õK            Remove empty strings from the list
   ε           For each...
    ć             push a[1:], a[0]
     s            Swap
      D           Duplicate
       á          Push only letters of a
        м         pop a,b => push a.remove(all elements of b)
         J        Join
          }    End for each
           ðý  Join with spaces

VBA (Excel), 141 133 Bytes

Verwenden des VBA-Sofortfensters [A1] als eingegebene Zeichenfolgen.

z=" "&[A1]:for a=2 to len(z):c=mid(z,a,1):[A2]=[A2]&IIF(mid(z,a-1,1)=" ",c,IIF(asc(lcase(c))>96 and asc(lcase(c))<123,"",c)):next:?[TRIM(A2)]

z=" "&[a1]:for a=2 to len(z):c=mid(z,a,1):e=asc(lcase(c)):[a2]=[a2]&iif(mid(z,a-1,1)=" ",c,IIF((e>96)*(e<123),"",c)):next:?[TRIM(A2)]

Perl 6 , 15 Bytes

s:g/(\w)\w+/$0/

Probieren Sie es online aus!