Це завдання є частиною першого періодичного прем’єрного програмування головоломки .

Ви отримуєте ієрархію елементів у такому форматі:

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? | | |
| | '--------------' | |
| '------------------' |
'----------------------'

Тестовий сценарій

Оскільки правильність отримання деталей часом може бути складною, ми ( Вентеро і я) підготували тестовий сценарій, з яким можна запустити рішення, щоб перевірити, чи правильно воно. Він доступний як сценарій PowerShell, так і bash . Відозва це: <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]

Рубін 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

Навіть не близький до версії Кіта, але еге, це добре ol '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))

Хаскелл, 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

Хоча гольф, метод досить прямо. Тільки обмеження доступні в пам'яті.

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

Безголівки:

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. Застряг із цим. Наперед.

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!. Я не зміг знайти спосіб зворотного повернення префікса, тому просто додав суфікс до трійки.

FYI, метод TryParse повертає дубль (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(' ','-')));}}

Scala - 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прапор). Більш детальна інформація доступна на запит.

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