仕事

• スペースで区切られた入力文字列を取得します。
• 単語をアルファベット順に並べ替えます。
• スペースで区切られた3列で縦に印刷します。

チャレンジ

• 3つの列の高さはすべて、可能な限り均等に重み付けする必要があります。
• 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

オンラインでお試しください！

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

Javascriptを181 175のバイト

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«

配列のほぼ等しい3つのスライスをループします。（Ｉ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

入力を列ごとに1回スキャンする代償として、配列は使用しません。より複雑なawkプログラムは、3つのファイル（N番目の単語ごとに1つ）を開き、1つのパスで入力を処理できます。次に、それらを連結して、同じ最終行を使用して印刷できます。

変数Nも厳密には必要ありません。4バイトの価格で、入力をさらに3回スキャンする必要がなくなります。