Строка считается квадратной, если выполняются следующие условия:

• Каждая строка имеет одинаковое количество символов
• Количество символов в каждой строке равно количеству строк.

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

Вы можете потребовать, чтобы ввод был ограничен вашим выбором LF, CR или CRLF.

Символы новой строки не считаются частью длины строки.

Вы можете потребовать, чтобы в вводе была или не была завершающая новая строка, которая не считается дополнительной строкой.

Ввод - это строка или одномерный массив символов; это не список строк.

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

Вы должны вывести истинное значение для квадратных строк и ложное значение для других строк.

Правдивые тестовые случаи:

Foo
бар
Baz

,

.с.
.ss
.с.
(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. Если ненулевое (то есть истинное) значение возвращается для любой строки, строка не является квадратной.
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

Попробуйте онлайн!

Бессмысленная версия 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

Retina , 33 31 байт

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

Попробуйте онлайн! Объяснение: На первом этапе все печатаемые ASCII просто заменяются одним и тем же символом, чтобы упростить сопоставление. (Это может быть сделано без, но это кодовый гольф, а не кодовый вызов.) Второй этап затем соответствует по крайней мере одному символу в первой строке. Тем не менее, для каждого дополнительного символа в первой строке он затем может совпадать с новой строкой, за которой следует копия первой строки. Последняя часть выражения приводит к сбою сопоставления, если столбцов больше, чем строк.

Шелуха , 6 байт

S≡T'a¶

Принимает строку и печатает либо 1или 0. Попробуйте онлайн! Первая строка перебирает тестовые случаи; удалите его, если вы хотите проверить одно значение.

объяснение

Husk - это новый функциональный язык игры в гольф, созданный мной и Лео . В нем отсутствуют многие функции, и разработка продолжается. Его основной особенностью является система жестких типов, которая позволяет нам перегружать функции более высокого порядка.

На высоком уровне программа работает так:

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 все символы, кроме нулевого байта, являются правдивыми, и этого не произойдет в наших входных данных. Кроме того, 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
• затем число элементов массива XORed с каждой длиной строки и взятой суммой. Для идеального квадрата каждый результат XOR (и, следовательно, сумма) будет равен 0. Для всего остального результат будет> 0.

Противоположный смысл этого возвращается в виде кода возврата оболочки (исследуем с помощью echo $?) - идеальный квадрат равен 1, все остальное равно 0.

Попробуйте онлайн (правда) .

Попробуй онлайн (фальшивка) .

Предыдущий ответ с использованием eval-escape-extension 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 с, где 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

Входная строка определяется с помощью string concatenation ( [...]) и с точкой кода 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))

Принимает ввод от стандартного ввода. Проверяет, что количество символов в каждой строке равно общему количеству строк. Возвращает 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 (set union with empty array) всех элементов этого массива.

Чеддер , 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 [это] разделенным на-линии Р или т а т Ted-в-а-квадрат аргумент

≡ идентичный

⎕TC[2]∘≠ * в группы не-новой строки * -характеры

⊂ разделенная

⊢ аргумент?

* Второй элемент списка T erminal Си ontrol символов.

В версии 16.0 можно писать ↓∘⎕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выводит свои выходные данные 2.

Я надеялся, что это может быть короче заменить все символы на «а», а затем перебором от 1 до «Длина ввода» для всех квадратов «а» и посмотреть, соответствует ли какой-либо из них ввод. Как только я прошел через 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.