次の条件が満たされる場合、文字列は正方形と見なされます。

• 各行の文字数は同じです
• 各行の文字数は、行数と同じです。

あなたの仕事は、与えられた入力文字列が正方形かどうかを決定するプログラムまたは関数を書くことです。

LF、CR、またはCRLFの選択により、入力を区切る必要がある場合があります。

改行文字は、行の長さの一部とは見なされません。

入力に末尾の改行があるかどうかを要求する場合がありますが、これは追加行としてカウントされません。

入力は文字列または1D文字配列です。文字列のリストではありません。

入力は空ではなく、スペースを含む印刷可能なASCIIのみを含むと想定できます。

正方形の文字列には真理値を、他の文字列には偽の値を出力する必要があります。

真実のテストケース：

foo
バー
バズ

。

.s。
.ss
.s。
（sはスペースを表します）

ss
ss
（sはスペースを表します）

ああああ
ああああ
ああああ
ああああ
ああああ

偽のテストケース：

..
。

。

。

....


....

4444
333
22

333
333

abc.def.ghi

いくつかの偽のケースで余分な空白行に注意してください。

これはコードゴルフです -最少バイトが勝ちます！

Brachylog（2）、3バイト

ṇẹṁ

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

完全なプログラム。true.偽りのための真実のfalse.ための出力。

説明

ṇẹṁ
ṇ     Split {standard input} into lines
 ẹ    Split {each line} into basic elements {in this case, characters}
  ṁ   Assert that the result is square

ṁ追加されたときの組み込みの有用性については少し懐疑的でしたが、ここで役立つことを本当に否定することはできません…

Brachylog（2）、7バイト

ṇẹ.\l~l

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

非組み込みソリューション。執筆時点で、他のすべてのエントリを依然として上回っています。編集：そうではありませんが、私がこれを書いている間に同じ長さのJellyエントリが入り、タイムスタンプタイブレークを介してそれを打ち負かしました。

説明

ṇẹ.\l~l
ṇ         Split {standard input} into lines
 ẹ        Split {each line} into basic elements {in this case, characters}
   \l     Assert that the result is rectangular, and the number of columns
  .  ~l     is equal to the number of rows

Python 2、52バイト

x=input().split('\n')
print{len(x)}==set(map(len,x))

オンラインでお試しください！またはすべてのテストケースを試す

JavaScript（ES6）、46 45バイト

s=>!(s=s.split`
`).some(x=>x.length-s.length)

• ETHproductionsに感謝1バイト保存

説明

1. 文字列を改行で配列に分割します。
2. 配列をループします。
3. 各行の長さから配列の長さを引きます。
4. ゼロ以外の（つまり、真の）値が任意の行に返される場合、文字列は正方形ではありません。
5. ループの結果を否定して、true平方を取得しfalseます。

それを試してみてください

f=
s=>!(s=s.split`
`).some(x=>x.length-s.length)
oninput=_=>o.innerText=f(i.value)
o.innerText=f(i.value=`foo
bar
baz`)

<textarea id=i></textarea><pre id=o>

05AB1E、10 8バイト

¶¡€gDgQP

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

-2ライリーのおかげで、これは基本的に彼の答えです。

Code       # Explanation                  | Truthy Example          | Falsy Example
-----------#------------------------------+-------------------------+--------------
¶¡         # Split on newlines            | [['aaa','aaa','aaa']]   | [['aa']]
  €g       # Get length of each           | [[3,3,3]]               | [[2]]
    D      # Dupe                         | [[3,3,3],[3,3,3]]       | [[2],[2]]
     g     # Get length                   | [[3,3,3],3]             | [[2],1]
      Q    # Check equality               | [[1,1,1]]               | [[0]]
       P   # Take product                 | 1                       | 0

ゼリー、7 5バイト

Ỵ¬⁼Z$

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

-2のFryAmTheEggmanに感謝

Haskell、38 34バイト

l=length
(all=<<(.l).(==).l).lines

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

