Mục tiêu của thử thách này là nhận đầu vào và đầu ra đầu vào đó nhưng với thứ tự câu bị đảo ngược. Ví dụ đầu vào:

Hello friend. What are you doing? I bet it is something I want to do too!

Kết quả ví dụ:

I bet it is something I want to do too! What are you doing? Hello friend.

Như bạn có thể nói từ các ví dụ, chương trình của bạn phải xử lý các dấu hỏi, dấu chấm than và dấu chấm. Bạn có thể giả sử mỗi câu có dấu câu và hơn khoảng trắng trước câu tiếp theo. Trailing space / newlines là ok, miễn là nó có thể đọc được. Mã ngắn nhất sẽ thắng.

Chúc may mắn!

EDIT: Bạn có thể giả sử các câu không có dấu ngoặc kép hoặc dấu ngoặc đơn, nhưng nếu bạn tạo mã của mình có thể xử lý cả hai câu đó thì bạn nhận được -5 byte Kết quả đầu ra cho parens / ngoặc kép:

"Hello, " she said. (I didn't know what she was talking about.) --> (I didn't know what she was talking about.) "Hello, " she said.

Julia, 45 42 byte - 5 tiền thưởng = 37

s->join(reverse(split(s,r"[.?!]\K "))," ")

Điều này tạo ra một hàm ẩn danh chấp nhận một chuỗi làm đầu vào và trả về chuỗi với các câu bị đảo ngược. Điều này xử lý bất kỳ ký tự đặc biệt nào một cách thích hợp, mặc dù dấu ngoặc kép và ký hiệu đô la phải được thoát, nếu không chúng không phải là chuỗi hợp lệ trong Julia.

Ungolfed + giải thích:

function f(s)
    # Get individual sentences by splitting on the spaces that
    # separate them. Spaces are identified by matching punctuation
    # then moving the position beyond that match and matching a
    # space. This is accomplished using \K.

    sentences = split(s, r"[.?!]\K ")

    # Reverse the order of the array of sentences.

    reversed_order = reverse(sentences)

    # Join the array elements into a string, separated by a space.

    join(reversed_order, " ")
end

Ví dụ:

julia> f("Hello friend. What are you doing? I bet it is something I want to do too!")
"I bet it is something I want to do too! What are you doing? Hello friend."

julia> f("\"Hello, \" she said. (I didn't know what she was talking about.)")
"(I didn't know what she was talking about.) \"Hello, \" she said."

Và nếu bạn không thích nhìn vào các trích dẫn đã thoát trong đầu ra:

julia> println(f("\"Hello, \" she said. (I didn't know what she was talking about.)"))
(I didn't know what she was talking about.) "Hello, " she said.

Đã lưu 3 byte trên biểu thức thông thường nhờ Martin Büttner! Trước đây điều này đã sử dụng một cái nhìn:(?<=[.?!]) .

CJam, 23 22 byte

Tôi không chắc điều này có đủ điều kiện nhận thưởng hay không, nhưng đây là giải pháp:

Sq{1$".?!"-{])[}|}%]W%

Mở rộng mã (bit lỗi thời) :

Sq+                      e# Read the input and prepend with a space
   {            }%       e# For each input character
    _".?!"&              e# Copy and check if its one of ., ? and !
           {][}&         e# If it is one of the above, wrap everything till now in an array
                         e# and start a new array to be wrapped next time we get one of those
                         e# three characters. We now have an array of strings, each having
                         e# a single sentence
                  W%     e# Reverse the ordering of these sentences
                    s(   e# Convert to string and remove the first space

Dùng thử trực tuyến tại đây

J, 35 32

Nó gần như xử lý đầu vào tiền thưởng, ngoại trừ tôi phải thoát các dấu nháy đơn, vì vậy tôi đoán nó không được tính. (Ngoài ra, lần gửi đầu tiên của tôi ở đây)

f=.;@|.@(]<;.2~'.?!'e.~])@,~&' '

Sử dụng:

f 'Hello friend. What are you doing? I bet it is something I want to do too!'

Perl, 27/11

#!perl -n
print reverse/ |[^.!?]*./g

