(หมายเหตุ: นี่คือคำถามรหัสกอล์ฟครั้งแรกของฉัน แต่เท่าที่ฉันสามารถบอกได้ไม่มีใครทำอย่างนี้ดังนั้นฉันควรจะดี)

งานของคุณคือการสร้างโปรแกรมหรือฟังก์ชั่นที่ใช้ในสตริงsและจำนวนเต็มnและส่งคืนหรือส่งออกข้อความที่ห่อเป็นหลายบรรทัด แต่ละคำต้องอยู่ในบรรทัดทั้งหมด กล่าวคือไม่มีคำแยกกลาง แต่ละบรรทัดต้องมีความยาวไม่เกินnอักขระและคุณต้องใส่คำให้มากที่สุดเท่าที่จะทำได้ในแต่ละบรรทัด

ตัวอย่าง:

s = "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed eget erat lectus. Morbi mi mi, fringilla sed suscipit ullamcorper, tristique at mauris. Morbi non commodo nibh. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Sed at iaculis mauris. Praesent a sem augue. Nulla lectus sapien, auctor nec pharetra eu, tincidunt ac diam. Sed ligula arcu, aliquam quis velit aliquam, dictum varius erat." 
n = 50

output:
Lorem ipsum dolor sit amet, consectetur adipiscing
elit. Sed eget erat lectus. Morbi mi mi, fringilla
sed suscipit ullamcorper, tristique at mauris.
Morbi non commodo nibh. Pellentesque habitant
morbi tristique senectus et netus et malesuada
fames ac turpis egestas. Sed at iaculis mauris.
Praesent a sem augue. Nulla lectus sapien, auctor
nec pharetra eu, tincidunt ac diam. Sed ligula
arcu, aliquam quis velit aliquam, dictum varius
erat.

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

ใช้กฎ I / O มาตรฐานและไม่อนุญาตช่องโหว่มาตรฐาน อนุญาตให้เว้นวรรคต่อท้าย

เนื่องจากนี่คือcode-golfวิธีแก้ปัญหา shortes ในหน่วยไบต์จะเป็นผู้ชนะ

นี่คือตัวอย่างโปรแกรมใน Python ที่ใช้งานได้

Python 2 , 26 ไบต์

from textwrap import*
fill

ลองออนไลน์!

Meh ... built-in นั้นน่าเบื่อ ... แทนที่จะใช้ 87-byte solution ที่นี่:

s,n=input()
x=''
for i in s.split():c=n<len(x+i);exec'print x'*c;x=x*-~-c+i+' '
print x

ลองออนไลน์!

เอาต์พุตช่องว่างต่อท้าย

PHP , 8 ไบต์

ไม่ใช่โซลูชันที่เป็นต้นฉบับที่สุด แต่ PHP มีฟังก์ชันดั้งเดิมที่ตรงกับความต้องการของคุณอย่างสมบูรณ์แบบ!

wordwrap:

string wordwrap ( string $str [, int $width = 75 [, string $break = "\n" [, bool $cut = FALSE ]]] )

ห่อสตริงตามจำนวนอักขระที่กำหนดโดยใช้อักขระแบ่งสตริง

ใช้อย่างนั้น:

$str = "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed eget erat lectus. Morbi mi mi, fringilla sed suscipit ullamcorper, tristique at mauris. Morbi non commodo nibh. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Sed at iaculis mauris. Praesent a sem augue. Nulla lectus sapien, auctor nec pharetra eu, tincidunt ac diam. Sed ligula arcu, aliquam quis velit aliquam, dictum varius erat.";
echo wordwrap($str, 50);

หรือลองออนไลน์!

JavaScript (ES6),  75 73  72 ไบต์

(string)(n)จะเข้าเป็น

s=>n=>s.split` `.map(w=>r=(u=r?r+' '+w:w)[n]?(o+=r+`
`,w):u,o=r='')&&o+r

ลองออนไลน์!

ตัวแปร

เอาต์พุตที่จัดรูปแบบแล้วจะถูกเก็บไว้ใน (เป็นสีเขียวด้านล่าง)$o$

บรรทัดที่อัพเดตถูกกำหนดเป็นการเชื่อมต่อของ:$u$

• บรรทัดปัจจุบัน (เป็นสีดำด้านล่าง)$r$
• ช่องว่างถ้าไม่ว่างเปล่าหรือไม่มีอะไรอื่น (เป็นสีส้มด้านล่าง)$r$
• คำใหม่ (สีน้ำเงินด้านล่าง)$w$