のPointfreeバージョンf s = all ((==length (lines s)).length) (lines s)。つまり、入力を行に分割し、各行の長さが行数と等しいかどうかを確認します。

編集：4バイトの@xnorに感謝します。

ゼリー、7バイト

ỴµL;L€E

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

説明

Ỵµ       Split the input on newline and use as input in the second link     
  L      Get the number of list items
   ;     And append to that
    L€   A list with the legth of each list item
      E  Check to see if all items are equal.

Japt、9バイト

=Ur.Q)¥Uy

オンラインでテストしてください！

説明

 =Ur.Q)¥ Uy
U=Ur.Q)==Uy
             // Implicit: U = input string, Q = quotation mark
U=    )      // Set U to
  Ur.Q       //   U with each non-newline (/./g) replaced with a quotation mark.
       ==Uy  // Return U == U transposed. U is padded to a rectangle with spaces before
             // transposing; if U was not a rectangle before, or the sides are not of
             // equal length, the result will not be the same as U.
             // Implicit: output result of last expression

このチャレンジが投稿された直後に実装されたいくつかの機能を使用すると、これは6バイトになります。

r.Q
¥y

オンラインでテストしてください！

説明

       // Implicit: U = input string
r.Q    // Replace each non-newline (/./g) in U with a quotation mark.
       // Newline: set U to the result.
¥      // Return U ==
 y     //   U transposed.
       // Implicit: output result of last expression

網膜、33 31バイト

.
.
^(.(.)*)(?<-2>¶\1)*$(?(2).)

オンラインでお試しください！説明：最初の段階では、すべての印刷可能なASCIIを同じ文字に変更するだけで、一致しやすくなります。（それはなくても可能ですが、これはコードチャレンジであり、コードチャレンジではありません。）2番目のステージは、最初の行の少なくとも1つのキャラクターに一致します。ただし、最初の行の追加文字ごとに、必要に応じて改行と最初の行のコピーが一致します。式の最後の部分では、行よりも列の数が多い場合、一致が失敗します。

殻、6バイト

S≡T'a¶

文字列を受け取り、1またはを出力します0。 オンラインでお試しください！ 最初の行はテストケースを反復します。単一の値でテストする場合は削除します。

説明

ハスクは、私とレオによって作成された新しい機能的なゴルフ言語です。多くの機能が欠落しており、開発が進行中です。その主な機能は、高階関数をオーバーロードできるリジッド型システムです。

高レベルでは、プログラムは次のように機能します。

S≡T'a¶  Define a function:
     ¶  split on newlines,
  T'a   transpose and pad to rectangle using character 'a',
 ≡      check if this has the same shape as
S       the split input.

この関数≡は、2つの配列が同じ形状を持ち、同じ要素が同じ分布であるかどうかを実際にチェックします。Huskでは、nullバイト以外のすべての文字は真実であり、入力では発生しません。また、SあるS-コンビネータここでは、入力として二つの機能を取る関数、≡およびT'a、およびマップする新しい関数を返すxには≡(x)(T'a x)。の結果はSで構成され¶、その関数は暗黙的に入力に適用されます。

HuskはS、次の関数に適用される¶べきであるが、左側の関数で構成される必要があることをどのように知っていますか？シンプル：すべての解釈を試行し、型が意味をなすものを選択します。これについては、Huskのドキュメントで詳しく説明しています。

Pure bash（ユーティリティなし）、55

