このタスクは、最初の定期的なプレミアプログラミングパズルプッシュの一部です。

次の形式でアイテムの階層を取得します。

2
Hat
1
Gloves

次のようにボックスに入れる必要があります：

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

入力形式では、数字は指定された数のアイテムでボックスを開始します。最初のボックスには2つのアイテム（帽子とグローブが入ったボックス）があり、2番目のボックスには1つのアイテム（グローブ）しか入っていません。

ご覧のように、ボックスもボックス内に配置できます。そして、それらは常に丸みを帯びています...ある種（とがった角は傷の危険であり、私たちはそれを望まないでしょう）。

以下に、仕様が提供するあらゆる小さな余地を活用したい人のための厄介な詳細があります。仕様を読んでいないことは、間違った解決策を提出する言い訳にはなりません。最後にテストスクリプトといくつかのテストケースがあります。

仕様

• ボックスは、次の文字で構成されています。

  • | （U + 007C）は、垂直エッジを構成するために使用されます。
  • - （U + 002D）は、水平エッジを構成するために使用されます。
  • ' （U + 0027）は丸い下隅です。
  • . （U + 002E）は丸い上部の角です。

  したがって、ボックスは次のようになります。

  .--.
  |  |
  '--'
  

  _{Unicodeには丸い角と適切なボックス描画文字もありますが、このタスクはASCIIのみであることに注意してください。ユニコードが大好きなのと同様に、過去10年から10年ではまったく到達しなかった言語や環境が存在することを認識しています。}

• ボックスには、テキストまたは他のアイテムである一連のアイテムを含めることができます。ボックス内の個々のアイテムは上から下にレンダリングされます。したがって、シーケンスA、B、Cは次のようにレンダリングされます。

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

  これはもちろん、ネストされたボックスにも適用されます。ネストされたボックスは、テキストのようなアイテムです。したがって、シーケンスA、B、Box（C、Box（D、E））、Fは次のようにレンダリングされます。

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

• ボックスはコンテンツに合わせてサイズを調整し、ネストされたボックスは常に親のサイズまで拡張されます。コンテンツの前後には常にスペースがあり、テキストもネストされたボックスも外側のボックスの端に近すぎません。要するに、次は間違っています。

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

  そして、以下が正しいです：

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

  見た目も良くなりました:-)

• テキスト項目（以下の入力を参照）は正確に再現する必要があります。

• 常に1つのトップレベルボックスがあります（XMLを参照）。ただし、1つのボックスに複数の他のボックスを含めることができます。

入力

• 入力は標準入力で行われます。テストを簡単にするために、ファイルからリダイレクトされる可能性があります。

• 入力は行単位で与えられ、各行は現在のボックスに入れるテキスト項目または新しいボックスを開くことを表します。

• すべての行は改行で終了します。

• テキスト項目は、数字で構成されていない行でマークされています（以下を参照）。テキストは、アルファベット文字、スペース、および句読点（.,-'"?!()）を使用します。テキストはスペースで開始または終了することはなく、常に少なくとも1文字が含まれます。

• ボックスは、数字の入った1行で始まります。数値は、ボックスのサイズ、つまり、ボックスに入れられる次のアイテムの数を示します。

  2
  A
  B
  

  2つのテキストアイテムを含むボックスを生成します。

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

  ボックスには常に少なくとも1つのアイテムが含まれます。

• ボックスの終わりは明示的に線でマークされていません。代わりに、指定された数のアイテムがボックスに入れられた後、ボックスは暗黙的に閉じられます。

• ボックスは、その中にいくつのアイテムがあるかに関係なく、常に単一のアイテムです。例えば

  3
  A
  4
  a
  b
  c
  d
  B
  

  3つのアイテムを持つボックスが生成され、2番目のアイテムは4つのアイテムを持つ別のボックスになります。

  ネストは、ボックスが単一のアイテムであるという事実にも影響しません。

制限

• 最大のネストレベルは5です。つまり、最大で5つのボックスが互いに内部にあります。これには最も外側のものが含まれます。

• 1箱につき最大10個のアイテムがあります。

• テキストアイテムの最大長は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スクリプトとbashスクリプトの両方として利用できます。呼び出しは次のとおり<test-script> <program invocation>です。

更新： テストスクリプトが更新されました。定義した制限を守らないテストケースがいくつかありました。PowerShellテストスクリプトは、結果の確認に大文字と小文字を区別する比較を使用しませんでした。私はすべてが今うまくいくことを望みます。テストケースの数は156に減りましたが、最後のテストケースはかなり大きくなりました。

更新2： テストケースジェネレーターをアップロードしました。.NET 2ランタイムを対象としたC＃で記述されています。Monoで実行されます。実装をテストするのに役立つ場合があります。タスクの制限を考慮すると、最終的な最悪のケースとして、次を試すことができます。

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*

キースのソリューションと同様のアプローチを使用します。

Python、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}⍬

Pythonの- 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

Ruby 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

キースのバージョンに近いものではありませんが、ちょっと、C

非常に機能的なpython、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

ゴルフをしている間、その方法はかなり簡単です。使用可能なメモリは制限のみです。

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

改善できると確信しているので、これをもう一度見る必要がありますが、これは最初の 3回目のパスです。

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

Java- 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文字

Keith RandallのPython（素敵なデザイン、Keith）と同じアルゴリズムですが、この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(' ','-')));}}

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

Pip、89バイト（非競合）

^{（この言語はチャレンジよりも新しい言語です。また、APLをアウトゴルフすることはできませんでした。）}

コードは87バイト、-rnフラグは+2です。

(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回再帰的に呼び出し、結果の行のリストを完全な長方形に埋め込み、各行をでラップし、新しいリストを返す前に行"| " " |"を追加.---.し'---'ます。文字列の場合、単純に1項目リストに変換して返します。最終結果は、改行区切り（-nフラグ）で印刷されます。詳細はリクエストに応じて入手可能です。

Java（EOLを含む1369文字）

Java実装なしでこれを残すことはできませんでした。JavaはPythonやRubyの洗練されたものよりも冗長であるはずなので、エレガントで再帰的なソリューションを探しました。

アイデアは、オブジェクト（文字列とボックス）のツリー（グラフ）であり、「ヘッド」ボックスから始まる互いに含まれています。入力ファイルを線形に解析するときに、文字列とボックスを「現在の」ボックスに追加し、追加中にコンテナの最大長が調整されます。コンテナが事前定義されたアイテムの量に達すると、前のコンテナに戻ることができます。入力ファイルの最後に、すでに「maxLength」が計算されている「head」コンテナがあるため、単純に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, "");
    }
}