プログラムは、入力として少なくとも8文字のテキストを取得し、常に偶数の文字で構成されます。（入力の正確さを評価する必要はありません）。

あなたの目標は、そのテキストを長方形として表示することです。たとえばHelloWorld、入力として与えられ、ディスプレイ

Hell
d  o
lroW

ルール：

• テキストは時計回りに回ります（好きなように開始位置）
• これは、1文字幅の閉じた長方形を形成します。
• 長方形は内側のほとんどの領域を囲む必要があります。（テキストを2行で表示するという些細な答えを除外するため）
• テキスト自体と必要なパディングスペースと改行以外の文字は印刷されません。

コードゴルフとして、最短のコードが勝ちます。

_{勝者は、最初の有効な回答から10日以内に選択されます。}

GolfScript、56 53 40 38文字

1/..,4/):l<n@l>{)" "l*2>@(n@.,l-}do-1%

オンラインでスクリプトをテストできます。

PostScript 50バイナリ、113 ASCII

これはグラフィカル出力を使用します。バイナリトークンを使用したプログラムのHexdump：

$ hexdump -C textRect_binary.ps 
00000000  74 5b 30 20 39 5b 74 92  62 34 92 36 92 38 92 10  |t[0 9[t.b4.6.8..|
00000010  32 92 19 5d 7b 92 2c 7b  32 92 19 7d 92 83 92 3e  |2..]{.,{2..}...>|
00000020  92 6e 7d 92 49 5d 39 20  39 92 6b 91 c7 39 92 8e  |.n}.I]9 9.k..9..|
00000030  92 c3                                             |..|
00000032

ダウンロードして試してください。Ghostscriptを使用すると、レンダリングされるテキストを次のようにプログラムに渡すことができます。

gs -st=helloworld textRect_binary.ps 

グラフィカル出力は次のようになります。

ASCIIトークンを使用した同じコードは次のようになります。

t[0 9[t length
4 div dup
ceiling
2 copy]{cvi{2 copy}repeat
exch neg}forall]9 9 moveto/Courier 9 selectfont
xyshow

戦略は、xyshow各文字を表示した後、次の文字を表示する前に移動する場所を定義するために使用することです。左下隅から開始し、時計回りに移動します。つまり、最初に上に、次に右に、次に下に、次に左に移動します。常に9ユニットを移動しているため、最初に0 9、次に9 0、次に0 -9、それからの相対移動があり-9 0ます。これらの番号の1つのペアからシーケンスを使用して次の番号を取得できますexch neg。

xyshowこれらの数字のペアを保持するための配列を作成する必要があります。1文字ごとに1ペアです。つまり、helloworld10文字の文字列を例にとると、上に2回、次に右に3回、次に下に2回、左に3回移動したいということです。これらの値（2および3）は、ストリングの長さを8で除算することによって取得されます。一度床に丸め、天井に1回。

したがって、0 92回コピーしてから、を使用して相対x / y座標に切り替えexch neg、これらを3回コピーします。

このコメントコードは、スタックで何が起こるかを示しています。

