Bây giờ chúng ta đã làm thế nào để tách một chuỗi từ không gian của nó.

Tuy nhiên, là quý ông / quý bà thích hợp, chúng ta nên cởi quần áo ra.

Cởi một chuỗi cũng giống như tước nó, chỉ tinh tế hơn. Thay vì xóa tất cả các không gian hàng đầu và dấu cùng một lúc, chúng tôi xóa từng khoảng một . Chúng tôi cũng xen kẽ giữa dẫn đầu và theo dõi, để không đốt cháy các bước.

Ví dụ, bắt đầu bằng " codegolf "(năm khoảng trắng ở đầu và cuối):

     codegolf     
    codegolf     
    codegolf    
   codegolf    
   codegolf   
  codegolf   
  codegolf  
 codegolf  
 codegolf 
codegolf 
codegolf

1. Đầu tiên đầu ra chuỗi không thay đổi. Sau đó, đầu ra từng bước. Bắt đầu bằng cách xóa một không gian hàng đầu (nếu có - xem quy tắc số 2).

2. Đầu vào có thể có một số lượng không gian hàng đầu và dấu khác nhau. Nếu bạn hết chỗ trống ở một bên, hãy tiếp tục cởi quần áo cho đến khi chuỗi trống.

3. Các đầu vào có thể không có không gian hàng đầu cũng như dấu. Nếu đó là trường hợp, đầu ra nó là như vậy.

4. Sử dụng các phương pháp I / O mặc định của PPCG . PPCG Mặc định sơ hở bị cấm.

5. Hành vi không xác định trên đầu vào trống, hoặc đầu vào chỉ chứa khoảng trắng, là OK.

6. Bạn có thể giả sử rằng chuỗi sẽ chỉ chứa các ký tự từ không gian có thể in ASCII ( 0x20đến 0x7E).

Ví dụ - khoảng trắng được thay thế bằng dấu chấm .để dễ đọc hơn:

4 leading spaces, 5 trailing: "....Yes, Sir!....."
....Yes, Sir!.....
...Yes, Sir!.....
...Yes, Sir!....
..Yes, Sir!....
..Yes, Sir!...
.Yes, Sir!...
.Yes, Sir!..
Yes, Sir!..
Yes, Sir!.
Yes, Sir!

6 leading, 3 trailing: "......Let's go golfing..."
......Let's go golfing...
.....Let's go golfing...
.....Let's go golfing..
....Let's go golfing..
....Let's go golfing.
...Let's go golfing.
...Let's go golfing
..Let's go golfing
.Let's go golfing
Let's go golfing

0 leading, 2 trailing: "Hello.."
Hello..
Hello.
Hello

0 leading, 0 trailing: "World"
World

21 leading, 5 trailing: ".....................a....."
.....................a.....
....................a.....
....................a....
...................a....
...................a...
..................a...
..................a..
.................a..
.................a.
................a.
................a
...............a
..............a
.............a
............a
...........a
..........a
.........a
........a
.......a
......a
.....a
....a
...a
..a
.a
a

Một quý ông / quý bà súc tích, vì vậy câu trả lời ngắn nhất bằng byte sẽ thắng .

Võng mạc , 26 byte

