Рядок вважається квадратним, якщо виконуються наступні умови:

• Кожен рядок має однакову кількість символів
• Кількість символів у кожному рядку дорівнює кількості рядків.

Ваше завдання - написати програму або функцію, яка визначає, чи є даний вхідний рядок квадратним чи ні.

Ви можете вимагати, щоб введення було обмежене вибором LF, CR або CRLF.

Символи (символи) нового рядка не вважаються частиною довжини рядка.

Вам може знадобитися, щоб у введенні не було чи закінчується новий рядок, який не вважається додатковим рядком.

Вхід - це рядок або 1D масив char; це не список рядків.

Ви можете вважати, що вхід не порожній і містить лише друкований ASCII, включаючи пробіли.

Необхідно вивести значення "truthy" для квадратних струн і хибне для інших рядків.

Пробні кейси:

foo
бар
баз

.

.s.
.ss
.s.
(s представляє простір)

сс
сс
(s представляє простір)

ааааа
ааааа
ааааа
ааааа
ааааа

Тестові випадки фальшивості:

..
.

.

.

….


….

4444
333
22

333
333

abc.def.ghi

Зауважте додаткові порожні рядки в деяких випадках із фальшивими помилками.

Це кодовий гольф - найменша кількість байтових виграшів!

Брахілог (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

Я трохи скептично ставився до корисності ṁвбудованого, коли його додавали, але я не можу реально заперечувати, що це корисно тут…

Брахілог (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)

• 1 байт збережено завдяки ETHproductions

Пояснення

1. Розділіть рядок на масив на нових рядках.
2. Петля за масивом.
3. Віднімаємо довжину масиву від довжини кожного рядка.
4. Якщо для будь-якого рядка повертається ненульове (тобто truthy) значення, рядок не є квадратним.
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$

Спробуйте в Інтернеті!

Завдяки FryAmTheEggman за -2

Haskell, 38 34 байт

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

Спробуйте в Інтернеті!

Версія Pointfree f s = all ((==length (lines s)).length) (lines s), тобто розділіть вхід на рядки і перевірте, чи довжина кожного рядка дорівнює кількості рядків.

Редагування: Дякуємо @xnor за 4 байти.

Желе , 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 на один і той же символ, щоб полегшити співставлення. (Це можна зробити без, але це код з гольфом, а не виклик коду.) Потім другий етап відповідає принаймні одному символу в першому рядку. Однак для кожного додаткового символу в першому рядку він необов'язково відповідає новому рядку з подальшим копією першого рядка. Заключна частина виразу спричиняє збіг збігу, якщо стовпців більше, ніж рядків.

Лушпиння , 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.

Функція ≡насправді перевіряє, чи мають два масиви однакову форму і однаковий розподіл правдоподібних елементів. У Husk всі символи, окрім нульового байта, є truthy, і це не відбудеться у наших введеннях. Крім того , Sє S-комбінатор , функція , яка приймає в якості вхідних даних двох функцій, тут ≡і T'a, і повертає нову функцію , що карти xз ≡(x)(T'a x). Результат Sскладається з ¶, і ця функція застосовується до вводу неявно.

Звідки Хаск знає, що він повинен застосовуватися Sдо наступної функції, але ¶повинен бути складений з функції зліва? Просте: воно просто намагається здійснити кожну інтерпретацію і підбирає ту, де типи мають сенс. Це детальніше пояснено в документації на лушпиння .

Чистий баш (без комунальних послуг), 55

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

• mapfile зчитує вхід в масив a
• тоді кількість елементів масиву XORed з кожною довжиною рядка та взятою сумою. Для ідеального квадрата кожен результат XOR (і, таким чином, сума) буде 0. Для будь-якого іншого результат буде> 0.

Протилежне значення цього повертається як код повернення оболонки (вивчіть echo $?) - ідеальний квадрат дорівнює 1, все інше - 0.

Спробуйте в Інтернеті (truthy) .

Спробуйте в Інтернеті (помилково) .

Попередня відповідь із використанням пекла eval-escape-extension, 78:

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

Спробуйте в Інтернеті (truthy) .

Спробуйте в Інтернеті (помилково) .

Perl 6 , 27 байт

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

Тестує, чи дорівнює кількість рядків у рядку введення кількості символів у кожному рядку.

Pyth, 7 байт

CImL1.z

Спробуйте тут

Не вимагає відмітки нового рядка. Замінює вхід двовимірним масивом 1s, де 1 являє собою будь-який символ у вихідному вході. Потім ми перевіряємо, чи не змінюється цей масив після його переміщення (замінюючи стовпці рядками). Лише квадрат поверне справжню в такій ситуації.

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

Рядок введення визначається за допомогою конкатенації рядків ( [...]) і з кодовою точкою 10для представлення LF. Наприклад, ['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

Збережено 2 байти завдяки @FryAmTheEggman.

Спробуйте в Інтернеті

Пояснення

!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

Демонстрація

Перекладіть вхід із усіченням двічі, а потім перевірте, чи результат такий, як оригінал.

Рубін, 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]∘≠ внутрішні групи не-нового рядка * -характеристики

⊂ розділений

⊢ аргумент?

* другий елемент списку T erminal C ontrol символів.

У версії 16.0 можна писати за ↓∘⎕FMT≡⎕TC[3]∘≠⊆⊢допомогою ⎕ML←1.

PowerShell, 64 байти

Той самий (розділений, довжина рядків, кількість рядків) підхід, як і інші відповіді мови не для гольфу, але немає приємного еквівалента карти (), тому це масив довжин рядків з кількістю рядків, позначених на кінці, а потім цей масив групується. Виходять квадрати як, 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видає його виведення 2.

Я сподівався, що може бути коротше замінити всі символи на "a", а потім грубою силою від 1 до введення довжини всіх квадратів "a" і побачити, чи не відповідає жодному вводу. Як тільки я пройшов парам () і .Length і -join і -замінити, він закінчується набагато довше на 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.