프로그램은 텍스트를 입력으로, 최소 8 자 이상이며 항상 짝수 문자로 구성합니다. (입력의 정확성을 평가할 필요가 없음).

목표는 해당 텍스트를 사각형으로 표시하는 것입니다. 예를 들어, HelloWorld입력으로 표시

Hell
d  o
lroW

규칙 :

• 텍스트가 시계 방향으로 이동합니다 (원하는대로 시작 위치)
• 측면은 1 자 너비의 닫힌 사각형을 형성합니다.
• 사각형은 내부의 가장 많은 영역을 포함해야합니다. (단 두 줄로 텍스트를 표시하는 사소한 대답을 배제하기 위해)
• 텍스트 자체와 필요한 패딩 공간 및 줄 바꿈 외에 다른 문자는 인쇄되지 않습니다.

코드 골프로서 가장 짧은 코드가 승리합니다.

_{첫 번째 유효한 답변 후 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

사용해보십시오 . 고스트 스크립트를 사용하여 렌더링 할 텍스트를 다음과 같이 프로그램에 전달할 수 있습니다.

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있습니다. 우리는이 숫자들 중 한 쌍에서 순서대로 다음 숫자로 갈 수 있습니다 exch neg.

xyshow각 문자마다 한 쌍씩 이러한 숫자 쌍을 보유 하는 배열 을 만들어야합니다. 이것은 우리 helloworld가 10 개의 문자를 갖는 예시적인 문자열 을 가지고 있다면, 우리는 두 번 위로 올라간 다음 오른쪽으로 세 번, 아래로 두 번, 왼쪽으로 세 번 가고 싶다는 것을 의미합니다. 우리는 문자열 길이를 8로 나누면 (한 번 바닥으로, 한 번은 천장으로)이 값 (2와 3)을 얻습니다.

따라서 우리는 0 9두 번 복사 한 다음을 사용하여 상대 x / y 좌표로 전환하고 exch neg그 세 번 복사하는 등을 수행합니다.

이 주석이 달린 코드는 스택에서 어떤 일이 발생하는지 보여줍니다.

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 자라고 생각합니다. 고마워요!

펄 (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

브레인 퍽 - 194 187

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

매쓰 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"]

펄 + 정규식 : 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'

이것은 하나의 입력 라인 에서만 올바르게 작동합니다 .

메모에서 영감을 얻었지만 본질적으로 배열은 없습니다.

포스트 스크립트 (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글리프를 하나씩 표시하는 데 사용 됩니다. 한면에 충분한 글리프가 표시된 후 나머지 글리프를 계속하기 전에 모든 것이 -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

파이썬 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있지만 그 결과를 대체하면 다른 모든 결과에 왼쪽 아래 두 문자가 누락됩니다.

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형식화 할 문자열을 포함하고 있으며 스칼라 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)

스칼라가 설치되어 있지 않으면 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)

파이썬 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);

파이썬 2.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