{m`^ (.+)\z
$&¶$1
 $
 ¶$%`

Hãy thử trực tuyến! (Bộ kiểm tra sử dụng dấu chấm cho rõ ràng. Phần chân trang và tiêu đề chuyển đổi chúng sang và từ khoảng trắng cho mã chính.)

Giải trình

Sẽ thật tuyệt nếu chúng ta chỉ có thể xen kẽ giữa việc thả một khoảng trống hàng đầu và dấu cách và in kết quả trung gian mỗi lần. Vấn đề là hiện tại Retina không thể in một cách có điều kiện, do đó, nó thậm chí sẽ in kết quả trung gian này nếu không còn khoảng trống ở đầu hoặc không còn dấu, tạo ra các bản sao. (Retina 1.0 sẽ nhận được một tùy chọn chỉ in kết quả nếu chuỗi được thay đổi bởi thao tác, nhưng chúng tôi chưa có ở đó ...)

Vì vậy, thay vào đó, chúng tôi đang xây dựng một chuỗi duy nhất chứa tất cả các kết quả trung gian và in ở cuối.

{m`^ (.+)\z
$&¶$1

Việc {kết thúc cả hai giai đoạn của chương trình trong một vòng lặp lặp lại cho đến khi chuỗi dừng thay đổi (có nghĩa là không còn khoảng trắng ở đầu / cuối). Bản thân sân khấu khớp với một không gian hàng đầu trên dòng cuối cùng của chuỗi và dòng cuối cùng đó, sau đó ghi lại trận đấu, cũng như nội dung sau khoảng trắng trên một dòng mới (do đó bỏ khoảng trống hàng đầu trong bản sao).

 $
 ¶$%`

Loại bỏ không gian dấu là dễ dàng hơn một chút. Nếu chúng ta chỉ khớp với không gian cuối cùng, chúng ta có thể truy cập vào thứ ở phía trước nó (trên cùng một dòng) với $%`biến thể nhận biết dòng của sự thay thế tiền tố $`.

Python 2 , 122 107 103 102 98 95 93 91 90 88 87 byte

s=input()+' '
a=0
while-a*s!=id:
 if a:id=s
 a=~a
 if'!'>s[a]:s=s[1+a:len(s)+a];print s

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

Python 3 , 97 95 93 90 byte

s=input()
a=p=print
p(s)
while s!=a:
 a=s
 if'!'>s:s=s[1:];p(s)
 if'!'>s[-1]:s=s[:-1];p(s)

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

Perl 6 , 55 byte

Đã lưu 3 byte nhờ @nwellnhof.

{($_,{$++%2??S/" "$//!!S/^" "//}...*)[^.comb*2].unique}

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

Giải thích : ($_,{$++%2??S/" "$//!!S/^" "//}...*)là một chuỗi vô hạn đệ quy bắt đầu bằng chuỗi gốc ( $_) và phần tử tiếp theo được đưa ra bởi khối được gọi trên phần tử trước đó.

Các khối tự nhận được chuỗi trong $_biến. Toán tử S/(regex)/(string)/sẽ tìm kiếm sự xuất hiện đầu tiên của (regex)in $_, thay thế nó bằng (string)và trả về kết quả. Nếu không có kết quả khớp, nó trả về nội dung $_không thay đổi. Chúng tôi sử dụng toán tử ternary ?? !!với điều kiện $++%2, xen kẽ giữa Falsevà True( $là một biến miễn phí bảo tồn nội dung của nó qua các cuộc gọi đến khối.)

Trong trường hợp xấu nhất (tất cả các khoảng trắng ở một bên và 1 ký tự khác), chúng tôi sẽ xóa 1 khoảng trắng sau mỗi 2 bước. Vì vậy, chúng tôi có thể chắc chắn rằng trong các bước 2 * (độ dài của chuỗi), tất cả các khoảng trắng sẽ bị xóa. Chúng tôi lấy nhiều yếu tố từ trình tự đệ quy [^.comb*2]và cuối cùng loại bỏ các bản sao (xảy ra bất cứ khi nào cần xóa một khoảng trắng nhưng không có ở đó) .unique. Điều này trả về danh sách các chuỗi, dần dần bị tước khoảng trắng.

05AB1E , 21 15 byte

=v¬ðQi¦=}¤ðQi¨=

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

Giải thích ^

=                 # print input
 v                # for each character in input
  ¬ðQi  }         # if the first char in the current string is a space
      ¦=          # remove it and print without popping
         ¤ðQi     # if the last char in the current string is a space
             ¨=   # remove it and print without popping

C (gcc) , 89 84 byte

Phiên bản đệ quy ngắn hơn ;-)

j;f(char*s){puts(s);*s^32||puts(++s);s[j=strlen(s)-1]<33?s[j]=0,f(s):*s^32||f(s+1);}

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

C (gcc) , 107 102 101 100 99 byte

Đã lưu 2 byte nhờ @Jonathan Frech sử dụng khoảng trắng và ~

i,j,k;f(char*s){for(i=~++k,puts(s);i^k;k=s[j=strlen(s)-1]<33?s[j]=0,puts(s):0)*s^32?i=0:puts(++s);}

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

JavaScript (ES6) 92

@Upvoters: hãy xem câu trả lời JS khác bên dưới dài 76 byte

(s,q,l=2,p=0)=>{for(alert(s);l--;p=!p)s[+p&&s.length-p]<'!'&&alert(s=s.slice(!p,-p||q,l=2))}

Một vòng lặp tìm kiếm một không gian ở phía trước hoặc ở cuối. Nếu tìm thấy, loại bỏ không gian và chuỗi đầu ra. Nếu không tìm thấy không gian 2 lần, dừng lại.

F=
(s,q,l=2,p=0)=>{for(alert(s);l--;p=!p)s[+p&&s.length-p]<'!'&&alert(s=s.slice(!p,-p||q,l=2))}

// some trick to show dots instead of spaces, for test
alert=x=>console.log(x
  .replace(/^ +/g,z=>'.'.repeat(z.length))
  .replace(/ +$/g,z=>'.'.repeat(z.length))
)

function go() {F(I.value.replace(/\./g,' '))}

go()

<input ID=I value='....yes Sir!....'> (use dot instead of space)
<button onclick='go()'>Go</button>

Perl 5, 32 byte

Đã lưu 4 byte do @ Abigail .

1while s/^ /!say/e+s/ $/!say/e

Yêu cầu -plđược tính là 2, được gọi với -E.

Sử dụng mẫu

$ echo '   test   ' | perl -plE'1while s/^ /!say/e+s/ $/!say/e'
   test   
  test   
  test  
 test  
 test 
test 
test

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

C # (.NET Core) , 192 183 182 181 179 178 byte

^{-3 byte nhờ Kevin Cruijssen}

n=>{var o=n+"\n";for(var e=1;n.Trim()!=n;){if(1>(e^=1))if(n[0]<33)n=n.Remove(0,1);else continue;else if(n.TrimEnd()!=n)n=n.Remove(n.Length-1);else continue;o+=n+"\n";};return o;}

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

Java 8, 150 146 145 137 byte

s->{String r=s;for(int f=0;s!=s.trim();f^=1)r+="\n"+(s=f+s.charAt(0)<33|!s.endsWith(" ")?s.substring(1):s.replaceAll(" $",""));return r;}

-4 byte nhờ @Nevay đổi (f<1&s.charAt(0)<33)thành f+s.charAt(0)<33.
-1 byte bằng cách sử dụng !s.trim().equals(s)thủ thuật từ câu trả lời C # .NET của @someone thay vì s.matches(" .*|.* ").
-8 byte nhờ @Nevay một lần nữa bằng cách thay đổi !s.trim().equals(s)thành s!=s.trim(), bởi vì String#trimsẽ trả về " Một bản sao của chuỗi này với khoảng trắng ở đầu và cuối bị xóa hoặc chuỗi này nếu nó không có khoảng trắng ở đầu hoặc cuối ", do đó tham chiếu vẫn giữ nguyên và !=có thể được sử dụng để kiểm tra nếu chúng là cùng một tham chiếu, thay vì .equalskiểm tra cùng một giá trị.

Giải trình:

Hãy thử nó ở đây (hoặc thử một phiên bản trực quan hơn ở đây với #thay vì khoảng trắng).

s->{                               // Method with String as both parameter and return-type
  String r=s;                      //  Result-String (starting at the input)
  for(int f=0;                     //  Flag-integer (starting at 0)
      s!=s.trim();                 //  Loop as long as `s` contains leading/trailing spaces
      f^=1)                        //    And XOR(1) `f` after every iteration (0->1; 1->0)
    r+="\n"                        //   Append the result with a new-line
       +(                          //    Followed by:
         s=f+                      //     If `f` is 0,
             s.charAt(0)<33        //     and `s` starts with a space
           |!s.endsWith(" ")?      //     Or doesn't end with a space
            s.substring(1)         //      Remove the first leading space
           :                       //     Else:
            s.replaceAll(" $",""));//      Remove the last trailing space
                                   //  End of loop (implicit / single-line body)
  return r;                        //  Return the result-String
}                                  // End of method

C, 91 90 byte

i,l;f(char*s){for(i=puts(s);i;i=(s[l=strlen(s)-1]*=s[l]>32)?i:puts(s))i=*s<33&&puts(++s);}

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

Thạch , 16 byte

Ḋ=⁶Ḣ$¡UµÐĿ¹Ṛƭ€QY

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

-2 byte nhờ Erik các Outgolfer
-1 byte nhờ dặm

Giải trình

Ḋ=⁶Ḣ$¡UµÐĿ¹Ṛƭ€QY  Main link
       µÐĿ        While the results are unique (collecting intermediate results), apply the last link (`µ` creates a new monadic link):
Ḋ=⁶Ḣ$¡            Remove a space from the beginning if there is one
 =⁶Ḣ$             If the first character is a space, then 1, else 0
 =                Compare each character to
  ⁶               ' '
   Ḣ              Get the first comparison
Ḋ                 Then Dequeue the string (s -> s[1:])
    ¡             That many times
     U            And reverse the string (the next time this is called, it will remove spaces from the end instead)
             €    For each string
            ƭ     Alternate between two commands:
          ¹       Identity (do nothing), and
           Ṛ      Reverse
          ¹Ṛƭ€    Correct all strings that are reversed to remove the trailing space
              Q   Remove duplicates (where there was no space to remove)
               Y  Join on newlines

Ruby , 63 byte

->s{*x=s;(s=~/^ /&&x<<s=$';s=~/ $/&&x<<s=$`)while s=~/^ | $/;x}

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

Java (OpenJDK 8) , 161 147 146 byte

x->{for(int l=0,r=x.length(),k=-1,u,v;((u=32-x.charAt(l)>>k)*(v=32-x.charAt(r-1)>>-1))<1;x+="\n"+x.substring(l-=k&~u|v,r+=(k=~k)&~v|u));return x;}

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

-1 byte nhờ @Kevin Cruijssen !

x -> {
    /*
     * l: left index (inclusive)
     * r: right index (exclusive)
     * k: side to remove from, -1:=left, 0:=right
     * u: left character   0:=space, <0:=no space (-1 if k is left side)
     * v: right character  0:=space, -1:=no space
     */
    for (int l = 0, r = x.length(), k = -1, u, v;
            ((u = 32 - x.charAt(l) >> k)
           * (v = 32 - x.charAt(r - 1) >> -1)) < 1; // loop while left or right has space(s)
            x += "\n" + x.substring(                // append newline and substring
                    l -= k & ~u | v,                // inc. left  if k is left side
                                                    //               and left has space
                                                    //            or right has no space
                    r += (k = ~k) & ~v | u));       // dec. right if k is right side
                                                    //               and right has space
                                                    //            or left has no space
    return x;
}

05AB1E , 25 17 byte

-8 byte bằng cách mượn ý tưởng kiểm tra không cần thiết cho việc kết thúc từ Emigna

,v2F¬ðQi¦DNiR},}R

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

Tôi khá chắc chắn rằng một cách tiếp cận ít đơn giản hơn có thể đánh bại giải pháp đó một cách dễ dàng. Bây giờ ...

Giải thích:

,v2F¬ðQi¦DNiR},}R           Full Programm
,                           Print the input string
 v                          For each char of the string
                               (we don't really care, we only need to loop
                                enough times to accomplish our task, since
                                we print conditionally we can loop more
                                times than necessary)
  2F...........}            Two times...
    ¬õQi                       Is 1st item a space?
        ¦D                        Remove 1st item + duplicate
          NiR}                    If on the second pass: reverse the list
              ,                   Pop & print with newline
               }               End If
                 R          Reverse the list

