Эта задача является частью первой периодической главной головоломки программирования .

Вы получаете иерархию элементов в следующем формате:

2
Hat
1
Gloves

которые нужно положить в коробки, вот так:

.------------.
| Hat        |
| .--------. |
| | Gloves | |
| '--------' |
'------------'

В формате ввода числа начинаются с поля, содержащего столько элементов, сколько указано число. В первом ящике есть два предмета (шляпа и ящик с перчатками), во втором - только один предмет - перчатки.

Как видно, ящики тоже могут жить внутри ящиков. И они всегда округлены ... вроде (острые углы представляют опасность для ран, и мы бы этого не хотели).

Ниже приведены неприятные подробности для тех, кто хочет использовать все крошечные ограничения, которые дает спецификация. Имейте в виду, что не чтение спецификации не освобождает от ответственности за предоставление неправильных решений. В самом конце есть тестовый скрипт и несколько тестовых случаев.

Спецификация

• Коробки построены из следующих символов:

  • | (U + 007C) используется для построения вертикальных ребер.
  • - (U + 002D) используется для построения горизонтальных краев.
  • ' (U + 0027) - круглые нижние углы.
  • . (U + 002E) - верхние круглые углы.

  Коробка поэтому выглядит так:

  .--.
  |  |
  '--'
  

  _{Обратите внимание, что в то время как Unicode также имеет закругленные углы и правильные символы рисования прямоугольников, эта задача только в ASCII. Столько, сколько я люблю Unicode, я понимаю, что есть языки и окружение, которые не совсем появились со второго по последнее десятилетие.}

• Коробки могут содержать последовательность элементов, которые являются текстовыми или другими элементами. Отдельные элементы в коробке отображаются сверху вниз. Последовательность A, B, C, таким образом, выглядит следующим образом:

  .---.
  | A |
  | B |
  | C |
  '---'
  

  Это, конечно, относится и к вложенным полям, которые являются элементом, подобным тексту. Таким образом, последовательность A, B, Box (C, Box (D, E)), F будет выглядеть следующим образом:

  .-----------.
  | A         |
  | B         |
  | .-------. |
  | | C     | |
  | | .---. | |
  | | | D | | |
  | | | E | | |
  | | '---' | |
  | '-------' |
  | F         |
  '-----------'
  

• Ящики настраивают свой размер в соответствии с содержимым, а вложенные ящики всегда расширяются до размера их родителя. До и после содержимого всегда есть пробел, чтобы ни текст, ни вложенные блоки не находились слишком близко к краю внешнего блока. Короче говоря, следующее неправильно:

  .---.
  |Box|
  '---'
  

  И следующее правильно:

  .-----.
  | Box |
  '-----'
  

  Выглядит намного приятнее, тоже :-)

• Текстовые элементы (см. Ввод ниже) должны быть точно воспроизведены.

• Всегда есть один блок верхнего уровня (см. XML). Однако одна коробка может содержать несколько других коробок.

вход

• Ввод дан на стандартном вводе; для более простого тестирования скорее всего перенаправлены из файла.

• Входные данные задаются построчно, причем каждая строка представляет либо текстовый элемент для помещения в текущий блок, либо открытие нового блока.

• Каждая строка заканчивается разрывом строки.

