(Примечание: это мой первый в истории вопрос игры в гольф, но, насколько я могу судить, никто другой не сделал именно этого, поэтому я должен быть хорошим.)

Ваша задача - создать программу или функцию, которая принимает строку 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, поэтому не беспокойтесь о странных случаях.

Применяются стандартные правила ввода / вывода, а стандартные лазейки запрещены. Промежуточные пробелы разрешены.

Поскольку это код-гольф , выигрывает решение сокращений в байтах.

Вот пример программы на Python, которая будет работать.

Python 2 , 26 байт

from textwrap import*
fill

Попробуйте онлайн!

Мех ... встроенные модули скучны ... вместо этого, есть хорошее 87-байтовое решение здесь:

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$ (синим цветом ниже)

Нам нужно вставлять разрыв строки всякий раз, когда установлен $n$ символ $u$ (0-indexed, красным цветом внизу).

пример

$n=16$ и$s$ = "LOREM IPSUM DOLOR"

Добавление "LOREM":

Добавление "IPSUM":

Добавление "DOLOR":

Perl 6 , 46 29 байт

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

Попробуйте онлайн!

Решение на основе регулярных выражений, которое принимает входные данные карри, как 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

Vim, 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 байта

В основном это чистое решение регулярных выражений в Java, почти наверняка самое короткое, которое я написал.

Приветствую Кевина за помощь в сокращении байтов в регулярном выражении!

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

Попробуйте онлайн!

Используя карри lamdba, он создает регулярное выражение для жадного сопоставления 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;}

Попробуйте онлайн!

Благодаря Cerecat , экономьте 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

Инфиксная функция; левый аргумент есть n, правый аргумент есть n.

⎕CY'dfns'⋄wrap

Попробуйте онлайн!

⎕CY с оп у в библиотеке dfns

⋄ тогда

wrap^[c]  использоватьфункциюwrap ^[n]

^[c]  код этой функции
^[n]  примечания к этой функции

Гольф версия wrap, 59 байт ^SBCS

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

Попробуйте онлайн!

{… } Дфн; ⍺левый аргумент (ширина), ⍵правый аргумент (строка)

 ≢⍵ счетчик (количество символов) строки

 ⍺≥… : Если ширина больше или равна этому, то:

  ⍵ вернуть строку

 ⋄ иначе:

  ' '=⍵ Булева маска, где пробелы равны строке

  b← хранить в b(для б Ланкс)

  (… )↑ Взять из этого следующее количество элементов:

   ⍺+1 на один больше ширины

  ⍸ я верю, где правда

  g← хранить в g(для g aps)

  ⍺≥ Булева маска, где ширина больше или равна

  g/⍨ фильтровать индексы промежутка тем

  ⍺, добавить это к ширине

  ⊃⌽ выбрать последний элемент этого (лит. выбрать первый из перевернутого)

  t← хранить в t(для т аки)

  b⊃⍨ используйте это, чтобы выбрать элемент из маски B lanks

  t+ добавить это к t

  ⍵↓⍨ отбросьте столько символов из строки

  ⍺∇ повторить на том же левом аргументе

  ⎕TC, Append , что в список т erminal с ontrol символов (8: HT, 10: Н. Л., 13: CR)

  2↓ отбросьте первые два символа из этого (оставляя только ведущий 13: CR)

  (... ), добавить это к следующему:

   t↑⍵ первые tсимволы строки

Благодаря @Erik the Outgolfer, версия для гольфа:

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

Эта функция использует регулярное выражение, которое соответствует ближайшему пробелу рядом с n-м или кратным n-ному символу и разбивает строку на его основе.

Попробуйте онлайн!

Ссылка TIO представляет собой полную программу, и у функции есть статическое ключевое слово, поэтому функцию можно вызывать из main.

Test Regex

C # (интерактивный компилятор Visual C #) , 78 байт

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

Попробуйте онлайн!

Авторы обращаются к @LukeStevens за разработку версии Java ... Очевидно, .NET заставляет вас импортировать RegularExpressions пространство имен для замены :(

Вот моя оригинальная версия, которая разделяется на символ пробела и использует LINQ для их объединения:

C # (интерактивный компилятор Visual C #) , 91 байт

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

Попробуйте онлайн!

Дротик , 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]