R , 145 133 111 byte

-12 byte nhờ @Giuseppe, bằng cách lưu trữ kết quả của submột biến mới và kiểm tra xem nó có thay đổi không

-22 byte bằng cách trả về một vectơ của chuỗi chứ không phải là chuỗi có dòng mới

function(s){L=s
while(grepl("^ | $",s)){if((x=sub("^ ","",s))!=s)L=c(L,x)
if((s=sub(" $","",x))!=x)L=c(L,s)}
L}

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

Giải thích về phiên bản chưa được chỉnh sửa một phần:

function(s){
  L=s                          # Initialise a vector with the original string
  while(grepl("^ | $",s)){     # While there are leading or trailing spaces...
    if((x=sub("^ ","",s))!=s){ # Check whether we can remove a leading space
      L=c(L,x)                 # If so, add the shortened string to the vector
    }
    if((s=sub(" $","",x))!=x){ # Check whether we can remove a trailing space
      L=c(L,x)                 # If so, add the shortened string to the vector
    }
  }
  L                            # Return the vector
}                              

Java (OpenJDK 8) , 137 125 121 120 124 byte

s->{int i=1;do System.out.println(s);while(s!=(s=s.substring(s.charAt(0)<33?i:(i=0),s.length()-(s.endsWith(" ")?i^=1:0))));}

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

