직무

• 공백으로 구분 된 입력 문자열을 가져옵니다.
• 알파벳순으로 단어를 정렬하십시오.
• 공백으로 구분 된 3 개의 열에 세로로 인쇄하십시오.

도전

• 세 열의 높이는 모두 가능한 한 고르게 가중되어야합니다.
• 세 열 모두 정렬 된 상태로 두어야합니다.

이것은 code-golf 이므로 가장 짧은 코드가 승리합니다!

예

입력이 다음과 같은 경우 :

"cat caterpillar pie frog elephant pizza", 

출력은 다음과 같아야합니다.

cat         elephant pie
caterpillar frog     pizza

입력이 다음과 같은 경우에주의하십시오.

"a b c d e f g" 

다음과 같이 인쇄해야합니다.

a c e
b d f
    g

# or

a d f
b e g
c

# and not

a d g
b e
c f

껍질 , 24 17 바이트

TmoTT' §CȯmLTC3Ow

온라인으로 사용해보십시오!

설명

Husk에는 현재 목록을 지정된 수의 부품으로 나눌 수있는 기본 제공 기능이 없기 때문에 이는 매우 까다로운 문제였습니다.

TmoTT' §CȯmLTC3Ow  Implicit input, say s="bbb a cc ddd e"
                w  Split at spaces: x=["bbb","a","cc","ddd","e"]
             C3    Cut into slices of length 3: [["bbb","a","cc"],["ddd","e"]]
            T      Transpose: [["bbb","ddd"],["a","e"],["cc"]]
         ȯmL       Map length: [2,2,1]
                   These are the correct lengths of the columns.
       §C      O   Sort x and split into these lengths: [["a","bbb"],["cc","ddd"],["e"]]
                   These are the columns of the correct output, without padding.
 mo                For each column,
    T'             transpose and pad with spaces: [["ab"," b"," b"],["cd","cd"," d"],["e"]]
   T               then transpose back: [["a  ","bbb"],["cc ","ddd"],["e"]]
T                  Transpose the whole list: [["a  ","cc ","e"],["bbb","ddd"]]
                   Implicitly join each row by spaces,
                   join the resulting strings by newlines and print.

젤리 , 6 바이트

Ṣœs3ZG

온라인으로 사용해보십시오!

파이썬 3 , 148 바이트

ovs 덕분에 -6 바이트

l=sorted(input().split())
n=-~len(l)//3
f=lambda l:[i.ljust(max(map(len,l)))for i in l+['']]
for i in zip(f(l[:n]),f(l[n:n*2]),f(l[n*2:])):print(*i)

온라인으로 사용해보십시오!

작업 중입니다. 내가 시도한 모든 것은 출력을 일방적으로 만듭니다 ...

Mathematica, 115 바이트

