Reduzca cada palabra en una cadena de grupo de cadenas a letras individuales delimitadas por espacios o signos de puntuación.

Ejemplo

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. 

se convierte

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. 

Editar: si hay varios espacios, conserve solo un espacio. Toda puntuación debe ser preservada, me perdí el apóstrofe. Sí, este es el código de golf :-).

CJam, 13 bytes

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

Funciona si solo puedo considerar los caracteres de puntuación comunes, y la salida puede tener espacios finales. (Gracias a Dennis)

Esta pregunta necesita mucha más aclaración ...

CJam, 17 16 bytes

r{(\eu_elf&Sr}h&

Pruébalo en línea .

Explicación

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

Pruébelo en línea: demostración

Explicación:

                 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()])

¡Soy nuevo en el código de golf pero pensé en probarlo! Este no es un ganador, pero fue divertido.

Esto simplemente divide la cadena, tomando el primer carácter de cada palabra junto con cualquier puntuación en el resto de la palabra.

* editado con cambios por FryAmTheEggman, DLosc

Jalea , 14 bytes

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

Pruébalo en línea!

Solución hecha con Mr. Xcoder y caird coinheringaahing en la sala de chat de Jelly Hypertraining .

Alternativa de 14 bytes: ¡ Pruébelo en línea!

sed (39 caracteres)

Solo un par de expresiones regulares:

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

Lua - 126 caracteres

Lua no es un gran lenguaje de golf de código, pero lo probé:

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 )

Esto supone que ces la cadena.

Aquí se limpia para facilitar la lectura:

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 )

Puede probarlo aquí (copiar y pegar. Por primera vez, también tiene que hacerlo c = "I'm a little ...). Por alguna razón, la demostración en línea de Lua no le permitirá ingresar variables usando io.read...

PowerShell, 56 bytes

%{($_-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>

Comentado:

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

Sin golf:

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

Uso:

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

Salida:

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")+" ");}

Explicación:

Pruébalo aquí

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

Explicación de expresiones regulares:

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)

Por lo tanto, básicamente elimina todas las letras minúsculas de una cadena, excepto la primera.

Perl 5 , 34 bytes

Código de 33 bytes + 1 para -p.

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

Pruébalo en línea!

R, 46 45 bytes

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

Esto lee una línea de STDIN e imprime en STDOUT. Utiliza una expresión regular para eliminar todos los caracteres después de la primera letra seguidos de cualquier cantidad de puntuación.

Ungolfed + explicación:

# 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 = " ")

Ejemplo:

> 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}ðý

Pruébalo en línea!

Explicación:

#õ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

Usando la Ventana Inmediata de VBA, [A1] como Cadenas Ingresadas.

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/

Pruébalo en línea!