Hoặc từ dòng lệnh:

$perl -nE'say reverse/ |[^.!?]*./g'

PHP, 60

echo join(' ',array_reverse(preg_split('/(?<=[?!.])/',$s)));

Bash + coreutils, 40 byte

sed 's/\([?.!]\) */\1\n/g'|tac|tr \\n \ 

Điều này đọc từ STDIN để đầu vào tôi có thể chuyển hướng từ một tệp, hoặc đơn giản là được dẫn vào, ví dụ:

$ printf 'Hello friend. What are you doing? I bet it is something I want to do too!' | sed 's/\([?.!]\) */\1\n/g'|tac|tr \\n \ 
I bet it is something I want to do too! What are you doing? Hello friend. 
$ 

Pip , 25 byte

a.:sRV(a^@2+$ALa@*^".?!")

Sau khi gắn thêm một không gian để các chuỗi đầu vào, chúng ta thấy tất cả các chỉ số của ., ?và !, thêm 2, và sử dụng^@ toán tử split-at để chia chuỗi thành các câu (mỗi chuỗi có một khoảng trắng ở cuối). Đảo ngược danh sách và nó được in tự động vào cuối chương trình. Võngà!

Ví dụ hiển thị các giai đoạn tính toán chính với đầu vào A! B? C. D!:

              ^".?!"     ["." "?" "!"]
           a@*           [[7] [4] [1 10]]
        $AL              [7 4 1 10]
      2+                 [9 6 3 12]
   a^@                   ["A! " "B? " "C. " "D! "]
RV(                 )    ["D! " "C. " "B? " "A! "]

                         D! C. B? A! 

Võng mạc , 61 34 33 30 byte

Tín dụng cho nutki để cắt giảm 24 byte.