เราจำเป็นต้องแทรกตัวแบ่งบรรทัดเมื่อใดก็ตามที่มีการตั้งค่าอักขระ -th ของ (ดัชนี 0, สีแดงด้านล่าง)$n$$u$

ตัวอย่าง

$n=16$และ = "LOREM IPSUM DOLOR"$s$

การเพิ่ม "LOREM": start

การเพิ่ม "IPSUM": start

การเพิ่ม "DOLOR": start

Perl 6 , 46 29 ไบต์

{;*.comb(/.**{1..$_}[\s|$]/)}

ลองออนไลน์!

โซลูชันที่ใช้ Regex ซึ่งรับอินพุต curried f(n)(s)ไลค์และส่งคืนรายการของบรรทัด แต่ละบรรทัดยกเว้นบรรทัดสุดท้ายมีช่องว่างต่อท้าย

คำอธิบาย:

{;*                         }   # Anonymous code block that returns a Whatever lambda
   .comb(/                /)    # Split the string by
          .**{1..$_}            # Up to n characters
                    [\s|$]      # Terminated by a whitespace char or the end of the string

เป็นกลุ่ม 15 ไบต์ / การกดแป้น

DJ:se tw=<C-r>"
gq_

คำถามการจัดรูปแบบข้อความ? ฉันรู้แค่เครื่องมือสำหรับงาน! และมันก็มีชื่อของฉันในการกดปุ่มสองครั้งแรก: D

<C-r>ctrl-rวิธี

นี้อาจเคยสั้นดังนั้นเล็กน้อยใน Vแต่ฉันชอบตอบในวานิลลาเป็นกลุ่มสำหรับคำตอบที่จริงๆอวดวิธีกระชับเป็นกลุ่มสามารถสำหรับความท้าทายที่เหมาะสม และความแตกต่างนั้นเล็กมากเลยล่ะค่ะ

นี่อาจเป็นสิ่งต่อไปนี้สำหรับ 15 ไบต์เช่นกัน:

:se tw=<C-r><C-w>
ddgq_

ลองออนไลน์!

R , 36 27 ไบต์

R มีสิ่งนี้ในตัว ( strwrap) เราจะคืนค่าเวกเตอร์ของเส้นแยก

function(s,n)strwrap(s,n+1)

ลองออนไลน์!

Haskell , 70 ไบต์

s!n|length s<=n=[s]|(t,_:d)<-splitAt(until((<'!').(s!!))pred n)s=t:d!n

Python 2 , 74 ไบต์

s,n=input()
while s:i=n;exec"i-=' '<(s+' '*n)[i];"*n;print s[:i];s=s[i+1:]

ลองออนไลน์!

Java (JDK) , 46 44 ไบต์

โดยทั่วไปแล้วโซลูชัน regex บริสุทธิ์ใน Java นั้นสั้นที่สุดที่ฉันเขียน

ไชโยกับเควินที่ช่วยลดจำนวนไบต์ใน regex ยิ่งขึ้นไปอีก!

n->s->s.replaceAll(".{1,"+n+"}( |$)","$0\n")

ลองออนไลน์!

การใช้ lamdba curried จะสร้าง regex เพื่อจับคู่โลภกับnตัวอักษรตามด้วยช่องว่างหรือจุดสิ้นสุดของสตริง จากนั้นจะแทนที่อักขระเหล่านั้นด้วยตัวเองตามด้วยบรรทัดใหม่

Mathematica ขนาด 16 ไบต์

InsertLinebreaks

ฟังก์ชั่นในตัว รับสตริงและจำนวนเต็มเป็นอินพุตและส่งคืนสตริงเป็นเอาต์พุต

InsertLinebreaks["string", n]
 แทรกอักขระขึ้นบรรทัดใหม่เพื่อให้บรรทัดไม่เกินnตัว

Powershell, 40 83 ไบต์

กรณีทดสอบที่n=80เพิ่มเข้ามา

param($s,$n)$s-split' '|%{if(($o+$_|% le*)-lt$n){$o+=' '*!!$o+$_}else{$o;$o=$_}}
$o

สคริปต์ทดสอบ:

$f = {

param($s,$n)$s-split' '|%{if(($o+$_|% le*)-lt$n){$o+=' '*!!$o+$_}else{$o;$o=$_}}
$o

}