MATL , 21 16 byte

tnE:"t@o&)w46-?x

Điều này sử dụng dấu chấm thay vì không gian cho rõ ràng hơn. Đối với không gian thay thế 46bởi 32.

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

Giải trình

tn      % Input (implicit). Duplicate and push length, say L
E       % Multiply by 2
:       % Push range [1 2 ... 2*L]
"       % For each k in that array
  t     %   Duplicate the string at the top of the stack
  @     %   Push k
  o     %   Parity: gives 1 or 0
  &)    %   Two-ouput indexing. Pushes the k-th entry of the string and then
        %   the rest of the string. The 1-st output is the first, the 0-th
        %   is the last (indexing is 1-based dand modular)
  w     %   Swap
  46-   %   Subtract 46, which ias ACII for '.'
  ?     %   If non-zero
    x   %     Delete sub-string that was obained by removing that entry
        %   End (implicit)
        % End (implicit)
        % Display stack (implicit)

Husk , 23 22 byte

u§↑L`G`I¢e₁ȯ↔₁↔
?tI<"!

Cảm ơn Leo cho -1 byte.

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

Giải trình

Các chức năng `G`Ithực sự nên được tích hợp ...

?tI<"!  Helper function: remove initial space.
?  <"!  If less than the string "!",
 t      remove first character,
  I     else return as is.