Grid[Transpose@PadRight@TakeList[#,Last@IntegerPartitions[Tr[1^#],3]]&@Sort@StringSplit@#/. 0->"",Alignment->Left]&

Wolfram Sandbox 에서 사용해보십시오

다음 코드를 붙여 넣고 Shift + Enter를 누릅니다.

Grid[Transpose@PadRight@TakeList[#,Last@IntegerPartitions[Tr[1^#],3]]&@Sort@StringSplit@#/. 0->"",Alignment->Left]&["cat caterpillar pie frog elephant pizza"]

Perl 5 , 134 + 1 ( -a) = 135 바이트

$.=(sort{$b=~y///c-length$a}(@F=sort@F))[0]=~y///c;@a=splice@F,0,@F/3;@b=splice@F,0,@F/2;printf"%-$.s "x3 .$/,shift@a,shift@b,$_ for@F

온라인으로 사용해보십시오!

05AB1E , 8 바이트

#{.B3äζ»

온라인으로 사용해보십시오!

#        | Split on spaces.
 {       | Sort aphabetically.
  .B     | Pad to max string length.
    3ä   | Split into columns.
      ζ  | Transpose.
       » | Print with newlines.

자바 스크립트 181175 바이트

f=a=>(a=a.split` `).sort().map(c=>(t[y]=[...t[y]||[],c],M[x]>(l=c.length)?0:M[x]=l,a[++y*3+x]?y:y=x++*0),M=[t=[x=y=0]])&&t.map(x=>x.map((c,y)=>c.padEnd(M[y])).join` `).join`
`

console.log(f("cat caterpillar pie frog elephant pizza"))
console.log("-------------------")
console.log(f("cat caterpillar pie frog frog123123 pizza"))
console.log("-------------------")
console.log(f("a b c d e f g"))
console.log("-------------------")
console.log(f("a b c d e f"))
console.log("-------------------")
console.log(f("a b c d e"))
console.log("-------------------")
console.log(f("a b c d"))

/*
f=a=>(a=a.split` `).sort().map(c=>((t[y] =t[y]||[])[x]=c,M[x]>(l=c.length)?0:M[x]=l,++y*3+x<a.length?0:y=x++*0),M=[t=[x=y=0]])&&t.map(x=>x.map((c,y)=>c.padEnd(M[y])).join` `).join`\n`

f=a=>(a=a.split` `).sort().map(c=>(t[y]=[...t[y]||[],c],M[x]>(l=c.length)?0:M[x]=l,++y*3+x<a.length?0:y=x++*0),M=[t=[x=y=0]])&&t.map(x=>x.map((c,y)=>c.padEnd(M[y])).join` `).join`\n`

*/

J , 73 바이트

,.@(' ',"1[:>|:)@((](s,(s=.]{.1:),(1:{.~[-2*]))([:<.0.5+%&3))@#];.1])@/:~

누군가 관심이 있다면 나중에이 혼란을 설명 할 수 있습니다.

온라인으로 사용해보십시오!

숯 , 65 64 바이트

≔⪪θ ηＦη«⊞υ⌊η≔⟦⟧ηＦ⪪θ ¿¬№υκ⊞ηκ»ＦＥ³✂υ÷×ιＬυ³÷×⊕ιＬυ³Ｉ1«Ｐ⪫ι¶¿ιＭ⊕⌈ＥιＬκ→

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 3 워드 미만의 경우를 처리 할 필요가 없으면 2 바이트를 절약하십시오. 아마도 사용해야 할 정렬 "평가"가있을 수 있습니다 ... 설명 :

≔⪪θ η

공백으로 입력을 분할하십시오.

Ｆη«⊞υ⌊η≔⟦⟧ηＦ⪪θ ¿¬№υκ⊞ηκ»

배열을 정렬하십시오.

ＦＥ³✂υ÷×ιＬυ³÷×⊕ιＬυ³Ｉ1«

대략 같은 배열의 세 조각을 반복합니다. ( Ｉ1정말 있어야합니다 ¦¹.)

Ｐ⪫ι¶

줄 바꿈으로 슬라이스를 결합하고 커서를 움직이지 않고 인쇄하십시오.

¿ιＭ⊕⌈ＥιＬκ→

슬라이스가 비어 있지 않으면 슬라이스에서 가장 긴 단어의 길이보다 1 배 이상 오른쪽으로 이동하십시오.

358 바이트의 축소 된 JS :

function f(b){let d=[,,,],e=b.split(" ").sort(),g=[],h=[];for(var j in e){var k=Math.min(2,Math.floor(j/Math.floor(e.length/3)));d[k]||(d[k]=[],g[k]=e[j].length),d[k].push(e[j]),2==k&&h.push(""),g[k]=Math.max(e[j].length,g[k])}for(var o in g)for(var p=0;p<g[o]+1;p++)for(var q in h)h[q]+=q>=d[o].length||p>=d[o][q].length?" ":d[o][q][p];return h.join("\n")}

function f(b){let d=[,,,],e=b.split(" ").sort(),g=[],h=[];for(var j in e){var k=Math.min(2,Math.floor(j/Math.floor(e.length/3)));d[k]||(d[k]=[],g[k]=e[j].length),d[k].push(e[j]),2==k&&h.push(""),g[k]=Math.max(e[j].length,g[k])}for(var o in g)for(var p=0;p<g[o]+1;p++)for(var q in h)h[q]+=q>=d[o].length||p>=d[o][q].length?" ":d[o][q][p];return h.join("\n")}

console.log(f("cat caterpillar pie frog elephant pizza"));
console.log(f("a b c d e f g"));

GNU sed , 92 + 1 = 93 바이트

에 +1 바이트 -r플래그의 경우

나는 이것을 전혀 골퍼하지 않았다. 그러나 그것은 내가 예상했던 것보다 훨씬 더 간단한 것으로 판명되었다.

s/$/ /
s/(\S+ ){1,3}/:&\n/g
:
s/:(\S)/\1:/g
/:\S/!bZ
s/: / &/g
t
:Z
s/: / :/g
t
s/ *:.*$//gm

온라인으로 사용해보십시오!

Bourne 쉘, 172 바이트

F=/tmp/t
<$1 tr \  \\n|sort>$F
N=$(wc -w $F|awk '{print $1/3}')
for i in 0 1 2
do
awk 'NR%N==C {print}' N=$N C=$i $F 
done|awk '{printf "%s%s",$1,NR%3?" ":"\n"}'|column -t

일반적으로 형식을 지정하면 더 읽기 쉽습니다.

#! /bin/sh
F=/tmp/t
<$1 tr \  \\n | sort > $F
N=$(wc -w $F | awk '{print $1/3}')

for i in 0 1 2
do    
    awk -v N=$N -v C=$i 'NR % N == C {print}' $F 
done |
    awk '{printf "%s%s", $1, NR % 3 == 0? "\n" : " " }' | column -t

열당 한 번 입력을 스캔하는 가격으로 배열을 사용하지 않습니다. 보다 복잡한 awk 프로그램은 3 개의 파일 (N 번째 단어마다 하나씩)을 열어 한 번에 입력을 처리 할 수 ​​있습니다. 그런 다음 동일한 마지막 줄을 사용하여 연결하고 인쇄 할 수 있습니다.

변수 N 도 꼭 필요한 것은 아닙니다. 4 바이트 가격으로 입력 스캔을 3 번 더 저장합니다.