^
#
+`(#.*[.!?]) (.+)
$2 $1
#
<empty>

Nơi <empty>viết tắt của một dòng trống. Điều này giả định rằng đó #không phải là một phần của đầu vào, nhưng nếu điều đó không hợp pháp, tôi có thể trao đổi nó cho bất kỳ nhân vật nào khác, bao gồm "(mà tôi chỉ cần xử lý phần thưởng) hoặc một cái gì đó không thể in được. Bạn có thể chạy mã như thế trong một tệp duy nhất nếu bạn sử dụng -scờ hoặc bạn có thể đặt từng dòng trong một tệp riêng biệt và chuyển tất cả chúng cho Retina.

Có thể đảo ngược điều này với một sự thay thế regex duy nhất, nhưng thực sự cồng kềnh. Ngay cả với các nhóm cân bằng .NET tôi cũng cần khoảng 90 byte, vì vậy thay vào đó tôi đã thử thực hiện theo nhiều bước.

Trong Retina, mỗi cặp dòng là một giai đoạn thay thế, trong đó dòng đầu tiên là mẫu và dòng thứ hai là thay thế.

^
#

Giai đoạn này chỉ đơn giản là chuẩn bị chuỗi để xử lý thêm. Nó chuẩn bị #một điểm đánh dấu. Điểm đánh dấu này chỉ ra rằng mọi thứ ở phía trước của nó đã được đặt đúng chỗ và mọi thứ sau đó vẫn cần được xử lý.

+`(#.*[.!?]) (.+)
$2 $1

Giai đoạn này hoán đổi các câu, bằng cách liên tục di chuyển câu cuối cùng trước #(di chuyển về phía trước qua chuỗi trong quy trình). Các +`chỉ thị Retina để lặp lại giai đoạn này cho đến khi đầu ra ngừng thay đổi. Ví dụ, đây là cách foo. bar! blah?xử lý đầu vào :

#foo. bar! blah?
blah? #foo. bar!
blah? bar! #foo.

Và cuối cùng chúng ta chỉ cần xóa điểm đánh dấu:

#
<empty>

Java, 113

s->{String t[]=s.split("(?<=[\\.?!]) "),u="";for(int i=t.length;i-->0;)u+=t[i]+" ";return u.replaceAll(".$","");}

JavaScript (ES6) 47 45

Như đã nói, đó là một bài tập regex đơn giản. Trong javascript:

// ES6 - FireFox only
F=t=>t.match(/\S[^.!?]+./g).reverse().join(' ')

// ES5 - so much longer
function G(t){return t.match(/\S[^.!?]+./g).reverse().join(' ')}

// TEST

alert(G("Hello friend. What are you doing? I bet it is something I want to do too!"))
 

Con trăn 2, 62

Sẽ không cải thiện phần thưởng, vì có lẽ nó không xứng đáng với chi phí byte.

import re
print' '.join(re.split('(?<=[?!.]).',input())[::-1])

Matlab (93 byte)

y=[32 input('','s')];y=sortrows([cumsum(ismember(y,'?!.'),'reverse');y]',1)';disp(y(4:2:end))

• Điều này giả sử đầu vào không chứa khoảng trắng ở đầu hoặc cuối
• Sử dụng đầu vào và đầu ra tiêu chuẩn
• Đã thử nghiệm trong Matlab 2014b

Ruby 41

Các câu trả lời khác của Ruby không có đủ WTF.

#!ruby -apF(?<=[.!?])\s
$_=$F.reverse*" "

Điều này ít nhất hoạt động trong Ruby 2. Nếu avà Fcông tắc hoạt động trong 1.8.7, tôi đoán bạn có thể thả $_=để lưu ba ký tự.

Đảo ngược mọi dòng trên stdin và in ra thiết bị xuất chuẩn:

$ ruby foo.rb <<< "Hello. Hi. How are you? Good, you? fine, thanks."
fine, thanks. Good, you? How are you? Hi. Hello.

Ruby, 48 (42 mà không đặt) byte

Reverse_sentence.rb

puts $*[0].scan(/\S[^.!?]+./).reverse.join(" ")

Sử dụng:

ruby reverse_sentence.rb 'Hello friend. What are you doing? I bet it is something I want to do too!'

Đầu ra:

I bet it is something I want to do too! What are you doing? Hello friend.

Criticism more than welcome.

k, 31

{1_,/|(0,1+&x in"?!.")_x:" ",x}

.

k){1_,/|(0,1+&x in"?!.")_x:" ",x} "Hello friend. What are you doing? I bet it is something I want to do too!"
"I bet it is something I want to do too! What are you doing? Hello friend."

C# - LINQPAD - 93 - 5 = 88 bytes

void Main(){string.Join(" ",Regex.Split(Console.ReadLine(),"(?<=[.?!]) ").Reverse()).Dump();}

C# Console App 189 - 5 = 184 bytes

using System;using System.Linq;using System.Text.RegularExpressions;class P{static void Main(){Console.WriteLine(string.Join(" ",Regex.Split(Console.ReadLine(), "(?<=[.?!]) ").Reverse()));}}

regex shamelessly flogged from Alex A. :)

Clojure - 44 71 chars

(defn rs[s](reverse(re-seq #"\S.+?[.!?]"s)))

Improved and simplified RE, eliminated unnecessary whitespace.

Output is a sequence of the sentences in the original string, with the order of the sentences reversed:

Input: "Hello friend. What are you doing? I bet it is something I want to do too!" Output: ("I bet it is something I want to do too!" "What are you doing?" "Hello friend.")

Ruby, 47

$><<gets.strip.split(/(?<=[.?!]) /).reverse*' '

credits to Martin Büttner, for saving some characters.

CJam, 21 bytes

1q{1?_"!.?"-}%1a/W%S*

This works by turning spaces after !s, .s and ?s into the number 1 (not the character 1 nor the character with code point 1, so the input can still contain those), splitting at 1's, reversing the order of the resulting chunks and joining by spaces.

Try it online in the CJam interpreter.

How it works

1                     e# B := 1
 q                    e# Q := input()
  {         }%        e# for each C in Q (map):
   1?                 e#   C := B ? C : 1
     _"!.?"-          e#   B := string(C).strip("!.?")
              1a/     e# Q := Q.split([1])
                 W%   e# Q := reverse(Q)
                   S* e# Q := Q.join(" ")
                      e# print(Q)