u§↑L`G`I¢e₁ȯ↔₁↔  Main function.
         e       List containing
          ₁      the helper function
           ȯ↔₁↔  and the composition reverse-helper-reverse.
        ¢        Repeat it cyclically.
    `G`I         Cumulative reduce from left by function application
                 using input string as initial value.
 §↑L             Take first length(input) values.
u                Remove duplicates.

C ++, 196 193 189 186 183 byte

-10 byte nhờ Jonathan Frech
-3 byte nhờ Zacharý

#include<iostream>
#include<string>
#define D std::cout<<s<<'\n'
#define R ~-s.size()
auto u=[](auto s){D;while(s[0]<33||s[R]<33){if(s[0]<33)s.erase(0,1),D;if(s[R]<33)s.erase(R),D;}};

Việc biên dịch với MSVC yêu cầu không kích hoạt kiểm tra SDL

C # (.NET Core) , 176 170 byte

using System;s=>{Action o=()=>Console.WriteLine(s);o();Func<int>l=()=>s.Length-1;while(s!=s.Trim()){if(s[0]<33){s=s.Remove(0,1);o();}if(s[l()]<33){s=s.Remove(l());o();}}}

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

Đây là một thay thế cho câu trả lời của @ ai đó và chỉ xuất ra các chuỗi trực tiếp.