@(
,(50, "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed eget erat lectus. Morbi mi mi, fringilla sed suscipit ullamcorper, tristique at mauris. Morbi non commodo nibh. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Sed at iaculis mauris. Praesent a sem augue. Nulla lectus sapien, auctor nec pharetra eu, tincidunt ac diam. Sed ligula arcu, aliquam quis velit aliquam, dictum varius erat.",
"Lorem ipsum dolor sit amet, consectetur adipiscing",
"elit. Sed eget erat lectus. Morbi mi mi, fringilla",
"sed suscipit ullamcorper, tristique at mauris.",
"Morbi non commodo nibh. Pellentesque habitant",
"morbi tristique senectus et netus et malesuada",
"fames ac turpis egestas. Sed at iaculis mauris.",
"Praesent a sem augue. Nulla lectus sapien, auctor",
"nec pharetra eu, tincidunt ac diam. Sed ligula",
"arcu, aliquam quis velit aliquam, dictum varius",
"erat.")
,(80, "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed eget erat lectus. Morbi mi mi, fringilla sed suscipit ullamcorper, tristique at mauris. Morbi non commodo nibh. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Sed at iaculis mauris. Praesent a sem augue. Nulla lectus sapien, auctor nec pharetra eu, tincidunt ac diam. Sed ligula arcu, aliquam quis velit aliquam, dictum varius erat.",
"Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed eget erat lectus.",
"Morbi mi mi, fringilla sed suscipit ullamcorper, tristique at mauris. Morbi non",
"commodo nibh. Pellentesque habitant morbi tristique senectus et netus et",
"malesuada fames ac turpis egestas. Sed at iaculis mauris. Praesent a sem augue.",
"Nulla lectus sapien, auctor nec pharetra eu, tincidunt ac diam. Sed ligula arcu,",
"aliquam quis velit aliquam, dictum varius erat.")
) | %{
    $n,$s,$expected = $_
    $result = &$f $s $n
    "$result"-eq"$expected"
    # $result   # uncomment this line to dispaly a result
}

เอาท์พุท:

True
True

C (gcc) , 68 ไบต์

i;b(s,n,l)char*s,*l;{for(i=n;*++s;i--||(i=l-s+n,*l=10))l=*s-32?l:s;}

ลองออนไลน์!

ด้วยการติดตั้งcatcatช่วยให้ประหยัด 2 ไบต์ด้วยการย้ายchar*lพารามิเตอร์ไปที่พารามิเตอร์

Japt , 20 ไบต์

¸rÈ+Yi[X·ÌY]¸Ê>V?R:S

ลองออนไลน์!

ขอบคุณ Bubbler และ Shaggy สำหรับความช่วยเหลือ

คำอธิบาย:

¸                       #Split into words
 r                      #For each word, add them to the output in this way:
     i                  # Choose a character using this process:
       X·Ì              #  Get the last line of the output
          Y             #  And the current word
      [    ]¸           #  Join them with a space
             Ê>V?       #  If the resulting line is greater than the allowed length:
                ?R      #   Choose "/n" (newline)
                  :S    #  Otherwise choose " " (space)
     i                  # Add the chosen character to the output
  È+Y                   # Add the current word to the output

เรติน่า 0.8.2 , 37 ไบต์

.+$
$*
!`(?=\S.*¶(1)+)(?<-1>.)+(?=\s)

ลองออนไลน์! ใช้เวลาsและnในบรรทัดที่แยกจากกัน คำอธิบาย:

.+$
$*

แปลงnเป็นเอก

(?=\S.*¶(1)+)(?<-1>.)+(?=\s)

ตรงกับที่ไม่ใช่ช่องว่างแล้วมองไปข้างหน้าและนับว่าเป็นn $#1จากนั้นกลับไปใช้กลุ่มสมดุลเพื่อจับคู่nอักขระตามช่องว่าง

!`

แสดงผลลัพธ์ของรายการที่ตรงกัน

ถ่าน 19 ไบต์

Ｎθ←Ｆ⪪Ｓ «¿‹⁺ＬιⅈθＭ→⸿ι

ลองออนไลน์! การเชื่อมโยงคือการสร้างรหัสเวอร์ชัน รับอินพุตnและsแยกบรรทัด คำอธิบาย:

Ｎθ

nอินพุต

←

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

Ｆ⪪Ｓ «

แยกสตริงในช่องว่างและวนรอบคำ

¿‹⁺Ｌιⅈθ

คำนวณว่าคำถัดไปจะไปถึงขอบด้านขวา

Ｍ→

ถ้ามันจะไม่ย้ายหนึ่งตารางขวา

⸿

