Tarefa

• O usuário digita uma frase - apenas palavras. Qualquer entrada que não seja letras ou espaços, incluindo números inteiros e pontuação, deve gerar uma exceção: "A frase deve usar apenas letras".
• A saída tem um padrão, onde algumas palavras são invertidas e outras são normais.
• O padrão começa como uma palavra normal, as duas seguintes são invertidas, as duas seguintes são normais e o padrão continua.
• Um exemplo de onde as palavras devem ser normais e onde as palavras invertidas estão abaixo:

Normal - Invertido - Invertido - Normal - Normal - Invertido - Invertido - Normal ...

Exemplo de entrada

Ela vende conchas do mar na costa do mar

Exemplo de saída

Ela joga conchas na costa

Regras adicionais

• Se forem usadas letras maiúsculas, elas devem permanecer na letra em que foram originalmente postadas.
• Qualquer espaço múltiplo publicado inicialmente na entrada deve ser reduzido para um espaço. Por exemplo, Programming Puzzles and Code Golftorna-seProgramming selzzuP dna Code Golf

O código o mais curto ganha !!

Feliz codificação ...

TeaScript , 55 bytes 58 60 69 76 78 80 87 89

xO`a-z `?xl(#~-i&2?l:lv(),/ +/):Ld`SÀZn­ Û § «e Ò5s`

Isso é extremamente curto, estou muito feliz com isso.

Os últimos ~ 20 caracteres podem parecer sem sentido, mas é "A sentença deve usar apenas letras" codificadas. Todos os caracteres têm códigos de caracteres abaixo de 256, cada um com um byte

Explicação

xO`a-z `?  // If input contains only a-z and space...

   xl(#       // Loop through input 
      ~-i&2?  // If (index - 1 "unary and"ed with 2) isn't 0...
          :l,     // Leave alone
          lv()    // Otherwise, reverse string
       / +/ // Loops on spaces
   )

:Ld`SÀZn­ Û § «e Ò5s` // Otherwise... decompress and print  the error string

• Experimente online
• Pastebin

Haskell, 141 bytes

r=reverse
f x|all(`elem`(' ':['a'..'z']++['A'..'Z']))x=unwords$zipWith($)(cycle[id,r,r,id])$words x|1<2=error"Sentence must only use letters"

Quase 2/3 do código é para verificação de erros. Parece ser o primeiro desafio do mundo real.

O trabalho é feito unwords$zipWith($)(cycle[id,reverse,reverse,id])$words xdividindo a entrada em uma lista de palavras, compactando-a com a lista de funções de ciclo [id,reverse,reverse,id,id,reverse...]e unindo o resultado com espaços de volta a uma única string.

Obrigado a @Christian Irwan por 2 bytes.

JavaScript (ES6) 122

f=s=>/[^a-z ]/i.test(s)?"Sentence must only use letters":s.split(/ +/).map((w,i)=>~-i&2?w:[...w].reverse().join``).join` `

alert(f(prompt('?','She sells Sea shells on the Sea shore')))

Retina , 103 bytes

\s+

(?<=^\S+ (\S+ )?((\S+ ){4})*)
;
+`(;\S*)(\S)
$2$1
;

i`.*[^a-z ].*
Sentence must only use letters

Deve haver um único espaço na segunda linha, que o SE parece estar engolindo. Execute o código de um único arquivo com o -ssinalizador.

Retina não tem conceito de exceções; portanto, a saída é simplesmente substituída por Sentence must only use lettersse houver caracteres que não sejam espaços em branco e que não sejam letras na entrada.

Pitão, 61 bytes

?.A}R+G\ rz0jd.e_W%%k4 3bfTczd"Sentence must only use letters

Experimente online.

Python, 163 160 157 145

k=raw_input()
k=["Sentence tsum ylno use letters",k][k.replace(' ','').isalpha()]
for i,x in enumerate(k.split()):print x[::-1if(i+1)/2%2else 1],

Removidos 15 caracteres, obrigado Mego !!

Bash + coreutils, 108

