งาน

• ผู้ใช้ป้อนประโยค - คำเท่านั้น การป้อนข้อมูลใด ๆ นอกเหนือจากตัวอักษรหรือช่องว่างรวมถึงจำนวนเต็มและเครื่องหมายวรรคตอนควรมีข้อยกเว้น: "ประโยคต้องใช้ตัวอักษรเท่านั้น"
• เอาต์พุตมีรูปแบบโดยที่บางคำกลับด้านและคำอื่น ๆ เป็นเรื่องปกติ
• รูปแบบเริ่มต้นเป็นคำปกติคำสองคำถัดไปจะกลับรายการจากนั้นคำสองคำถัดไปเป็นปกติและรูปแบบจะดำเนินต่อไป
• ตัวอย่างของคำที่ควรเป็นปกติและคำที่ตรงกันข้ามอยู่ด้านล่าง:

ปกติ - กลับด้าน - ย้อนกลับ - ปกติ - ธรรมดา - กลับด้าน - ย้อนกลับ - ปกติ ...

ตัวอย่างการป้อนข้อมูล

เธอขายเปลือกหอยบนชายฝั่งทะเล

ตัวอย่างผลลัพธ์

เธอ slles aeS shells บน eht aeS shore

กฎเพิ่มเติม

• หากมีการใช้ตัวอักษรพิมพ์ใหญ่พวกเขาควรจะยังคงอยู่ในตัวอักษรที่พวกเขาโพสต์เดิม
• ช่องว่างหลาย ๆ อันที่ถูกโพสต์บนอินพุตควรถูกลดขนาดเป็นหนึ่งช่องว่าง ยกตัวอย่างเช่น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 ตัวอาจดูเหมือนพูดไม่ชัด แต่นั่นเป็น "ประโยคจะต้องใช้ตัวอักษร" เท่านั้น ตัวละครทุกตัวมีรหัสถ่านต่ำกว่า 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

• ลองออนไลน์
• Pastebin

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

ลองออนไลน์

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

นำออก 15 ตัวอักษรขอบคุณMego !!

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
$ 

Pyth, 72

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

ไม่ได้คำตอบ Pyth อื่น ๆ แต่ฉันใช้เวลาในการเขียนไปแล้ว มันเป็นพื้นการแปลของฉันคำตอบหลาม

ลองออนไลน์

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

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

บันทึก 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Ƈ⁼£

ลองออนไลน์!

ขอบคุณ Erik the Outgolfer เขาช่วยให้ฉันรอดพ้นจากความวุ่นวายไม่กี่ไบต์และจากความยุ่งยากหลายชั่วโมง

นี่คือวิธีแก้ปัญหา 46 ไบต์

จริงๆแล้วมันจะโยนข้อผิดพลาดทางไวยากรณ์ของหลามเมื่ออินพุตมีอักขระที่ไม่ถูกต้อง

³Ḳ¹Ƈ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;

ลองออนไลน์!