ตอนนี้เรามีวิธีดึงสตริงออกจากช่องว่างแล้ว

อย่างไรก็ตามในฐานะสุภาพบุรุษ / สุภาพสตรีที่เหมาะสมเราควรถอดเสื้อผ้าออก

การถอดสายจะเหมือนกับการลอกให้ละเอียดยิ่งขึ้นเท่านั้น แทนที่จะลบช่องว่างนำหน้าและหลังทั้งหมดในคราวเดียวเราจะลบทีละช่อง นอกจากนี้เรายังสลับกันระหว่างการนำหน้าและต่อท้ายเพื่อไม่ให้ขั้นตอนการเบิร์นเสีย

ตัวอย่างเริ่มต้นด้วย" codegolf "(ห้าช่องว่างนำหน้าและต่อท้าย):

     codegolf     
    codegolf     
    codegolf    
   codegolf    
   codegolf   
  codegolf   
  codegolf  
 codegolf  
 codegolf 
codegolf 
codegolf

1. ก่อนอื่นเอาท์พุทสตริงไม่เปลี่ยนแปลง จากนั้นส่งออกทุกขั้นตอน เริ่มต้นด้วยการลบช่องว่างนำหน้า (ถ้ามี - ดูกฎ # 2)

2. อินพุตอาจมีช่องว่างนำหน้าและต่อท้ายจำนวนแตกต่างกัน หากคุณไม่มีที่ว่างในอีกด้านหนึ่งให้คลายอีกส่วนหนึ่งจนกว่าสตริงนั้นจะว่างเปล่า

3. อินพุตอาจไม่มีช่องว่างนำหน้าหรือต่อท้าย หากเป็นกรณีนี้ให้ส่งออกตามที่เป็นอยู่

4. ใช้ค่าเริ่มต้นฉันวิธีการ / O PPCG ของ PPCG ช่องโหว่เริ่มต้นเป็นสิ่งต้องห้าม

5. พฤติกรรมที่ไม่ได้กำหนดไว้ในอินพุตว่างหรืออินพุตที่มีช่องว่างเท่านั้นก็โอเค

6. คุณสามารถสันนิษฐานได้ว่าสตริงจะมีอักขระจากพื้นที่พิมพ์ ASCII ( 0x20ถึง0x7E) เท่านั้น

ตัวอย่าง - ช่องว่างจะถูกแทนที่ด้วยจุด.เพื่อให้อ่านง่ายขึ้น:

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

สุภาพบุรุษ / สุภาพสตรีเป็นรัดกุมเพื่อให้คำตอบที่สั้นที่สุดในไบต์ชนะ

เรติน่า 26 ไบต์

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

ลองออนไลน์! (ชุดทดสอบใช้ระยะเวลาเพื่อความชัดเจนส่วนท้ายและส่วนหัวจะแปลงเป็นและจากช่องว่างสำหรับรหัสหลัก)

คำอธิบาย

มันคงจะดีถ้าเราสามารถสลับระหว่างการลดพื้นที่นำหน้าและช่องว่างท้ายและพิมพ์ผลกลางในแต่ละครั้ง ปัญหาคือว่าในปัจจุบัน Retina ไม่สามารถพิมพ์แบบมีเงื่อนไขดังนั้นแม้จะพิมพ์ผลลัพธ์ระดับกลางนี้หากไม่มีส่วนนำหน้าหรือไม่มีช่องว่างต่อท้ายทำให้เกิดการซ้ำซ้อน (Retina 1.0 จะได้รับตัวเลือกที่พิมพ์ผลลัพธ์เฉพาะเมื่อมีการเปลี่ยนแปลงสตริงโดยการดำเนินการ แต่เรายังไม่ได้ ...

ดังนั้นเราจึงสร้างสตริงเดี่ยวที่มีผลลัพธ์ระดับกลางทั้งหมดและพิมพ์ในตอนท้าย

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

{ตัดทั้งสองขั้นตอนของโปรแกรมในวงที่ซ้ำจนกว่าสตริงหยุดการเปลี่ยนแปลง (ซึ่งหมายความว่าจะไม่มีชั้นนำ / ช่องว่างต่อท้ายซ้าย) สเตจนั้นตรงกับพื้นที่นำในบรรทัดสุดท้ายของสตริงและบรรทัดสุดท้ายแล้วเขียนการแข่งขันกลับรวมถึงเนื้อหาหลังช่องว่างในบรรทัดใหม่ (ดังนั้นจึงลดพื้นที่นำในสำเนา)

 $
 ¶$%`

การลบพื้นที่ต่อท้ายง่ายกว่าเล็กน้อย ถ้าเราเพียงแค่ตรงกับพื้นที่สุดท้ายเราสามารถเข้าถึงสิ่งที่อยู่ตรงหน้ามัน (ในบรรทัดเดียวกัน) ด้วยซึ่งเป็นตัวแปรบรรทัดตระหนักถึงการเปลี่ยนตัวคำนำหน้า$%`$`

Python 2 , 122 107 103 102 98 95 93 91 90 88 87 ไบต์

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

ลองออนไลน์!

Python 3 , 97 95 93 90 ไบต์

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)

ลองออนไลน์!

Perl 6 , 55 ไบต์

บันทึกแล้ว 3 ไบต์ขอบคุณ @nwellnhof

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

ลองออนไลน์!

คำอธิบาย : ($_,{$++%2??S/" "$//!!S/^" "//}...*)เป็นลำดับไม่สิ้นสุดซ้ำที่เริ่มต้นด้วยสตริงเดิม ( $_) และองค์ประกอบต่อไปจะได้รับจากบล็อกที่เรียกว่าองค์ประกอบก่อนหน้า

บล็อกเองได้รับสตริงใน$_ตัวแปร โอเปอเรเตอร์S/(regex)/(string)/จะค้นหาการเกิดขึ้นครั้งแรกของ(regex)ใน$_แทนที่ด้วย(string)และส่งกลับผลลัพธ์ หากไม่มีการจับคู่ก็จะส่งคืนเนื้อหาของ$_ไม่เปลี่ยนแปลง เราใช้ผู้ประกอบการที่ประกอบไป?? !!ด้วยเงื่อนไข$++%2ซึ่งสลับไปมาระหว่างFalseและTrue( $เป็นตัวแปรอิสระที่สงวนเนื้อหาในการโทรไปยังบล็อก)

ในกรณีที่เลวร้ายที่สุด (ช่องว่างทั้งหมดด้านหนึ่งและอีก 1 ตัวอักษร) เราจะลบ 1 ช่องว่างออกทุก 2 ขั้นตอน ดังนั้นเราจึงมั่นใจได้ว่าในขั้นตอน 2 * (ความยาวของสตริง) ช่องว่างทั้งหมดจะถูกลบ เราจะใช้องค์ประกอบที่จำนวนมากจากลำดับ recursive ด้วย[^.comb*2]และในที่สุดก็ทิ้งซ้ำกัน (ซึ่งเกิดขึ้นเมื่อใดก็ตามที่พื้นที่ควรจะถูกลบออก แต่มันก็ไม่ได้มี) .uniqueด้วย สิ่งนี้จะคืนค่ารายการของสตริงที่มีการเว้นช่องว่าง

05AB1E , 21 15 ไบต์

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

ลองออนไลน์!

คำอธิบาย ^

=                 # 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 ไบต์

เวอร์ชันแบบเรียกซ้ำนั้นสั้นกว่า ;-)

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);}

ลองออนไลน์!

C (gcc) , 107 102 101 100 99 ไบต์

บันทึก 2 ไบต์ด้วย @Jonathan Frech โดยใช้ช่องว่างและ ~

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);}

ลองออนไลน์!

JavaScript (ES6) 92

@Upvoters: ดูที่คำตอบ JS อื่น ๆ ด้านล่างที่มีความยาว76ไบต์

(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))}

ลูปกำลังมองหาที่ว่างด้านหน้าหรือท้าย หากพบให้ลบช่องว่างและสตริงออก หากไม่พบช่องว่าง 2 ครั้งให้หยุด

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 ไบต์

ที่บันทึกไว้ 4 ไบต์เนื่องจาก@Abigail

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

ต้อง-plนับเป็น 2 -Eเรียกด้วย

ตัวอย่างการใช้งาน

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

ลองออนไลน์!

C # (. NET Core) , 192 183 182 181 179 178 ไบต์

^{-3 ไบต์ขอบคุณ 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;}

ลองออนไลน์!

Java 8, 150 146 145 137 ไบต์

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 ไบต์ขอบคุณที่@Nevayเปลี่ยนไป(f<1&s.charAt(0)<33) ไบต์ -1 โดยใช้เคล็ดลับจาก@someone C # .NET คำตอบ 'sแทน -8 ไบต์ขอบคุณ@Nevayอีกครั้งโดยเปลี่ยนเป็นเพราะจะส่งคืน " สำเนาของสตริงนี้ที่นำพื้นที่ว่างสีขาวนำหน้าและต่อท้ายหรือสตริงนี้หากไม่มีพื้นที่สีขาวนำหน้าหรือต่อท้าย " ดังนั้นการอ้างอิงยังคงเหมือนเดิมและสามารถใช้เพื่อตรวจสอบว่าพวกเขาเป็นข้อมูลอ้างอิงเดียวกันแทนที่จะตรวจสอบค่าเดียวกันf+s.charAt(0)<33
!s.trim().equals(s)s.matches(" .*|.* ")
!s.trim().equals(s)s!=s.trim()String#trim!=.equals

คำอธิบาย:

ลองได้ที่นี่ (หรือลองรุ่นภาพมากขึ้นที่นี่ด้วย#แทนช่องว่าง)

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 ไบต์

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);}

ลองออนไลน์!

เยลลี่ขนาด 16 ไบต์

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

ลองออนไลน์!

-2 ไบต์ขอบคุณ Erik the Outgolfer
-1 ไบต์ขอบคุณไมล์

คำอธิบาย

Ḋ=⁶Ḣ$¡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

ทับทิม , 63 ไบต์

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

ลองออนไลน์!

Java (OpenJDK 8) , 161 147 146 ไบต์

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;}

ลองออนไลน์!

-1 ไบต์ขอบคุณ@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 ไบต์

-8 ไบต์โดยการยืมความคิดที่ไม่จำเป็นสำหรับการตรวจสอบจาก Emigna

,v2F¬ðQi¦DNiR},}R

ลองออนไลน์!

ฉันค่อนข้างมั่นใจว่าวิธีการที่ตรงไปตรงมาน้อยกว่าสามารถเอาชนะโซลูชันนั้นได้อย่างง่ายดาย สำหรับตอนนี้...

คำอธิบาย:

,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 ไบต์

-12 ไบต์ขอบคุณ @Giuseppe โดยเก็บผลลัพธ์subไว้ในตัวแปรใหม่และทดสอบว่ามีการเปลี่ยนแปลงหรือไม่

-22 ไบต์โดยส่งคืนเวกเตอร์ของสตริงแทนที่จะเป็นสตริงที่มีบรรทัดใหม่

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}

ลองออนไลน์!

คำอธิบายเกี่ยวกับเวอร์ชันที่ไม่ดีบางส่วน:

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 ไบต์

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))));}

ลองออนไลน์!

MATL , 21 16 ไบต์

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

สิ่งนี้ใช้จุดแทนการเว้นวรรคเพื่อความชัดเจนที่มากขึ้น สำหรับพื้นที่แทนที่โดย4632

ลองออนไลน์!

คำอธิบาย

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 ไบต์

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

ขอบคุณ Leo สำหรับ -1 ไบต์

ลองออนไลน์!

คำอธิบาย

ฟังก์ชั่น`G`Iควรเป็นแบบในตัว ...

?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 ไบต์

-10 ไบต์ขอบคุณ Jonathan Frech
-3 ไบต์ขอบคุณ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;}};

การคอมไพล์ด้วย MSVC ต้องมีการยกเลิกการเปิดใช้งานการตรวจสอบ SDL

C # (. NET Core) , 176 170 ไบต์

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

ลองออนไลน์!

นี่เป็นทางเลือกแทนคำตอบของใครบางคน @และเพียงแค่ส่งออกสตริงโดยตรง

JavaScript (ES6), 76 ไบต์

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

ส่งออกเป็นสตริงหลายบรรทัด

กรณีทดสอบ

ใช้จุดแทนการเว้นวรรคเนื่องจากคำตอบส่วนใหญ่กำลังทำอยู่

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 ไบต์

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

ลองออนไลน์!

อ็อกเทฟ88 88ไบต์

ปิด 5 ไบต์ด้วย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

ลองออนไลน์!

รหัสเครื่อง x86 สำหรับ Linux, 60 ไบต์

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

นี่คือฟังก์ชั่นสำหรับ Linux x86 มันใช้เป็นตัวชี้เข้ากับสตริงในediและความยาวสตริงในebpและระยะเวลาในสตริงใน

Ungolfed พร้อมโครงสร้างพื้นฐานที่จะทดสอบ (คอมไพล์ด้วย FASM รันด้วยสตริงเป็นอาร์กิวเมนต์ของโปรแกรมค้นหาundress:เลเบลสำหรับโค้ดฟังก์ชันจริง):

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 ไบต์

ฉันเพิ่มช่องว่างเพิ่มเติมในตอนเริ่มต้นเพื่อให้มีพื้นที่ว่างและแสดงต้นฉบับโดยไม่มีรหัสพิเศษใด ๆ

ค่อนข้างใหม่สำหรับสิ่งนี้ ... <? php และพื้นที่ที่จุดเริ่มต้นของไฟล์ PHP จะเพิ่ม 6 ไบต์พิเศษหรือฉันจะได้รับสิ่งนั้นฟรีหรือไม่

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

ลองออนไลน์!

Pyth , 28 ไบต์

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

ลองที่นี่! หรือตรวจสอบกรณีทดสอบทั้งหมด!

คำอธิบาย

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 ไบต์

-1 ไบต์ขอบคุณ @JonathanFrech

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

ลองออนไลน์!

ชุดทดสอบจะแทนที่"."ด้วย" "ก่อนที่จะเรียกใช้ฟังก์ชันและแทนที่" "กลับไป"."ก่อนพิมพ์ผลลัพธ์เพื่อความชัดเจน

C # - อีกครั้ง 125 ไบต์

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);}}

ไชโย!

ลองออนไลน์!

อ็อกเทฟ , 89 ไบต์

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

ลองออนไลน์!

ฉันจะเพิ่มคำอธิบายในภายหลังเมื่อฉันมีเวลา ฉันอาจตีกอล์ฟบางไบท์ได้ถ้าฉันเปลี่ยนวิธีการอย่างสมบูรณ์ แต่ฉันไม่สามารถดูว่าน่าเสียดาย

ตัวอักษรตัวสุดท้ายที่นี่สะกด: "sendendendend" ฉันหวังว่าจะมีวิธีเก็บendเป็นตัวแปรและใช้สิ่งนั้น แต่เดาว่า ...

ทุบตี, 98 94 ไบต์

บันทึก 4 ไบต์โดยใช้ subshell แทนที่จะเป็นซีเควนซ์ (ประสิทธิภาพต่ำ)

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

คำตอบแรก

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

โปรดทราบว่า!จะต้องหลีกเลี่ยงในโหมดโต้ตอบ