Bài tập

• Người dùng nhập một câu - chỉ từ. Bất kỳ đầu vào nào ngoài chữ cái hoặc dấu cách, bao gồm số nguyên và dấu chấm câu, sẽ ném một ngoại lệ: "Câu chỉ phải sử dụng chữ cái".
• Đầu ra có một mẫu, trong đó một số từ bị đảo ngược và các từ khác là bình thường.
• Mẫu bắt đầu như một từ bình thường, hai từ tiếp theo được đảo ngược, sau đó hai từ tiếp theo là bình thường và mẫu tiếp tục.
• Một ví dụ về nơi các từ nên bình thường và nơi các từ đảo ngược là dưới đây:

Bình thường - Đảo ngược - Đảo ngược - Bình thường - Bình thường - Đảo ngược - Đảo ngược - Bình thường ...

Ví dụ đầu vào

Cô bán vỏ sò trên bờ biển

Ví dụ đầu ra

Cô bắn đạn aeS trên bờ eht aeS

Quy tắc bổ sung

• Nếu chữ in hoa được sử dụng, chúng sẽ vẫn còn trên chữ cái ban đầu được đăng.
• Bất kỳ nhiều không gian ban đầu được đăng trên đầu vào nên được giảm xuống một không gian. Ví dụ Programming Puzzles and Code Golftrở thànhProgramming selzzuP dna Code Golf

Thắng mã ngắn nhất !!

Chúc mừng mã hóa ...

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

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

Điều này là rất ngắn, tôi rất hài lòng với nó.

~ 20 ký tự cuối cùng có vẻ như vô nghĩa nhưng đó là "Câu chỉ phải sử dụng chữ cái" được mã hóa. Tất cả các ký tự có mã char dưới 256, vì vậy mỗi ký tự là một byte

Giải trình

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

• Dùng thử trực tuyến
• Quá khứ

Haskell, 141 byte

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"

Gần 2/3 mã là để kiểm tra lỗi. Có vẻ là thách thức thế giới thực đầu tiên.

Công việc được thực hiện bằng cách unwords$zipWith($)(cycle[id,reverse,reverse,id])$words xphân tách đầu vào thành một danh sách các từ, nén nó với danh sách các hàm theo chu kỳ [id,reverse,reverse,id,id,reverse...]và nối kết quả với khoảng trắng trở lại thành một chuỗi.

Cảm ơn @Christian Irwan cho 2 byte.

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

Võng mạc , 103 byte

\s+

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

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

Cần có một khoảng trống trên dòng thứ hai, mà SE dường như đang nuốt. Chạy mã từ một tệp duy nhất với -scờ.

Retina không có khái niệm về các trường hợp ngoại lệ, vì vậy đầu ra chỉ được thay thế bằng Sentence must only use lettersnếu có các ký tự không phải là khoảng trắng trong đầu vào.

Bình thường, 61 byte

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

Hãy thử trực tuyến.

Con trăn, 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],

Đã xóa 15 ký tự, cảm ơn Mego !!

Bash + coreutils, 108

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

_{Nhân vật cuối cùng của chương trình này là một không gian.}

Đầu vào được lấy từ dòng lệnh:

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

Bình thường, 72

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

Không đánh bại câu trả lời Pyth khác, nhưng tôi đã đầu tư thời gian để viết nó. Về cơ bản, đây là bản dịch câu trả lời Python của tôi .

Dùng thử trực tuyến

Julia, 109 byte

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

i=0và (i+=1)%4>1được sử dụng để quyết định xem mỗi từ có được reversed hay không. isalphaáp dụng cho các từ sau khi được phân tách bằng cách sử dụng split(s)để xác định xem có các ký tự không có chữ cái hay không (khoảng trắng đã bị xóa vào thời điểm này). joinKhôi phục chuỗi sau khi thao tác, trừ khi errorđược ném.

Julia, 150 134 byte

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

Ung dung:

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

Đã lưu 16 byte nhờ Glen O!

Bình thường, 55 byte

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

Mượn %%k4 3bit từ Pietu1998. Đã lưu thêm một byte.

Dùng thử trực tuyến: Trình diễn hoặc Test Suite

Giải trình

?--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 byte

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

Hãy thử trực tuyến!

Java, 215 byte

Regex rất vui

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

Hãy thử trực tuyến!

Thạch , 39 byte

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

Hãy thử trực tuyến!

Cảm ơn Erik the Outgolfer. Anh ấy đã cứu tôi khỏi một vài byte thêm và từ nhiều giờ thất vọng.

Đây là một giải pháp 46 byte

Nó thực sự ném một lỗi cú pháp python khi đầu vào chứa các ký tự không hợp lệ.

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

Hãy thử trực tuyến!

Japt v2.0a0 -S, 41 byte

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

Thử nó

¸¬è\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 byte

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

Hãy thử trực tuyến.

Ném lỗi sau khi đầu vào không chỉ chứa [A-Za-z ]:

(RuntimeError) Không thể chuyển đổi Câu chỉ phải sử dụng chữ cái thành số nguyên.

Giải trình:

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

Xem mẹo 05AB1E này của tôi (phần Làm thế nào để sử dụng từ điển? ) Để hiểu tại sao “¸–ƒ—€É€Å™ê“là "sentence must only use letters".

PHP , 147 byte

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;

Hãy thử trực tuyến!

Hoặc nếu die() được chấp nhận là "Ngoại lệ":

PHP , 131 byte

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

Hãy thử trực tuyến!