JavaScript (ES6), 76 byte

f=(s,r,n,l=s.length)=>s[r?--l:0]<"!"?s+`
`+f(s.slice(!r,l),!r):n?s:f(s,!r,1)

Đầu ra là một chuỗi nhiều dòng.

Các trường hợp thử nghiệm

Sử dụng dấu chấm thay vì dấu cách, như hầu hết các câu trả lời đang làm.

f=(s,r,n,l=s.length)=>s[r?--l:0]<"!"?s+`
`+f(s.slice(!r,l),!r):n?s:f(s,!r,1)

// converting to and from dots and spaces
let dots=s=>s.replace(/^\.+|\.+$/gm,x=>" ".repeat(x.length));
let spaces=s=>s.replace(/^ +| +$/gm,x=>".".repeat(x.length));

["....Yes, Sir!.....", "......Let's go golfing...", "Hello..", "World", ".....................a....."]
.forEach(test=>O.innerHTML+=spaces( f(dots(test)) ) + "\n\n");

<pre id=O></pre>

Sed, 24 byte

p;:s s/ //p;s/ $//p;ts;D

Dùng thử trực tuyến!

Octave , 88 83 byte

Giảm 5 byte nhờ Stewie Griffin!

x=[input('') 0];for p=mod(1:sum(x),2)if x(~p+end*p)<33,disp(x=x(2-p:end-p)),end,end

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

Mã máy x86 cho Linux, 60 byte

e8 1f 00 00 00 31 c0 80 3f 20 75 09 47 4d 74 10
e8 0f 00 00 00 80 7c 2f ff 20 74 05 84 c0 75 e5
c3 4d eb dc 6a 04 58 50 31 db 43 89 f9 89 ea cd
80 58 6a 0a 89 e1 89 da cd 80 58 c3

Đây là một chức năng cho Linux x86. Nó nhận làm con trỏ đầu vào cho chuỗi trong edivà độ dài chuỗi trong ebp.

Ungolfed, với một số cơ sở hạ tầng để kiểm tra (biên dịch với FASM, chạy với chuỗi dưới dạng đối số chương trình; tìm undress:nhãn cho mã chức năng thực tế):

format ELF executable
segment executable
SYS_WRITE = 4
    jmp     callUndress
; -------------------- the function itself --------------------------------
; Input:
;   edi=string
;   ebp=length
undress:
undressLoopPrint:
    call    print
undressLoop:
    xor     eax, eax    ; flag of having printed anything on this iteration
    cmp     byte [edi], ' '
    jne     startsWithoutSpace
    inc     edi
    dec     ebp
    jz      quit
    call    print
startsWithoutSpace:
    cmp     byte [edi+ebp-1], ' '
    je      endsWithSpace
    test    al, al      ; if print has been called, then we have 0x0a in eax
    jnz     undressLoop
quit:
    ret
endsWithSpace:
    dec     ebp
    jmp     undressLoopPrint
print:
    push    SYS_WRITE
    pop     eax
    push    eax
    xor     ebx, ebx
    inc     ebx ; STDOUT
    mov     ecx, edi
    mov     edx, ebp
    int     0x80
    pop     eax
    push    0x0a    ; will print newline
    mov     ecx, esp
    mov     edx, ebx ; STDOUT=1, which coincides with the length of newline
    int     0x80
    pop     eax
    ret
; --------------------- end undress ---------------------------------------
SYS_EXIT = 1
STDERR = 2
callUndress:
    pop     eax     ; argc
    cmp     eax, 2
    jne     badArgc
    pop     eax     ; argv[0]
    pop     edi
    mov     al, 0
    cld
    mov     ecx, -1
    repne   scasb
    lea     edi, [edi+ecx+1] ; argv[1]
    neg     ecx
    sub     ecx, 2
    mov     ebp, ecx     ; strlen(argv[1])
    call    undress
    xor     ebx, ebx