ถ้ามันจะเริ่มบรรทัดใหม่

ι

เอาท์พุทคำว่า

สีแดง , 125, 117, 114 112 ไบต์

func[s n][d: 0 parse s[any[to" "p:" "opt[[to" "| to end]q:(if(-1 - d + index? q)> n[p/1: #"^/"d: index? p])]]]s]

ลองออนไลน์!

05AB1E , 18 ไบต์

õs#vDy«g²›i,}yðJ}?

ลองออนไลน์

คำอธิบาย:

õ                   # Push an empty string "" to the stack
 s                  # Swap to take the (implicit) string input
  #                 # Split it by spaces
   v            }   # For-each `y` over the words:
    D               #  Duplicate the top of the stack
                    #  (which is the empty string in the very first iteration)
     y«             #  Append the current word `y`
       g            #  Get its length
        ²›i }       #  If its lengthy is larger than the second input:
           ,        #   Pop and output the current duplicated value with trailing newline
             yð     #  Push the word `y` and a space " "
               J    #  Join the entire stack together
                 ?  # After the loop, output the last part as well (without newline)

Java 8, 135 ไบต์

n->s->{String r="",S[]=s.split(" "),t=r;for(int i=0;i<S.length;)if((t+S[i]).length()>n){r+=t+"\n";t="";}else t+=S[i++]+" ";return r+t;}

ลองออนไลน์

คำอธิบาย:

n->s->{                      // Method with integer & String parameters and String return
  String r="",               //  Result-String, starting empty
         S[]=s.split(" "),   //  Input-String split by spaces
         t=r;                //  Temp-String, starting empty as well
  for(int i=0;i<S.length;)   //  Loop `i` in the range [0, amount_of_words):
    if((t+S[i]).length()>n){ //   If `t` and the word are larger than the integer input:
      r+=t+"\n";             //    Add `t` and a newline to the result
      t="";}                 //    And reset `t` to an empty String
     else                    //   Else:
       t+=S[i++]+" ";        //    Append the word and a space to `t`
                             //    (and then increase `i` by 1 with `i++` for the next word
                             //     of the next iteration)
  return r+t;}               //  Return the result-String appended with `t` as result

JavaScript ขนาด 40 ไบต์

s=>n=>eval(`s.match(/.{1,${n}}( |$)/g)`)

ลองออนไลน์!

APL (Dyalog Unicode) , 14 ไบต์^SBCS

ฟังก์ชั่นมัด; อาร์กิวเมนต์ซ้ายเป็นข้อโต้แย้งที่ถูกต้องคือnn

⎕CY'dfns'⋄wrap

ลองออนไลน์!

⎕CY c op yในไลบรารี dfns

⋄ แล้วก็

wrap^[c]  ใช้ฟังก์ชันwrap ^[n]

^[c]  รหัสของฟังก์ชันนั้น
^[n]  หมายเหตุสำหรับฟังก์ชันนั้น

รุ่นแข็งแรงเล่นกอล์ฟของwrap59 ไบต์^SBCS

{⍺≥≢⍵:⍵⋄(t↑⍵),2↓⎕TC,⍺∇⍵↓⍨t+b⊃⍨t←⊃⌽⍺,g/⍨⍺≥g←⍸(⍺+1)↑b←' '=⍵}

ลองออนไลน์!

{… } dfn; ⍺คืออาร์กิวเมนต์ที่เหลือ (ความกว้าง), ⍵คืออาร์กิวเมนต์ที่ถูกต้อง (สตริง)

 ≢⍵ tally (จำนวนอักขระ) ของสตริง

 ⍺≥… : หากความกว้างมากกว่าหรือเท่ากับนั้น:

  ⍵ ส่งคืนสตริง

 ⋄ มิฉะนั้น:

  ' '=⍵ บูลีนมาส์กที่ช่องว่างเท่ากับสตริง

  b← เก็บในb(สำหรับb lanks)

  (… )↑ รับจำนวนองค์ประกอบต่อไปนี้จากที่:

   ⍺+1 มากกว่าหนึ่งความกว้าง

  ⍸ ฉัน ndices ที่จริง

  g← เก็บในg(สำหรับg aps)

  ⍺≥ บูลีนมาส์กที่ความกว้างมากกว่าหรือเท่ากับ

  g/⍨ กรองดัชนีช่องว่างโดยที่

  ⍺, ต่อท้ายที่ความกว้าง

  ⊃⌽ เลือกองค์ประกอบสุดท้ายของสิ่งนั้น (lit. เลือกแรกของสิ่งที่ตรงกันข้าม)

  t← เก็บในt(สำหรับt ake)

  b⊃⍨ ใช้สิ่งนั้นเพื่อเลือกองค์ประกอบจากหน้ากากของb lanks

  t+ เพิ่มที่ t

  ⍵↓⍨ ปล่อยอักขระจำนวนมากจากสตริง

  ⍺∇ recurse ในที่มีอาร์กิวเมนต์ซ้ายซ้ายเหมือนกัน

  ⎕TC, ผนวกกับรายการของT erminal คข้อมูลควบคุมตัวละคร (8: HT, 10: NL, 13: CR)

  2↓ ดร็อปอักขระสองตัวแรกจากนั้น (เหลือเพียงตัวนำ 13: CR)

  (... ), ต่อท้ายสิ่งต่อไปนี้:

   t↑⍵tอักขระตัว แรกของสตริง

ขอบคุณ @Erik the Outgolfer เวอร์ชัน golfed:

Python 3 , 94 ไบต์

def f(t,n):
 while t:i=n+(t[min(len(t)-1,n)]==" "or-t[n-1::-1].find(' '));print(t[:i]);t=t[i:]

ลองออนไลน์!

# Python 3 , 130 ไบต์

def f(t,n):
 l=[]
 while len(t):
  i=(n-t[:n][::-1].find(' '),n+1)[t[min(len(t)-1,n)]==" "]
  l.append(t[:i])
  t=t[i::]
 return l

ลองออนไลน์!

ไม่ใช่เวอร์ชั่นที่ตีกอล์ฟ ...

JavaScript + HTML + CSS, 117 64 ไบต์

-53 ไบต์ความอนุเคราะห์ของ @Neil

n=50
s="Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed eget erat lectus. Morbi mi mi, fringilla sed suscipit ullamcorper, tristique at mauris. Morbi non commodo nibh. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Sed at iaculis mauris. Praesent a sem augue. Nulla lectus sapien, auctor nec pharetra eu, tincidunt ac diam. Sed ligula arcu, aliquam quis velit aliquam, dictum varius erat."
f=(n,s)=>document.body.innerHTML+=`<tt><p style=width:${n}ch>${s}`
f(n,s)

เยลลี่ 12 ไบต์

ḲŒṖK€€ḣ€ƑƇṪY

ลองออนไลน์!

น่าเสียดายที่นี่ช้าเกินไปที่จะใช้สำหรับกรณีทดสอบที่ให้มาภายในไม่เกินหนึ่งนาทีของ TIO

C # (. NET Core) 162 ไบต์

string[]t(string n,int a){var g="";for(int i=0;i++<Math.Floor((double)n.Length/a);)g+=$"^.{{{i*a-1}}}|";return Regex.Split(n,$@"(?n)(?<=({g.Trim('|')})\S*)\s");}}

ฟังก์ชั่นนี้ใช้ regex ซึ่งตรงกับช่องว่างที่ใกล้เคียงที่สุดที่อยู่ใกล้กับตัวที่ n หรือหลายของตัวอักษร nth และแยกสตริงตามมัน

ลองออนไลน์!

ลิงก์ TIO เป็นโปรแกรมเต็มรูปแบบและฟังก์ชั่นมีคำหลักคงที่เพื่อให้สามารถเรียกใช้ฟังก์ชั่นได้จาก main

ทดสอบ Regex

C # (Visual C # Interactive Compiler) , 78 ไบต์

s=>n=>System.Text.RegularExpressions.Regex.Replace(s,".{1,"+n+"}( |$)","$0\n")

ลองออนไลน์!

เครดิตไปที่ @LukeStevens สำหรับการมากับเวอร์ชัน Java ... Apparently .NET ทำให้คุณนำเข้าRegularExpressionsเนมสเปซเพื่อทำการแทนที่ :(

นี่คือเวอร์ชันดั้งเดิมของฉันที่แยกอักขระช่องว่างและใช้ LINQ เพื่อรวมเข้าด้วยกัน:

C # (Visual C # Interactive Compiler) , 91 ไบต์

s=>n=>s.Split(' ').Aggregate((a,w)=>a+(a.Length-a.LastIndexOf('\n')+w.Length>n?'\n':' ')+w)

ลองออนไลน์!

Dart , 112 ไบต์

f(s,n){var l=[''];s.split(' ').forEach((w){if((l.last+w).length<=n)l.last+=w+' ';else l.add(w+' ');});return l;}

ลองออนไลน์!

APL (NARS), 48 ตัวอักษร, 96 ไบต์

{⊃⍵{⍺≥≢⍵:⊂⍵⋄k←1+⍺-' '⍳⍨⌽r←⍺↑⍵⋄(⊂k↑r),⍺∇k↓⍵}⍨⍺+1}

ทดสอบ:

  f←{⊃⍵{⍺≥≢⍵:⊂⍵⋄k←1+⍺-' '⍳⍨⌽r←⍺↑⍵⋄(⊂k↑r),⍺∇k↓⍵}⍨⍺+1}
  s←"Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed eget erat lectus. Morbi mi mi, fringilla sed suscipit ullamcorper, tristique at mauris. Morbi non commodo nibh. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Sed at iaculis mauris. Praesent a sem augue. Nulla lectus sapien, auctor nec pharetra eu, tincidunt ac diam. Sed ligula arcu, aliquam quis velit aliquam, dictum varius erat."
  50 f s
Lorem ipsum dolor sit amet, consectetur adipiscing 
elit. Sed eget erat lectus. Morbi mi mi, fringilla 
sed suscipit ullamcorper, tristique at mauris.     
Morbi non commodo nibh. Pellentesque habitant      
morbi tristique senectus et netus et malesuada     
fames ac turpis egestas. Sed at iaculis mauris.    
Praesent a sem augue. Nulla lectus sapien, auctor  
nec pharetra eu, tincidunt ac diam. Sed ligula     
arcu, aliquam quis velit aliquam, dictum varius    
erat.                                              

C, 63 ไบต์

b(a,n)char*a;{while(strlen(a)>n){for(a+=n;*a-32;--a);*a++=10;}}

ฟังก์ชั่นของแบบฝึกหัดนี้ b (a, n) จะแบ่งบรรทัด "a" ตามที่แบบฝึกหัดบอกไว้ในทางที่ไม่เปลี่ยนความยาว (ถ้าเราเห็นผลลัพธ์เป็นหนึ่งสตริง) เนื่องจากเปลี่ยนช่องว่างใน \ n หรือขึ้นบรรทัดใหม่ใน สถานที่. สตริงอินพุต "a" ไม่ควรมีอักขระ \ n อยู่ในนั้นสำหรับฟังก์ชัน b () (อาจมี \ n ในสตริงอินพุตสำหรับ bs ())

ฟังก์ชั่น b (a, n) จะโอเคเพียงเพราะข้อ จำกัด ของแบบฝึกหัดนี้ซึ่งกำหนดแต่ละคำของสตริง "a" ที่มีความยาว <n หากนี่ไม่เป็นความจริงฟังก์ชันนั้นสามารถไป
ที่หนึ่งอนันต์ลูป ... (มาก ผิดในทางที่ฉันเห็นดังนั้นฉันก็คัดลอกฟังก์ชั่นที่ดีกว่าเพราะในกรณีนั้นจะคืนค่า -1 และจะไม่ไปที่หนึ่งวงที่ไม่มีที่สิ้นสุดมันเป็น bs (a, n) ด้านล่าง) ฉันไม่ได้ยกเว้นทั้งสองฟังก์ชัน .

#define R(x,y) if(x)return y
#define U unsigned
U bs(char*a,U n)
{U c,q,r=1,i,j;
 R(!a||n<1||n++>0xFFFF,-1);
 for(j=c=i=0;;++i,++c)
    {R(i==-1,-1);q=a[i];
     if(q==10)goto l;
     if(c>=n){R(i-j>n,-1);a[i=j]=10;l:c=-1;++r;}
     R(!q,r);
     if(q==32)j=i;
    }
}

ผลลัพธ์ของ b () ส่งผ่านไปยังฟังก์ชันหนึ่งที่เพิ่มความยาวบรรทัดแต่ละบรรทัด

Lorem ipsum dolor sit amet, consectetur adipiscing [50]
elit. Sed eget erat lectus. Morbi mi mi, fringilla [50]
sed suscipit ullamcorper, tristique at mauris. [46]
Morbi non commodo nibh. Pellentesque habitant [45]
morbi tristique senectus et netus et malesuada [46]
fames ac turpis egestas. Sed at iaculis mauris. [47]
Praesent a sem augue. Nulla lectus sapien, auctor [49]
nec pharetra eu, tincidunt ac diam. Sed ligula [46]
arcu, aliquam quis velit aliquam, dictum varius [47]
erat. [5]