Завдання

• Користувач вводить речення - лише слова. Будь-який вхід, крім букв чи пробілів, включаючи цілі числа та розділові знаки, повинен містити виняток: "Речення має використовувати лише літери".
• Вихід має шаблон, де одні слова перевернуті, а інші слова - нормальні.
• Шаблон починається як звичайне слово, наступні два слова перевертаються, потім наступні два слова є нормальними, і шаблон продовжується.
• Нижче наведено приклад того, де слова мають бути нормальними та де слова перевернуті нижче:

Нормальний - Зворотний - Зворотний - Нормальний - Нормальний - Зворотний - Зворотний - Нормальний ...

Приклад введення

Вона продає морські мушлі на березі моря

Приклад виводу

Вона сліш аес снарядів на березі аеру

Додаткові правила

• Якщо використовуються великі літери, вони повинні залишатися на листі, на якому вони були спочатку розміщені.
• Будь-які декілька пробілів, розміщених спочатку на вході, слід зменшити до одного пробілу. Наприклад Programming Puzzles and Code GolfстаєProgramming selzzuP dna Code Golf

Найкоротший код виграє !!

Щасливе кодування ...

TeaScript , 55 байт 58 60 69 76 78 80 87 89

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

Це надзвичайно коротко, я дуже задоволений цим.

Останні ~ 20 символів можуть здаватися химерними, але це "Засудження повинне використовувати лише літери", закодоване. Усі символи мають char-коди нижче 256, тому кожен - один байт

Пояснення

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

• Спробуйте в Інтернеті
• Пастебін

Haskell, 141 байт

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"

Майже 2/3 коду призначено для перевірки помилок. Здається, це перший справжній світовий виклик.

Робота виконується за допомогою того, unwords$zipWith($)(cycle[id,reverse,reverse,id])$words xщо розбиває введення на список слів, [id,reverse,reverse,id,id,reverse...]з’єднує його за допомогою циклічного списку функцій та приєднує результат із пробілами назад до однієї струни.

Дякуємо @Christian Irwan за 2 байти.

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')))

Сітківка , 103 байти

\s+

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

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

На другому рядку має бути єдиний пробіл, який, здається, ковтає SE. Запустіть код з одного файлу з -sпрапором.

Retina не має поняття винятків, тому вихід просто замінюється, Sentence must only use lettersякщо у введенні є символи, що не містять пробілів.

Pyth, 61 байт

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

Спробуйте в Інтернеті.

Пітон, 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],

Видалено 15 символів, дякую Мего !!

Bash + coreutils, 108

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

_{Останній персонаж цієї програми - пробіл.}

Введення взято з командного рядка:

$ ./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
$ 

Піта, 72

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

Інший відповідь Pyth не перемагає, але я вже вклав час на його написання. Це в основному переклад моєї відповіді Python .

Спробуйте в Інтернеті

Юлія, 109 байт

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

i=0і (i+=1)%4>1використовуються для того, щоб визначити, отримує чи кожне слово reversed чи ні. isalphaзастосовується до слів після розділення, використовуючи, split(s)щоб визначити, чи є символи, які не є літерами (пробіли вже видалено цією точкою). joinвідновлює рядок після маніпуляції, якщо тільки errorне кинуто.

Джулія, 150 134 байт

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)]," "))

Безголівки:

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

Збережено 16 байт завдяки Glen O!

Pyth, 55 байт

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

Запозичив %%k4 3трохи від Pietu1998. Збережено один додатковий байт.

Спробуйте в Інтернеті: Демонстрація або Тестовий набір

Пояснення

?--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 байт

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

Спробуйте в Інтернеті!

Java, 215 байт

Regex - це весело

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()?"":" "));}}

Спробуйте в Інтернеті!

Желе , 39 байт

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

Спробуйте в Інтернеті!

Дякуємо Еріку Поверху. Він врятував мене від кількох зайвих байтів і від багатьох годин розчарування.

Ось 46-байтне рішення

Він фактично видає помилку синтаксису python, коли вхід містить недійсні символи.

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

Спробуйте в Інтернеті!

Japt v2.0a0 -S, 41 байт

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

Спробуй це

¸¬è\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 байт

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

Спробуйте в Інтернеті.

Припускає таку помилку, коли вхід містить не лише [A-Za-z ]:

(RuntimeError) Не вдалося перетворити Речення повинно використовувати лише літери до цілого числа.

Пояснення:

ð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)

Дивіться цей 05AB1E наконечник шахти (розділ Як користуватися словником? ) , Щоб зрозуміти , чому “¸–ƒ—€É€Å™ê“це "sentence must only use letters".

PHP , 147 байт

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;

Спробуйте в Інтернеті!

Або якщо die()це прийнятно як "Виняток":

PHP , 131 байт

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

Спробуйте в Інтернеті!