mapfile -t a
for l in ${a[@]};{
((c+=${#l}^${#a[@]}))
}

• mapfile 入力を配列に読み込みます a
• 次に、配列の要素の数が各行の長さとXORされ、合計が取られます。完全な正方形の場合、各XOR結果（および合計）は0になります。それ以外の場合、結果は> 0になります。

これの反対の意味は、シェルの戻りコードとして返されます（で調べますecho $?）-完全な正方形は1、それ以外は0です。

オンラインで試してください（真実）。

オンラインで試してみてください（偽）。

eval-escape-expansion hellを使用した以前の回答、78：

mapfile -t a
echo $[0$(eval eval echo +\\$\{#a[{0..$[${#a[@]}-1]}]}^${#a[@]})]

オンラインで試してください（真実）。

オンラインで試してみてください（偽）。

Perl 6、27バイト

{.lines==all .lines».comb}

入力文字列の行数が各行の文字数と等しいかどうかをテストします。

Pyth、7バイト

CImL1.z

ここで試してみてください

末尾の改行は不要です。入力を1の2D配列に置き換えます。1は元の入力の任意の文字を表します。次に、配列を転置（列を行に置き換え）した後、その配列が変更されていないかどうかを確認します。このような状況では、正方形のみがtrueを返します。

Java（OpenJDK 8）、96 91 90 87バイト

-5バイト、@ KevinCruijssenに感謝
-1バイト
、@ TheLethalCoderに感謝-2バイト、@OlivierGrégoireに感謝

a->java.util.Arrays.stream(a.split("\n")).allMatch(x->x.length()==a.split("\n").length)

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

05AB1E、7バイト

|€gDgQP

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

R、57バイト

function(s)all(nchar(n<-strsplit(s,'
')[[1]])==length(n))

匿名関数。改行で分割し、各行の長さを計算して、すべてが行数と同じかどうかを確認します。

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

MATL、14 12バイト

10H&XXot&n=h

入力文字列は、文字列連結（[...]）および10LFを表すコードポイントを使用して定義されます。たとえば['aaa' 10 'bb']、MATLでは、文字と文字列が'aaa'連結され、コードポイントが文字列と連結されていると解釈され10ます'bb'。

出力は空でない数値ベクトルです。これは、すべてのエントリがゼロ以外の場合にのみ真実です。

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

説明

入力を検討してください['4444' 10 '333' 10 '22']。

10H   % Push 10 (code point of LF). Push 2
      % STACK: 10, 2
&XX   % Regexp with three arguments. First argument is implicit input (string);
      % second is 2, which indicates that we want to split the input; third is
      % 10, which is the character to split on. The result is a cell array of
      % matched strings
      % STACK: {'4444', '333', '22'}
o     % Concatenate into a numeric 2D array of code points, right-padding with
      % zeros if needed
      % STACK: [52 52 52 52; 51 51 51 0; 50 50 0 0]
t&n   % Duplicate. Push number of rows and number of columns
      % STACK: [52 52 52 52; 51 51 51 0; 50 50 0 0], 3, 4
=     % Are they equal?
      % STACK: [52 52 52 52; 51 51 51 0; 50 50 0 0], 0
h     % Concatenate into a row vector (in column-major order). Implicit display
      % STACK: [52 51 50 52 51 50 52 51 0 52 0 0 0]

R、35バイト

all(nchar(x<-scan(,""))==length(x))

stdinから入力を受け取ります。各行の文字数が行の総数と等しいことを確認します。返品TRUEまたはFALSE適宜。

JavaScript（ES6）、48バイト

s=>(a=s.split`
`,a.every(l=>l.length==a.length))

CJam、11バイト

qN/:,_,f=:*

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

OCaml、56バイト

let f t=List.(for_all(fun l->String.length l=length t)t)

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

Pyth、12 10バイト

!fnl.zlT.z

@FryAmTheEggmanのおかげで2バイト節約されました。

オンラインで試す

説明

!fnl.zlT.z
 f     T.z     Filter lines of the input
  nl.zl        whose length is not the number of lines
!              and return whether there are no such lines.

QBIC、43バイト

{_?~_lA||h=h+1┘g=g+_lA|~g%_lA||_Xp]\_xg/h=h

私、QBasicデリバティブがこの課題をどれほど短期間で達成できたかに満足しています。

説明：

{_?       DO infinitely: ask the user for input, store as A$
~    |    IF
 _lA|       The length of A$   (implicitly <> 0)
h=h+1     Add 1 to our line counter
┘         (syntactic linebreak)
g=g+_lA|  Add the length of this line to the running total of line lengths
~      |  IF
 g%_lA|     The length of the running total modulo the length of the last string
            yields anything but 0, there is a discrepancy between earlier line
            lengths and this one.
_Xp]      THEN QUIT, printing 0, end IF
\         ELSE (refers to the LEN(A$), user didn't input anything.
_xg/h=h   QUIT (the inf. loop) printing -1 if the root of the chars is the row count
            or 0 if not.

Pyth、7バイト

qCC.z.z

デモンストレーション

入力を2回切り捨てて転置し、結果が元のものと同じかどうかを確認します。

ルビー、50バイト

s=$<.read.split $/,-1;p [s.size]==s.map(&:size)|[]

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

説明

1. 入力を改行で配列に分割します。
2. この配列のサイズのみを含む配列が、この配列内のすべての要素のすべてのuniq（空の配列とユニオンを設定）サイズを含む配列と等しいことをアサートします。

チェダー、39バイト

@.split("
").all((i,j,k)->i.len==k.len)

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

Clojure、58バイト

#(let[s(re-seq #"[^\n]+"%)c count](apply =(c s)(map c s)))

魔法のような何かを見るのを楽しみにして、末尾の改行が必要です。

APL（Dyalog）、17バイト

⎕ML←3多くのシステムでデフォルトである必要があります。CRを使用します。

↓∘⎕FMT≡⎕TC[2]∘≠⊂⊢

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

↓∘⎕FMT スプリットへのラインである[] F又はM A Tテッド-に-正方形引数

≡ と同じ

⎕TC[2]∘≠ 非改行*文字のグループに

⊂ 仕切られた

⊢ 引数？

*リストの2番目の要素T erminal C ontrol文字。

バージョン16.0では、1は書くことができ↓∘⎕FMT≡⎕TC[3]∘≠⊆⊢て⎕ML←1。

PowerShell、64バイト

他の非ゴルフ言語の回答と同じ（分割、行の長さ、行数）アプローチですが、同等の素敵なmap（）はありませんので、行の長さの配列で、最後にタグ付けされた行の数、その配列グループ化されます。四角は次のように3,3,3,3 -> 1 group, all line lengths and line count were equalなり、非四角はのようになり3,2,1 -> 3 groupsます。

$f={@(@(($L="$args"-split"`n")|% le*)+$L.Count|group).Count-eq1}

改行Linuxスタイルのエンディングが必要で、末尾の改行は不要です。例えば

$Ttests = @(@'
foo
bar
baz
'@,
'.',
@'
aaaaa
aaaaa
aaaaa
aaaaa
aaaaa
'@
)
$Ttests = $Ttests | foreach {$_ -replace "`r"}

$Ttests | % { & $f $_ }

（そして、あなたは偽のテストに対しても同様のことができますが、それらがもっとあるので、ここには入れません）。@入力が単一の'.'場合、いくつかのシンボルが必要です。それ以外の場合、分割は1つの文字列の配列を作成せず、単に1つの文字列を作成1,1します2。その後、配列連結はoutputを出力しません。

すべての文字を「a」に置き換えてから、1からすべての正方形「a」までの入力長さまでブルートフォースし、入力に一致するものがあるかどうかを確認する方が短いことを願っています。param（）と.Lengthおよび-joinと-replaceを取得すると、81バイトではるかに長くなります。

$f={param($s)!!(1..$s.Length|?{,('a'*$_)*$_-join"`n"-eq($s-replace"[^`n]",'a')})}

グライム、11バイト

e`.|_./+/.+

1正方形および0非正方形の印刷。 オンラインでお試しください！

説明

詳細な説明は、Grimeチュートリアルページにあります。このページには、例としてこの正確なプログラムが含まれています。

e`.|_./+/.+
e`            Match entire input against pattern:
  .           A single character
   |          OR
    _         a recursive match of this pattern
     ./+      with one column of characters on its right
        /     and below that
         .+   one row of characters.