[ ${@//[a-zA-Z]/} ]&&echo Sentence must only use letters||for t;{
((++i/2%2))&&rev<<<$t||echo $t
}|tr \\n \ 

_{O último caractere deste programa é um espaço.}

A entrada é obtida na linha de comando:

$ ./norrevvevnor.sh Programming Puzzles and Code$'\n' Golf
Programming selzzuP dna Code Golf $ 
$ ./norrevvevnor.sh Programming Puzzles and Code$'\n' Golf1
Sentence must only use letters
$ 

Pyth, 72

=zflTc?:z"[^A-Za-z ]"0"Sentence tsum ylno use letters"zdjd.e?%/hk2 2_bbz

Não supera a outra resposta de Pyth, mas eu já investi tempo em escrevê-la. É basicamente uma tradução da minha resposta em Python .

Experimente online

Julia, 109 bytes

s->(i=0;join([isalpha(w)?(i+=1)%4>1?reverse(w):w:error("Sentence must only use letters")for w=split(s)]," "))

i=0e (i+=1)%4>1são usados ​​para decidir se cada palavra recebe reversed ou não. isalphaaplica-se às palavras após serem divididas usando split(s)para determinar se há ou não caracteres que não são letras (os espaços já foram removidos nesse ponto). joinrestaura a sequência após a manipulação, a menos que errorseja lançada.

Julia, 150 134 bytes

s->ismatch(r"[^a-z ]"i,s)?error("Sentence must only use letters"):(i=3;join([(i+=1;isodd((i+1)i÷2)?reverse(w):w)for w=split(s)]," "))

Ungolfed:

function f(s::AbstractString)
    if ismatch(r"[^a-z ]"i, s)
        error("Sentence must only use letters")
    else
        i = 3
        a = [(i += 3; isodd((i + 1)i ÷ 2) ? reverse(w) : w) for w = split(s)]
        return join(a, " ")
    end
end

Economizou 16 bytes graças a Glen O!

Pitão, 55 bytes

?--rz0Gd"Sentence must only use letters"jd.e_W%%k4 3bcz

Emprestado o %%k4 3bit de Pietu1998. Salvo um byte adicional.

Experimente on-line: Demonstration or Test Suite

Explicação

?--rz0Gd"..."jd.e_W%%k4 3bcz   implicit: z = input string
   rz0                         convert z to lower-case
  -   G                        remove all letters
 -     d                       remove all spaces
?                              if there is some chars left than
        "..."                    print the string "Sentence must only ..."
                               else:
                          cz     split z by spaces or multiple spaces
               .e                map each pair (k index, b string) of ^ to: 
                 _       b          b or reversed of b, depending on
                  W%%k4 3           (k mod 4) mod 3
             jd                  join the result by spaces

Perl 5 -ap , 80 bytes

map$_=++$i%4>1?reverse:$_,@F;$_=/[^a-z ]/i?"Sentence must use only letters":"@F"

Experimente online!

Java, 215 bytes

Regex é divertido

s->{if(s.split("[^a-zA-Z ]").length>1)throw new Error("Sentence must only contains letters");else{int i=1;for(String a:s.split(" "))System.out.print((i++%2<1?new StringBuffer(a).reverse():a)+(a.isEmpty()?"":" "));}}

Experimente online!

Geléia , 39 bytes

³Ḳ¹ƇUJ2&TƲ¦K
“*[,ṛDṾȧƤ°Ġṛ©¦»
ØẠ” ṭ³eƇ⁼£

Experimente online!

Graças a Erik, o Outgolfer. Ele me salvou de alguns bytes extras e de muitas horas de frustração.

Aqui está uma solução de 46 bytes

Na verdade, ele gera um erro de sintaxe python quando a entrada contém caracteres inválidos.

³Ḳ¹ƇUJ2&TƲ¦K
“çỤḷṁŀDṀẠṠGmḟĖƲƑ⁽Ḳḟ»ŒV
ØẠ” ṭ³eƇ⁼£

Experimente online!

Japt v2.0a0-S , 41 bytes

¸¬è\L ?`SÀZn­ Û § «e Ò5s`:UeS²S ¸ËzEc2

Tente

¸¬è\L ?`...`:UeS²S ¸ËzEc2     :Implicit input of string U
¸                             :Split on spaces
 ¬                            :Join
  è                           :Count occurrences of
   \L                         :RegEx /[^A-Z]/gi
      ?`...`:                 :If truthy return the compressed string "Sentence must only use letters", else
             Ue               :Recursively replace in U
               S²S            :  Two spaces with one
                   ¸          :Split on spaces
                    Ë         :Map each element at 0-based index E
                     z        :  Rotate clockwise by 90 degrees multiplied by
                      Ec2     :    E rounded up to the nearest multiple of 2
                              :Implicit output, joined with spaces

05AB1E , 36 bytes

ðKDáÊi“¸–ƒ—€É€Å™ê“.ªFë#áεN4%>2÷iR]ðý

Experimente online.

Lança o seguinte erro quando a entrada não contém apenas [A-Za-z ]:

(RuntimeError) Não foi possível converter a frase deve usar apenas letras para número inteiro.

Explicação:

ðK                   # Remove all spaces from the (implicit) input-string
  Dá                 # Create a copy, and remove everything except for letters from this copy
    Êi               # If the copy with letters removed and the original are NOT equal:
      “¸–ƒ—€É€Å™ê“   #  Push dictionary string "sentence must only use letters"
                  .ª #  With sentence capitalization
      F              #  And try to loop that many times, causing the error above
     ë               # Else:
      #              #  Split the (implicit) input-string on spaces
       á             #  Only keep letters (which will remove empty items caused by multiple
                     #  adjacent spaces in the input, which is shorter than `õK`)
        ε            #  Map each word to:
         N4%>2÷      #   Calculate ((index modulo-4) + 1) integer-divided by 2
                     #   (results in 0,1,1,2,0,1,1,2,0,1 for indices 0,1,2,3,4,5,6,7,8,9)
               i     #   If this is exactly 1:
                R    #    Reverse the current word
     ]               # Close the if-statement, map, and if-else statement
      ðý             # Join the modified word-list by spaces
                     # (and then output it implicitly as result)

Veja esta dica 05AB1E meu (seção Como usar o dicionário? ) Para entender por que “¸–ƒ—€É€Å™ê“é "sentence must only use letters".

PHP , 147 bytes

foreach(explode(' ',$argn)as$a){if(!ctype_alpha($a))throw new Exception('Sentence must only use letters');$o.=(++$i%4>1?strrev($a):$a).' ';}echo$o;

Experimente online!

Ou se die()é aceitável como uma "exceção":

PHP , 131 bytes

foreach(explode(' ',$argn)as$a){if(!ctype_alpha($a))die('Sentence must only use letters');$o.=(++$i%4>1?strrev($a):$a).' ';}echo$o;

Experimente online!