t[0 9                % t [ 0 9
[t length            % t [ 0 9 [ length
4 div dup            % t [ 0 9 [ length/4 length/4
ceiling              % t [ 0 9 [ length/4=height width
2 copy]              % t [ 0 9 [height width height width]
{%forall             % t [ 0 9 ... x y height_or_width
  cvi                % t [ 0 9 ... x y height_or_width_integer
  {2 copy}           % t [ 0 9 ... x y height_or_width_integer {2 copy}
  repeat             % t [ 0 9 ... x y .. x y
  exch neg           % t [ 0 9 ... x y .. y -x
}forall]             % t [0 9 ... -9 0]
9 9 moveto/Courier 9 selectfont
xyshow

ルビー112 100

私はRubyが初めてで、これが私の最初のコードゴルフです。私はmemoweのperl実装を参考にして、Rubyバージョンを作成しようとしました。これは112 100文字で、xに文字列を割り当てることを前提としています。他の人に会えるのを楽しみにしています。

l=x.size
puts x[0..w=l/2-h=l/4]
1.upto(h-1){|i|puts x[-i]+' '*(w-1)+x[w+i]}
puts x[w+h..l-h].reverse

提案を実装するために編集されました。今は100文字だと思います。みんなありがとう！

Perl（124 118 109 + 3 = 112）

これは以前は非常に簡単でした。すべてのコマンドラインオプションをそれぞれ1文字としてカウントしました。

-nlE
$w=(@s=split//)/2-($h=int@s/4);say@s[0..$w--];say$s[1-$_].$"x$w.$s[$w+$_]for+2..$h;say+reverse@s[@s/2..@s-$h]

例：

$ perl -nlE '$w=(@s=split//)/2-($h=int@s/4);say@s[0..$w--];say$s[1-$_].$"x$w.$s[$w+$_]for+2..$h;say+reverse@s[@s/2..@s-$h]'
abcdefghijklmnopqrstuvwxyz
abcdefgh
z      i
y      j
x      k
w      l
v      m
utsrqpon

Brainfuck - 194 187

+>,[>+[>+<-],]
>-->++<[->-[>+>>]>[+[-<+>]>+>>]<<<<<]>[-]>[-]>[<<+<<+>>>>-]<<<<
[[<]>+[>]<-]<[<]>-
[>.[-]<[>+<-]>-]>[>]
++++++++++.<.[-]
>[>+++>>+<<<-]>++>--[<.>-]<<<<[<]>.[-]>[>]>>>>.
<<<<<[.<]

Mathematica 156 199 344

編集：これは以前のコードの主要な書き直しです。基本的には同じように機能しますが、入力として長さが120文字未満の文字列を取り、正方形のサイズを自動的に変更します。

まだ少しゴルフはできますが、以前のバージョンやバグの多いバージョンのサイズに達することはありません。

f@s_ := ({a, t, w, q} = {Automatic, Text, Quotient[StringLength@s, 2],
 Quotient[StringLength[s], 4] + 1};z = StringSplit[StringInsert[s <> ConstantArray[" ", 0],
 "*", {q, 2 q, 3 q}], "*"];
Graphics[{t[z[[1]], {0, q}],t[z[[2]], {q, 0}, a, {0, -1}],t[z[[3]], {0, -q}, a, {-1, 0}],
t[z[[4]], {-q, 0}, a, {0, 1}]},ImageSize -> 500,BaseStyle -> {FontFamily -> "Courier", 21},
PlotRange -> 34,ImagePadding -> 22])

例

f["Hello Code Golf World!"]
f["January, February, March,April, May, June, July"]
f["This text is normal, this goes downwards,this is upside-down, and this is upwards"]

Perl +正規表現：104（101 + 3）

（カウントコード+スイッチ）

素敵な正規表現と少しのPerlを使用したソリューションを次に示します。

perl -plE'$w=($l=length)/2-($h=int$l/4);s/..{$w}\K.*/"\n".reverse$&/e;$"x=--$w;s/.\K(.*)(.)$/$"$2\n$1/while--$h'

これは、1つの入力行でのみ正しく動作します。

memoweに触発されましたが、基本的に配列はありません。

PostScript（106）

これは、男のMathematicaソリューションに触発されています。

0{= =
4 add dup
t length mod 4
lt{-90 rotate}if}0[0 3 -3 0 9 9]concat
0 moveto/Courier 5 selectfont
t kshow

Ghostscriptではこれを次のように呼び出します

gs -st=hello! boxtext.ps

次のような出力を生成します。

kshowグリフを1つずつ表示するために使用します。片側に十分なグリフが表示された後、残りのグリフを続行する前に、すべてが-90度回転します。

サイドに十分なグリフが表示されたことを知るために、グリフが表示されるたびにカウンターを4ずつ増やします。文字列の長さを法とするカウンタ値が4未満の場合、回転する必要があることがわかります。

char  counter  mod 6  compared to 4
 h       4       4          =
 e       8       2          <   => rotate
 l      12       0          <   => rotate
 l      16       4          =
 o      20       2          <   => rotate
 !      24       0          <   => rotate

コメント付きおよびゴルフなしのソースコード：

0                      % n
{%kshow                % n char1 char2
  = =                  % n
  4 add dup            % n' n'
  t length mod         % n' (n' mod t_length)
  4 lt                 % n' bool
  {-90 rotate}if       % n'
}                      % n kshowProc
% First 0 for moveto. We add it here to take 
% advantage of the surrounding self delimiting tokens.
0                      % n kshowProc 0
% We change the graphics state so that the drawn
% text is at a nice size and not off screen.
[0 3 -3 0 9 9]concat   % n kshowProc 0
0                      % n kshowProc 0 0
moveto                 % n kshowProc
/Courier 5 selectfont  % n kshowProc
t                      % n kshowProc text
kshow                  % n

Python 2.x：137

私はゴルフをコーディングするのは初めてで、これを改善できると確信しています…

def s(t):c=len(t);w=1+c/4;h=(c-w-w)/2;u=w+h;n='\n';print t[:w]+n+n.join(map(((w-2)*' ').join,zip(t[:w+u-1:-1],t[w:u])))+n+t[w+u-1:u-1:-1]

ビジュアルテストコード：

from itertools import chain
from string import letters
for i in range(8,101,2):
    t = ''.join(chain(letters))[:i]
    print '%d: %s' % (i, t)
    s(t)
    print '-----'

興味深いこと：この解決策は整数演算に依存しています。数学的にシンボリックに行うと、それがわかりますがh=(c-w-w)/2 => h=w-2、その結果を代入すると、他のすべての結果に左下の2つの文字が欠落します。

K、84

{-1'(*r;((|r 3),\:(w-2)#" "),'r 1;|(r:(0,+\(w;h;w;h:_(l-2*w:-_-(1+(l:#x)%4))%2))_x)2);}

。

k){-1'(*r;((|r 3),\:(w-2)#" "),'r 1;|(r:(0,+\(w;h;w;h:_(l-2*w:-_-(1+(l:#x)%4))%2))_x)2);}"HelloWorld"
Hell
d  o
lroW

k){-1'(*r;((|r 3),\:(w-2)#" "),'r 1;|(r:(0,+\(w;h;w;h:_(l-2*w:-_-(1+(l:#x)%4))%2))_x)2);}"Hellooooooooooooooo Worlddddd!"
Hellooooo
!       o
d       o
d       o
d       o
d       o
d       o
lroW oooo

スカラ（135）

次のスニペットは、xフォーマットする文字列が含まれていることを想定しており、scala REPLに貼り付ける必要があります。

val (h,w)=((x.size+3)/4,println(_:Any));val s=x.grouped(h)toSeq;w(s(0));for((l,r)<-s(1)zip(s(3)reverse))w(r+" "*(h-2)+l);w(s(2)reverse)

scalaがインストールされていない場合は、オンラインのScalaインタープリターhttp://www.simplyscala.com/を使用して簡単に確認できます。次のテキストを貼り付けて、評価を押します：

val x="HelloWorld"
val (h,w)=((x.size+3)/4,println(_:Any));val s=x.grouped(h)toSeq;w(s(0));for((l,r)<-s(1)zip(s(3)reverse))w(r+" "*(h-2)+l);w(s(2)reverse)

Python 3（120）

s=input()
n=len(s)
h=n//4
q=(n+2)//4-1
p=print
p(s[:q+2])
for i in range(1,h):p(s[n-i]+' '*q+s[q+1+i])
p(s[n-h:q+h:-1])

テスト

入力：

abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz

出力：

abcdefghijklmn
z            o
y            p
x            q
w            r
v            s
u            t
t            u
s            v
r            w
q            x
p            y
o            z
nmlkjihgfedcba

PHP（149）

印刷するテキストは、という名前の変数にある必要があります$x。

@$s=substr;echo$s($x,-$w=($l=strlen($x)/2)-$h=$i=$l-2>>1).'
';while($i--)echo$x[$l+$i].str_repeat(' ',$w-2).$x[$h-$i-1].'
';echo$s(strrev($x),$l,$w);

Python2.7（99）

t=''.join(raw_input().split())
u=len(t)/2-1
print t[:u]+"\n"+t[-1]+" "*(u-2)+t[u]+"\n"+t[-2:u:-1]

編集：それは明らかに内部の最大領域を包含するルールに違反しています。

ジャワ-320

public class A{
public static void main(String[] a){
String s=a[0];
int l=s.length(),h=l/2,f=h-1,i=0;       
for(i=0;i<f;i++)
System.out.print(s.charAt(i));
System.out.print("\n"+s.charAt(l-1));
for(i=0;i<f-2;i++)
System.out.print(" ");
System.out.println(s.charAt(h-1));
for(i=l-2;i>h-1;i--)
System.out.print(s.charAt(i));}}

注意 ： -入力はコマンドラインから取得されます

入力：-HelloWorld

出力：-

Hell
d  o
lroW

入力：-abcdefghijklmnopqrstuvwxyz

出力：-

abcdefghijkl
z          m
yxwvutsrqpon