• Текстовые элементы отмечены линией, которая не состоит из числа (см. Ниже). Текст использует буквенные символы, пробел и пунктуацию ( .,-'"?!()). Текст не будет начинаться или заканчиваться пробелом и всегда будет содержать хотя бы один символ.

• Поле начинается с одной строки с номером в нем. Число указывает размер коробки, то есть количество следующих элементов, которые помещаются в нее:

  2
  A
  B
  

  выдает поле с двумя текстовыми элементами:

  .---.
  | A |
  | B |
  '---'
  

  Коробка всегда будет содержать хотя бы один элемент.

• Конец прямоугольника явно не отмечен линией; вместо этого ящики неявно закрываются после того, как в них помещено указанное количество предметов.

• Коробка - это всегда только один предмет, независимо от того, сколько предметов в нем. Например

  3
  A
  4
  a
  b
  c
  d
  B
  

  даст ящик с тремя предметами, второй из которых будет еще один ящик с четырьмя предметами.

  Вложенность также не влияет на тот факт, что коробка - это всего лишь один элемент.

рамки

• Максимальный уровень вложенности - пять . Т.е. внутри друг друга находятся не более пяти коробок. Это включает в себя самый внешний.

• В коробке может быть не более десяти предметов.

• Текстовые элементы имеют максимальную длину 100 символов.

Выход

• Выходные данные - это визуализированный блок, включающий все содержащие и вложенные элементы в соответствии с правилами, изложенными выше.
• Вывод должен быть дан на стандартном выводе, и он должен точно совпадать. Не допускается использование начальных или конечных пробелов.
• Каждая строка должна заканчиваться разрывом строки, включая последнюю.

Выигрышное условие

• Самый короткий код выигрывает (т.е. получает принятый ответ).

Пример ввода 1

3
This is some text!
Oh, more text?
Just text for now, as this is a trivial example.

Пример вывода 1

.--------------------------------------------------.
| This is some text!                               |
| Oh, more text?                                   |
| Just text for now, as this is a trivial example. |
'--------------------------------------------------'

Пример ввода 2

4
Extreme
nesting
3
of
boxes
4
might
lead
to
2
interesting
1
visuals.
Indeed!

Пример вывода 2

.--------------------------.
| Extreme                  |
| nesting                  |
| .----------------------. |
| | of                   | |
| | boxes                | |
| | .------------------. | |
| | | might            | | |
| | | lead             | | |
| | | to               | | |
| | | .--------------. | | |
| | | | interesting  | | | |
| | | | .----------. | | | |
| | | | | visuals. | | | | |
| | | | '----------' | | | |
| | | '--------------' | | |
| | '------------------' | |
| '----------------------' |
| Indeed!                  |
'--------------------------'

Пример ввода 3

1
1
1
1
1
Extreme nesting Part Two

Пример вывода 3

.------------------------------------------.
| .--------------------------------------. |
| | .----------------------------------. | |
| | | .------------------------------. | | |
| | | | .--------------------------. | | | |
| | | | | Extreme nesting Part Two | | | | |
| | | | '--------------------------' | | | |
| | | '------------------------------' | | |
| | '----------------------------------' | |
| '--------------------------------------' |
'------------------------------------------'

Пример ввода 4

3
Foo
2
Bar
Baz
2
Gak
1
Another foo?

Пример вывода 4

.----------------------.
| Foo                  |
| .------------------. |
| | Bar              | |
| | Baz              | |
| '------------------' |
| .------------------. |
| | Gak              | |
| | .--------------. | |
| | | Another foo? | | |
| | '--------------' | |
| '------------------' |
'----------------------'

Тестовый скрипт

Поскольку правильная детализация иногда может быть затруднена, мы ( Ventero и я) подготовили тестовый сценарий, с помощью которого вы можете запустить свое решение, чтобы проверить его правильность. Он доступен и как сценарий PowerShell и сценарий Баш . Воззвание это: <test-script> <program invocation>.

ОБНОВЛЕНИЕ: тестовые сценарии были обновлены; было несколько тестов, которые не соответствовали установленным мною ограничениям. Тестовый сценарий PowerShell не использовал сравнение с учетом регистра для проверки результата. Я надеюсь, что сейчас все в порядке. Количество тестовых случаев было сокращено до 156, хотя последний сейчас довольно ... большой.

ОБНОВЛЕНИЕ 2: я загрузил свой генератор тестовых случаев . Написан на C # , ориентирован на среду выполнения .NET 2. Он работает на моно. Это может помочь людям проверить их реализацию. В качестве окончательного наихудшего случая, учитывая ограничения в задаче, вы можете попробовать:

nb.exe 1 10 10 5 100 100 | my invocation

который будет генерировать только блоки до самого внутреннего уровня и использовать как максимальное количество элементов в блоке, так и максимальную длину текстовых элементов. Я не включил этот тестовый сценарий в тестовый скрипт, так как он довольно большой, а результат еще больше.

ОБНОВЛЕНИЕ 3: Я обновил тестовый сценарий PowerShell, который был подвержен ошибкам в зависимости от того, как заканчивались строки в сценарии, и какие окончания строк печатало решение. Теперь это должно быть агностиком к обоим. Извините еще раз за путаницу.

GolfScript, 125 символов

n/):B;[(~{[B"."+"""-"]B"| "+:B;@@{(.10,`-{[B\" "]\}{~A}if}*B[2>:B"'"+"""-"]\}:A~;].{~;1$++,}%$-1=:§;{~§3$.+3$+,-*+1$-1%++}%n*

Использование подхода, аналогичного решению Кейта .

Питон, 204 символа

def P(n):x=raw_input();return eval('[(n+".","","-")]'+'+P(n+"| ")'*int(x))+[(n+"'",'','-')]if'0'<x<':'else[(n,x,' ')]
r=P('')
for q,t,f in r:print q+t+f*(max(len(2*x+y)for x,y,a in r)-len(2*q+t))+q[::-1]

Pвозвращает список троек, каждый из которых представляет собой префикс / суффикс строки (суффикс является обратным к префиксу), некоторый текст строки и символ заполнения строки. После вычисления всех троек они печатаются с использованием правильного количества символов заполнения, чтобы все строки имели одинаковую длину.

Безголовая версия:

def get_lines(prefix):
  line=raw_input()
  result=[]
  if line.isdigit():
    result.append((prefix+'.', '', '-'))
    for i in xrange(int(line)):
      result += get_lines(prefix + '| ')
    result.append((prefix+"'", '', '-'))
  else:
    result.append((prefix, line, ' '))
  return result
lines=get_lines('')
width=max(2*len(prefix)+len(text) for prefix,text,fill in lines)
for prefix,text,fill in lines:
  print prefix+text+fill*(width-2*len(prefix)-len(text))+prefix[::-1]

Ruby 1.9, 174 символа

r=->l{$*<<(l*2+i=gets.chop).size;/\d/?eval('[l+?.,p=?-,p,'+'*r["| "+l],'*i.to_i+"l+?',p,p]"):[l,i,?\s]}
r[""].each_slice(3){|a,b,c|puts a+b+c*($*.max-(a*2+b).size)+a.reverse}

Несколько похоже на решение Кейта .

APL (78)

{∧/⎕D∊⍨I←⍞:{∆,('-'⍪⍵⍪'-'),∆←'.|'''/⍨1(⊃⍴⍵)1}⍕⍪/{⍵↑[2]⍨⌈/⊃∘⌽∘⍴¨∆}¨∆←∇¨⍳⍎I⋄⍉⍪I}⍬

Питон - 355 314 259 символов

w=0
def p(n,l):
 global w;f=[(l-1,0)]
 for k in' '*n:
  i=raw_input()
  try:f+=p(int(i),l+1)
  except:f+=[(l,i)];w=max(w,4*l+len(i))
 return f+[(l-1,1)]
for l,s in p(input(),1):p=w-4*l-2;print'| '*l+(".'"[s]+'-'*p+".'"[s]if s<2 else s+' '*(p+2-len(s)))+' |'*l

Рубин 1.9, 229 228 226 223 222

g=->n{(1..n).map{g[Integer l=gets.chop]rescue l}}
w=->b{b.bytesize rescue b.map{|e|w[e]}.max+4}
p=->b,c{r=c-2
[?.+?-*r+?.,*b.map{|i|p[i,c-4]}.flatten.map{|k|"| #{k} |"},?'+?-*r+?']rescue[b.ljust(c)]}
puts p[b=g[1][0],w[b]]

C 390 366 363 символов

#define F(n)for(int i=n;i--;)
#define H(n,s,a...)F(n)printf(s);printf(a);
#define I(s)H(v,"| ",s)H(l-2,"-",s)J
#define J H(v," |","\n")
S[1<<17][26],N[1<<17],P,a;E(p){int l=strlen(gets(S[p]));if(sscanf(S[p],"%d",N+p))F(N[p])l<(a=E(++P))?l=a:l;return l+4;}R(p,v,l){if(N[p]){I(".")F(N[p])R(++P,v+1,l-4);I("'")}else{H(v,"| ","%-*s",l,S[p])J}}main(){R(P=0,0,E(0)-4);}

Компилировать с gcc -std=gnu99 -w file.c

Даже близко не к версии Кейта, но эй, это хорошо, С '

очень функциональный питон, 460 символов

r=range
s=lambda x:isinstance(x,str)
w=lambda x:reduce(max,[len(i)if s(i)else w(i)+4 for i in x])
z=lambda b,x:''.join(b for i in r(x))
def g(n=1):
 t=[]
 for i in r(n):
  x=raw_input('')
  try:t+=[g(int(x))]
  except:t+=[x]
 return t
o=list.append
def y(c,m):
 f='| ';h=' |';e=z('-',m+2);a='.'+e+'.';b="'"+e+"'";t=[a]
 for i in c:
  if s(i):o(t,f+i+z(' ',m-len(i))+h)
  else:[o(t,f+j+h)for j in y(i,m-4)]
 return t+[b]
x=g()[0];m=w(x);print '\n'.join(y(x,m))

Haskell, 297 символов

f§(a,b)=(f a,b)
h c=(c,'-',c)
b l=h".":map(\(p,f,q)->("| "++p,f,q++" |"))l++[h"'"]
y[]s z=([(s,' ',"")],z)
y[(n,_)]_ z=b§foldr(\_(l,w)->(l++)§x w)([],z)[1..n]
x(a:z)=y(reads a)a z
m(p,_,q)=length$p++q
n®a@(p,c,q)=p++replicate(n-m a)c++q++"\n"
o(l,_)=l>>=(maximum(map m l)®)
main=interact$o.x.lines

В то время как Golf'd, метод довольно прост. Только ограничения доступны в памяти.

C # - 1005 859 852 782 знаков

using c=System.Console;using System.Linq;class N{static void Main(){new N();}N(){var i=R();c.WriteLine(i.O(0,i.G().W));}I R(){var s=c.ReadLine();int l=0,i=0;if(int.TryParse(s,out l)){var b=new I(l);for(;i<l;){b.m[i++]=R();}return b;}else{return new I(0,s);}}class P{public int W;public int H;}class I{public I[]m;bool z;string t;public I(int l,string r=""){z=l!=0;m=new I[l];t=r;}public P G(){var s=new P();if(z){var d=m.Select(i=>i.G());s.W=d.Max(y=>y.W)+4;s.H=d.Sum(y=>y.H)+2;}else{s.W=t.Length;s.H=1;}return s;}public string O(int l,int w){if(z){string s=A(l,"."+"-".PadRight(w-2,'-')+"."),e=s.Replace(".","'");foreach(var i in m){s+="\n"+i.O(l+1,w-4);}s+="\n"+e;return s;}else{return A(l,t.PadRight(w));}}}static string A(int l,string o){while(l-->0){o= "| "+o+" |";}return o;}}

Мне нужно еще раз взглянуть на это, так как я уверен, что это можно улучшить, но это мой первый третий шаг.

Ungolf'd:

using c=System.Console;
using System.Linq;

class NestedBoxes
{
    static void Main()
    {
        new NestedBoxes();
    }
    NestedBoxes()
    {
        var item = ReadItem();
        c.WriteLine(item.Print(0, item.GetSize().Width));
    }
    Item ReadItem()
    {
        var line = c.ReadLine();
        int count = 0, i = 0;
        if (int.TryParse(line, out count))
        {
            var box = new Item(count);
            for (; i < count;)
            {
                box.items[i++] = ReadItem();
            }
            return box;
        }
        else
        {

            return new Item(0,line);
        }
    }
    class Size
    {
        public int Width;
        public int Height;
    }
    class Item
    {
        public Item[] items;
        bool isBox;
        string text;
        public Item(int size,string word="")
        {
            isBox = size != 0; items = new Item[size]; text = word;
        }
        public Size GetSize()
        {
            var s = new Size();
            if (isBox)
            {
                var sizes = items.Select(i => i.GetSize());
                s.Width = sizes.Max(y => y.Width) + 4; s.Height = sizes.Sum(y => y.Height) + 2;
            }
            else
            {
                s.Width = text.Length;
                s.Height = 1;
            }
            return s;
        }
        public string Print(int level, int width)
        {
            if (isBox)
            {
                string output = AddLevels(level, "." + "-".PadRight(width - 2, '-') + "."),
                        bottomLine = output.Replace(".", "'");
                foreach (var item in items)
                {
                    output += "\n" + item.Print(level + 1, width - 4);
                }
                output += "\n" + bottomLine;
                return output;
            } else {return AddLevels(level, text.PadRight(width)); }
        }
    }
    static string AddLevels(int level, string output)
    {
        while(level-->0)
        {
            output = "| " + output + " |";
        }
        return output;
    }
}

PHP, 403 388 306 символов

<?b((int)fgets(STDIN),'');foreach($t as $r)echo$r[0].str_pad($r[2],$w-2*strlen($r[0]),$r[1]).strrev($r[0])."\n";function b($c,$p){global$t,$w;$t[]=array($p.".","-");while($c--){if(($d=trim(fgets(STDIN)))>0)b($d,"| ".$p);else$t[]=array("| ".$p," ",$d);$w=max($w,strlen($d.$p.$p)+4);}$t[]=array($p."'","-");}

Ungolfed:

box((int)fgets(STDIN), '');

foreach($table as $row) {
    $prefix = $row[0];
    $pad = $row[1];
    $data = $row[2];
    echo $prefix . str_pad($data, ($width - 2*strlen($prefix)), $pad) . strrev($prefix)."\n";
}

function box($count,$prefix) {
    global $table, $width;
    $table[] = array($prefix.".","-");
    while($count--) {
        if(($data = trim(fgets(STDIN))) > 0) {
            box($data, "| ".$prefix);
        } else {
            $table[] = array("| ".$prefix, " ", $data);
        }
        $width = max($width,strlen($data.$prefix.$prefix)+4);
    }
    $table[] = array($prefix."'","-");
}
?>

Я позаимствовал идею префикса у Кейта (это вообще разрешено?), В остальном это почти как оригинал. Тем не менее не мог получить ниже 300. Застрял в этом. Onwards.

PHP, 806 769 721 653 619 символов

<?php function A($a,$b,$c,&$d){for($e=$b;$e>0;$e--){$f=fgets($a);if(false===$f){return;}$g=intval($f);if(0<$g){$h[]=A($a,$g,$c+1,$d);}else{$f=trim($f);$h[]=$f;$j=strlen($f)+4*$c;if($d<$j){$d=$j;}}}return $h;}$d=0;$h=A(STDIN,intval(fgets(STDIN)),1,&$d);function B($k,$c,$d){$f=str_pad('',$d-4*$c-2,'-',2);return C($k.$f.$k,$c,$d);}function C($f,$c,$d){$f=str_pad($f,$d-4*$c,' ');$f=str_pad($f,$d-2*$c,'| ',0);$f=str_pad($f,$d,' |');return $f;}function D($l,$c,$d){if(!is_array($l)){echo C($l,$c,$d)."\n";return;}echo B('.',$c,$d)."\n";foreach($l as $m){echo D($m,$c+1,$d);}echo B('\'',$c,$d)."\n";}D($h,0,$d);exit(0);?>

Безголовая версия:

<?php
function read_itemgroup($handle, $item_count, $depth, &$width) {

    //$items = array();

    for($i = $item_count; $i > 0; $i--) {
        $line = fgets( $handle );
        if(false === $line) {
            return;
        }

        $line_int = intval($line);
        if(0 < $line_int) {
            // nested group
            $items[] = read_itemgroup($handle, $line_int, $depth + 1, $width);
        }
        else {
            // standalone item
            $line = trim($line);
            $items[] = $line;

            // determine width of item at current depth
            $width_at_depth = strlen($line) + 4 * $depth;
            if($width < $width_at_depth) {
                $width = $width_at_depth;
            }
        }
    }

    return $items;
}
$width = 0;
$items = read_itemgroup(STDIN, intval(fgets( STDIN )), 1, &$width);

//var_dump($items, $width);

function render_line($corner, $depth, $width) {
    $line = str_pad('', $width - 4 * $depth - 2, '-', 2); // 2 = STR_PAD_BOTH
    return render_item($corner . $line . $corner, $depth, $width);
}

function render_item($line, $depth, $width) {
    $line = str_pad($line, $width - 4 * $depth, ' ');
    $line = str_pad($line, $width - 2 * $depth, '| ', 0); // 0 = STR_PAD_LEFT
    $line = str_pad($line, $width, ' |');
    return $line;
}

function render($item, $depth, $width) {
    if(!is_array($item)) {
        echo render_item($item, $depth, $width) . "\n";
        return;
    }
    echo render_line('.', $depth, $width) . "\n";
    foreach($item as $nested_item) {
        echo render($nested_item, $depth + 1, $width);
    }
    echo render_line('\'', $depth, $width) . "\n";
}

render($items, 0, $width);

exit(0);
?>

Ява - 681 668 символов

import java.util.*;public class b{static int m,h,i;public static void main(String[]a)throws Throwable{for(Object o:z("")){a=(String[])o;String s=a[0]+a[1];i=a[0].length();for(h=0;h<m-i*2-a[1].length();h++){s+=a[2];}for(h=i;h>0;h--){s+=a[0].charAt(h-1);}System.out.println(s);}}static List z(String p)throws Throwable{String b="",d="";List l=new ArrayList();while((i=System.in.read())>-1){if(10==i){if(d!=""){String[]v={p+".",b,"-"},t={p+"'",b,"-"};l.add(v);for(int u=0;u<Integer.parseInt(d);u++){l.addAll(z(p+"| "));}l.add(t);}else{h=b.length()+p.length()*2;if(m<h)m=h;String[]v={p,b," "};l.add(v);}break;}else if(i>47&&i<58){d+=(char)i;}else {b+=(char)i;}}return l;}}

по сути тот же метод, что и код Python Кейта Рэндалла

Безголовая версия:

import java.util.*;

public class b {
    static int m, h, i;

    public static void main(String[] a) throws Throwable {
        for (Object o : z("")) {
            a = (String[]) o;
            String s = a[0] + a[1];
            i = a[0].length();
            for (h = 0; h < m - i * 2 - a[1].length(); h++) {
                s += a[2];
            }
            for (h = i; h > 0; h--) {
                s += a[0].charAt(h - 1);
            }
            System.out.println(s);
        }
    }

    static List z(String p) throws Throwable {
        String b = "", d = "";
        List l = new ArrayList();
        while ((i = System.in.read()) > -1) {
            if (10 == i) {
                if (d != "") {
                    String[] v = { p + ".", b, "-" }, t = { p + "'", b, "-" };
                    l.add(v);
                    for (int u = 0; u < Integer.parseInt(d); u++) {
                        l.addAll(z(p + "| "));
                    }
                    l.add(t);
                } else {
                    h = b.length() + p.length() * 2;
                    if (m < h)
                        m = h;
                    String[] v = { p, b, " " };
                    l.add(v);
                }
                break;
            } else if (i > 47 && i < 58) {
                d += (char) i;
            } else {
                b += (char) i;
            }
        }
        return l;
    }
}

Perl - 200 199 символов

Тот же алгоритм, что и в Python Кейта Рэндалла (хороший дизайн, Кейт), но чуть более компактный в этом Perl.

sub P{$_=<>;chop;$m>($l=length"$_@_@_")or$m=$l;/^\d/?(["@_.","","-"],(map{P("| @_")}1..$_),["@_'","","-"]):["@_",$_," "]}map{($q,$t,$f)=@$_;print"$q$t",($f x($m-length"$q$t$q")).reverse($q),"\n"}(P);

F # - 341 символов

let rec f(x,y)=[
 let l=stdin.ReadLine()
 let q,d=Core.int.TryParse l
 if q then
  yield x+".","",'-',"."+y
  for i=1 to d do yield!f(x+"| ",y+" |")
  yield x+"'","",'-',"'"+y
 else yield x,l,' ',y]
let l=f("","")
for w,x,y,z in l do printfn"%s"(w+x.PadRight(List.max(l|>List.map(fun(w,x,y,z)->2*w.Length+x.Length))-2*w.Length,y)+z)

Версия F # решения Кейта. Списки являются неизменяемыми по умолчанию, поэтому эта версия помещает всю рекурсивную функцию в список, возвращает список, из которого элементы извлекаются с использованием for..doцикла и a yield!. Я не мог найти способ кратко изменить префикс, поэтому я просто прикрепил суффикс к тройкам.

К вашему сведению, метод TryParse возвращает значение типа double (bool,int).

Clojure - 480 символов

(use '[clojure.contrib.string :only (repeat)])(let [r ((fn p[%](repeatedly % #(let [x (read-line)](try(doall(p(Integer/parseInt x)))(catch Exception e x))))) 1)]((fn z[m,n,o] (let[b #( let[p(dec o)](println(str(repeat p "| ")%(repeat(- m(* 4 p)2)"-")%(repeat p " |"))))](b \.)(doseq[i n](if(seq? i)(z m i(inc o))(println(str(repeat o "| ")i(repeat(- m(count i)(* o 4))" ")(repeat o " |")))))(b \')))((fn w[x](reduce max(map(fn[%](if(seq? %)(+ (w %)4)(count %)))x)))r)(first r) 1))

Это моя первая программа Clojure, а также моя первая попытка игры в гольф Clojure, поэтому, разумеется, это не следует воспринимать как представитель решений Clojure в целом. Я уверен, что это может быть значительно сокращено, особенно если будет сразу реализован метод синтаксического анализа и построения блоков Китом Рэндаллом .

C # - 472 470 426 422 398 символов

using System.Linq;using y=System.Console;class W{static void Main(){var c=new int[5];var s=new string[0].ToList();int n=0,i;var l="";do{try{c[n]=int.Parse(l=y.ReadLine());l=".{1}.";n++;i=1;}catch{l+="{0}";i=0;}G:while(i++<n)l="| "+l+" |";s.Add(l);if(n>0&&--c[n-1]<0){n--;l="'{1}'";i=0;goto G;}}while(n>0);s.ForEach(z=>y.WriteLine(z,l="".PadLeft(s.Max(v=>v.Length)-z.Length),l.Replace(' ','-')));}}

Скала - 475 символов

object N2 extends App{type S=String;def b(x:List[S],t:Int,s:S,e:S):List[S]={var l=x;o=o:+(s+".-±-."+e+"-");for(i<-1 to t)if(l.head.matches("\\d+"))l=b(l.tail,l.head.toInt,s+"| ",e+" |")else{o=o:+(s+"| "+l.head+"±"+e+" | ");l=l.drop(1)};o=o:+(s+"'-±-'"+e+"-");return l};var o:List[S]=List();val l=io.Source.stdin.getLines.toList;b(l.tail,l.head.toInt,"","");(o map(x=>x.replaceAll("±",x.last.toString*((o sortBy((_:S).length)).last.length-x.length)).dropRight(1)))map println}

C # 1198 1156 1142 689 671 634 символов

using z=System.Console;using System.Collections.Generic;using System.Linq;
class T{bool U;List<T> a=new List<T>();string m;IEnumerable<string>R(int s){if(U){yield return ".".PadRight(s-1,'-')+".";foreach(var e in a.SelectMany(b=>b.R(s-4)))yield return ("| "+e).PadRight(s-e.Length)+" |";yield return "'".PadRight(s-1,'-')+"'";}else yield return m;}int L(){return U?a.Max(x=>x.L())+4:m.Length;}
static void Main(){var p=O(int.Parse(z.ReadLine()));z.WriteLine(string.Join("\r\n",p.R(p.L())));}
static T O(int n){var k=new T(){U=true};while(n-->0){var l=z.ReadLine();int c;k.a.Add(int.TryParse(l,out c)?O(c):new T{m=l});}return k;}}

Пип , 89 байт (не конкурирует)

^{(Язык новее, чем вызов. Кроме того, я не мог переиграть APL.)}

Код 87 байтов, +2 для -rnфлагов.

(z:{I+YPOi{Y{Vz}M,ym:MX#*Y$ALyY'|.s._.sX++m-#_.'|MyY".."J'-X++mALyAL"''"J'-Xm}yALl}i:g)

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

Функция zобрабатывает первый элемент списка ввода ( gкопируется в глобальную переменную, iчтобы быть доступным внутри вызовов функций). Если это число n , оно вызывает себя рекурсивно n раз, "| " " |"добавляет результирующий список строк в полный прямоугольник, переносит каждую строку и добавляет .---.и '---'строки перед возвратом нового списка. Если это строка, она просто конвертирует ее в список из одного элемента и возвращает его. Окончательный результат печатается через новую строку ( -nфлаг). Более подробная информация доступна по запросу.

Java (1369 символов, включая EOL)

Не могу оставить это без реализации Java. Предполагается, что Java более многословна, чем слики Python и Ruby, поэтому я выбрал элегантное рекурсивное решение.

Идея - это дерево (график) объектов (строк и блоков), содержащих друг друга, начиная с поля «голова». Когда вы линейно анализируете входной файл, вы добавляете строки и поля в «текущий» блок, и пока вы добавляете, максимальная длина контейнера корректируется. Когда контейнер достигает количества предопределенных элементов, которые он может удержать, вы возвращаетесь к предыдущему контейнеру. В конце входного файла у вас есть контейнер «head», в котором уже рассчитан «maxLength», поэтому вы просто вызываете его метод print ().

import java.io.*;import java.util.*;
public class N{private static String rPad(String s,int l){return s+str(l-s.length(),' ');}
private static String str(int l, char c){StringBuffer sb=new StringBuffer();while(l-->0){sb.append(c);}return sb.toString();}
private static class Box {Box prnt=null;String txt=null;int items;List<Box> c=new ArrayList<Box>();int maxLength=0;
public Box(Box p,int n){prnt=p;items=n;if(p!=null){p.c.add(this);}}
public Box(Box p,String s){prnt=p;txt=s;if(p!=null){p.c.add(this);p.notify(s.length());}}
public void print(String prefix,int l,String suffix){if (txt == null){System.out.println(prefix+"."+str(l-2,'-')+"."+suffix);for(Box b:c){b.print(prefix+"| ",l-4," |"+suffix);}System.out.println(prefix+"'"+str(l-2,'-')+"'"+suffix);}else{System.out.println(prefix+rPad(txt,l)+suffix);}}
protected void notify(int l){if (l+4>this.maxLength){this.maxLength=l + 4;if (this.prnt != null){this.prnt.notify(this.maxLength);}}}}
public static void main(String[] args)throws IOException{Box head=null;Box b=null;BufferedReader in=new BufferedReader(new InputStreamReader(System.in));String s;while ((s=in.readLine()) != null){try{int n=Integer.parseInt(s);b=new Box(b, n);}catch (NumberFormatException nfe){b=new Box(b, s);}if(head == null)head=b;while ((b != null) && (b.items == b.c.size())){b=b.prnt;}}head.print("",head.maxLength,"");}}

Это действительно приятное решение для написания. Мне очень понравился вопрос. Как я упоминал ранее, я выбрал элегантность решения, а не минималистский подход, к сожалению, в Java нет печати Python "-" * 4 для создания "----" :-)

Вот негольфированная версия:

import java.io.*;
import java.util.*;

public class NestedBoxes
{

    private static String rPad ( String s, int l )
    {
        return s + str(l - s.length(), ' ');
    }

    private static String str ( int l, char c )
    {
        StringBuffer sb = new StringBuffer();
        while (l-- > 0)
        {
            sb.append(c);
        }
        return sb.toString();
    }

    private static class Box
    {

        Box parent = null;
        String text = null;
        int items;
        List<Box> contents = new ArrayList<Box>();

        int maxLength = 0;

        public Box ( Box p, int n )
        {
            parent = p;
            items = n;
            if (p != null)
            {
                p.contents.add(this);
            }
        }

        public Box ( Box p, String s )
        {
            parent = p;
            text = s;
            if (p != null)
            {
                p.contents.add(this);
                p.notify(s.length());
            }
        }

        public void print ( String prefix, int l, String suffix )
        {
            if (text == null)
            {
                System.out.println(prefix + "." + str(l - 2, '-') + "." + suffix);
                for (Box b : contents)
                {
                    b.print(prefix + "| ", l - 4, " |" + suffix);
                }
                System.out.println(prefix + "'" + str(l - 2, '-') + "'" + suffix);
            }
            else
            {
                System.out.println(prefix + rPad(text, l) + suffix);
            }
        }

        protected void notify ( int l )
        {
            if (l + 4 > this.maxLength)
            {
                this.maxLength = l + 4;
                if (this.parent != null)
                {
                    this.parent.notify(this.maxLength);
                }
            }
        }
    }

    public static void main ( String[] args ) throws IOException
    {
        Box head = null;
        Box b = null;
        BufferedReader in = new BufferedReader(new InputStreamReader(System.in));
        String s;
        while ((s = in.readLine()) != null)
        {
            try
            {
                int n = Integer.parseInt(s);
                b = new Box(b, n);
            }
            catch (NumberFormatException nfe)
            {
                b = new Box(b, s);
            }

            if (head == null)
            {
                head = b;
            }

            while ((b != null) && (b.items == b.contents.size()))
            {
                b = b.parent;
            }
        }
        head.print("", head.maxLength, "");
    }
}