exit:
    mov     eax, SYS_EXIT
    int     0x80
    ud2
badArgc:
    mov     esi, eax
    mov     eax, SYS_WRITE
    mov     ebx, STDERR
    mov     ecx, badArgcMsg
    mov     edx, badArgcMsgLen
    int     0x80
    mov     ebx, esi
    neg     ebx
    jmp     exit
badArgcMsg:
    db      "Usage: undress YourString",0x0a,0
badArgcMsgLen = $-badArgcMsg
segment readable writable
string:
    db      100 dup(0)
    stringLen = $-string

PHP , 117 byte

Tôi thêm một không gian bổ sung khi bắt đầu để nó sẽ lấy không gian ra và hiển thị bản gốc mà không cần thêm bất kỳ mã nào.

Một điều mới mẻ về điều này ... liệu <? Php và khoảng trống ở đầu tệp PHP có thêm 6 byte hay tôi có được miễn phí không?

$s=" $argn";while($r!=$s){$r=$s;if($s[0]==" ")echo($s=substr($s,1))."
";if($s[-1]==" ")echo($s=substr($s,0,-1))."
";}

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

Bình thường , 28 byte

QW<lrKQ6lQ=hZ?&%Z2qdhQ=tQ=PQ

Hãy thử nó ở đây! hoặc Xác minh tất cả các trường hợp thử nghiệm!

Giải trình

QW<lrKQ6lQ=hZ?&%Z2qdhQ=tQ=PQ   ~ Full program. Q is autoinitialized to input.

Q                              ~ Output the input.
 W<lrKQ6lQ                     ~ Loop while the condition is met.
  <                            ~ Is smaller?
   lrKQ6                       ~ The length of the original input, stripped on both sides.
        lQ                     ~ The length of the current Q.
          =hZ                  ~ Increment a variable Z, initially 0
             ?&%Z2qdhQ         ~ If Z % 2 == 1 and Q[0] == " ", then:
                      =tQ      ~ Make Q equal to Q[1:] and output, else:
                         =PQ   ~ Make Q equal to Q[:-1] and output.

Python 2 , 79 byte

-1 byte nhờ @JonathanFrech

f=lambda s,i=1:[s]+(s>i*'!'and'!'>s[-1]and f(s[:-1])or'!'>s and f(s[1:],0)or[])

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

Này thay thế thử nghiệm phù hợp "."với " "trước khi gọi hàm và thay thế " "sao để "."trước khi in kết quả cho rõ ràng.

C # - một lần nữa, 125 byte

while(s.Trim()!=s){if(s[0]==' '){yield return s=s.Substring(1);}if(s.Last()==' '){yield return s=s.Substring(0,s.Length-1);}}

Chúc mừng!

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

Octave , 89 byte

s=input('');while any(s([1,end])<33)if s(1)<33,s(1)=[],end,if s(end)<33,s(end)=[],end,end

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

Tôi sẽ thêm một lời giải thích sau, khi tôi có thời gian. Tôi có thể bỏ qua một số byte nếu tôi thay đổi hoàn toàn cách tiếp cận, nhưng tôi không thể thấy thật đáng tiếc.

Các chữ cái cuối cùng ở đây đánh vần: "sendsendendend". Tôi ước có một cách để lưu trữ endnhư một biến và sử dụng nó, nhưng đoán xem ...

Bash, 98 94 byte

Đã lưu 4 byte bằng cách sử dụng mạng con thay vì chuỗi (hiệu suất kém)

r()(s=$1;[[ $s = $b ]]||([[ $s = $a ]]||echo "$s"
b=$a a=$s;((i=!i))&&r "${s# }"||r "${s% }"))

Câu trả lời đầu tiên

r(){ s=$1;[[ $s = $b ]]||{ [[ $s = $a ]]||echo "$s"
b=$a a=$s;((i=!i))&&r "${s# }"||r "${s% }";};}

Lưu ý !phải được thoát trong chế độ tương tác