Ciąg uważa się za kwadratowy, jeśli spełnione są następujące warunki:

• Każda linia ma taką samą liczbę znaków
• Liczba znaków w każdej linii jest równa liczbie linii.

Twoim zadaniem jest napisanie programu lub funkcji, która określa, czy dany ciąg wejściowy jest kwadratem, czy nie.

Możesz wymagać ograniczenia danych wejściowych przez wybór LF, CR lub CRLF.

Znaki nowego wiersza nie są uważane za część długości linii.

Możesz wymagać, aby na wejściu pojawiał się znak nowej linii, ale nie jest to dodatkowy wiersz.

Dane wejściowe to tablica znaków lub 1D; nie jest to lista ciągów.

Możesz założyć, że dane wejściowe są niepuste i zawierają tylko drukowalny kod ASCII, w tym spacje.

Musisz podać prawdziwą wartość dla ciągów kwadratowych i fałsz dla innych ciągów.

Prawdziwe przypadki testowe:

bla
bar
baz

.

.s.
.ss
.s.
(s oznacza spację)

ss
ss
(s oznacza spację)

aaaaa
aaaaa
aaaaa
aaaaa
aaaaa

Przypadki testowe Falsy:

..
.

.

.

....


....

4444
333
22

333
333

abc.def.ghi

Zwróć uwagę na dodatkowe puste linie w niektórych przypadkach fałszowania.

To jest golf golfowy - wygrywa najmniej bajtów!

Brachylog (2), 3 bajty

ṇẹṁ

Wypróbuj online!

Pełny program Wyjścia true.dla truthy, false.dla falsey.

Wyjaśnienie

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

Byłem nieco sceptycznie nastawiony do użyteczności ṁwbudowanego, kiedy został dodany, ale tak naprawdę nie mogę zaprzeczyć, że jest on pomocny tutaj…

Brachylog (2), 7 bajtów

ṇẹ.\l~l

Wypróbuj online!

Niezintegrowane rozwiązanie. Nadal bije wszystkie inne wpisy, w momencie pisania. EDYCJA: Niezupełnie, wpis Jelly o równej długości wszedł, kiedy to pisałem, i pokonał go za pomocą znacznika czasu.

Wyjaśnienie

ṇẹ.\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 bajty

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

Wypróbuj online! lub Wypróbuj wszystkie przypadki testowe

JavaScript (ES6), 46 45 bajtów

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

• 1 bajt zapisany dzięki ETHproductions

Wyjaśnienie

1. Podziel ciąg na tablicę w znakach nowej linii.
2. Pętla nad tablicą.
3. Odejmij długość tablicy od długości każdej linii.
4. Jeśli dla dowolnego wiersza zostanie zwrócona niezerowa (tj. Prawdziwa) wartość, łańcuch nie będzie kwadratowy.
5. Neguj wynik pętli, aby uzyskać truekwadrat i falsenie.

Spróbuj

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 bajtów

¶¡€gDgQP

Wypróbuj online!

-2 dzięki Rileyowi, to w zasadzie jego odpowiedź ._.

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

Galaretka , 7 5 bajtów

Ỵ¬⁼Z$

Wypróbuj online!

Dzięki FryAmTheEggman za -2

Haskell, 38 34 bajtów

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

Wypróbuj online!

Wersja punktowa f s = all ((==length (lines s)).length) (lines s), tzn. Podziel dane wejściowe na linie i sprawdź, czy długość każdej linii jest równa liczbie linii.

Edycja: Dzięki @xnor za 4 bajty.

Galaretka , 7 bajtów

ỴµL;L€E

Wypróbuj online!

Wyjaśnienie

Ỵµ       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 bajtów

=Ur.Q)¥Uy

Przetestuj online!

Wyjaśnienie

 =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

W przypadku niektórych funkcji zaimplementowanych wkrótce po opublikowaniu tego wyzwania może to być 6 bajtów:

r.Q
¥y

Przetestuj online!

Wyjaśnienie

       // 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 bajtów

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

Wypróbuj online! Objaśnienie: Pierwszy etap po prostu zmienia wszystkie drukowalne ASCII w ten sam znak, aby ułatwić dopasowanie. (Można to zrobić bez, ale jest to kod golfowy, a nie kodowy.) Drugi etap dopasowuje następnie co najmniej jeden znak w pierwszej linii. Jednak dla każdego dodatkowego znaku w pierwszym wierszu opcjonalnie dopasowuje nowy wiersz, a następnie kopię pierwszego wiersza. Ostatnia część wyrażenia powoduje niepowodzenie dopasowania, jeśli jest więcej kolumn niż wierszy.

Łuska , 6 bajtów

S≡T'a¶

Bierze ciąg i drukuje albo 1albo 0. Wypróbuj online! Pierwszy wiersz przechodzi przez przypadki testowe; usuń go, jeśli chcesz przetestować jedną wartość.

Wyjaśnienie

Husk to nowy funkcjonalny język golfa stworzony przeze mnie i Leo . Brakuje wielu funkcji, a prace rozwojowe trwają. Jego główną cechą jest sztywny system typu, który pozwala nam przeciążać funkcje wyższego rzędu.

Na wysokim poziomie program działa w następujący sposób:

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.

Funkcja ≡faktycznie sprawdza, czy dwie tablice mają ten sam kształt i taki sam rozkład elementów zgodnych z prawdą. W Husk wszystkie znaki z wyjątkiem bajtu zerowego są zgodne z prawdą i nie pojawią się w naszych danych wejściowych. Ponadto, Sjest S-syntezatora , funkcja, która przyjmuje jako wejścia dwóch funkcji, tu ≡i T'ai zwraca nową funkcję, która mapuje xsię ≡(x)(T'a x). Wynik Sskłada się z ¶, a funkcja ta jest domyślnie stosowana do danych wejściowych.

Skąd Husk wie, że powinien mieć zastosowanie Sdo następnej funkcji, ale ¶powinien być złożony z funkcją po lewej? Proste: po prostu wypróbowuje każdą interpretację i wybiera tę, w której typy mają sens. Jest to wyjaśnione bardziej szczegółowo w dokumentacji Łuski .

Pure Bash (bez narzędzi), 55

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

• mapfile wczytuje dane wejściowe do tablicy a
• następnie liczba elementów tablicy jest XORowana przy każdej długości linii i pobierana suma. Dla idealnego kwadratu każdy wynik XOR (a więc i suma) będzie wynosił 0. Dla czegokolwiek innego wynik będzie wynosił> 0.

Odwrotne znaczenie jest zwracane jako kod powrotu powłoki (sprawdzaj za pomocą echo $?) - idealny kwadrat to 1, wszystko inne to 0.

Wypróbuj online (prawda) .

Wypróbuj online (falsy) .

Poprzednia odpowiedź przy użyciu eval-escape-extension hell, 78:

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

Wypróbuj online (prawda) .

Wypróbuj online (falsy) .

Perl 6 , 27 bajtów

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

Sprawdza, czy liczba wierszy w ciągu wejściowym jest równa liczbie znaków w każdej linii.

Pyth, 7 bajtów

CImL1.z

Wypróbuj tutaj

Nie wymaga końca nowej linii. Zastępuje dane wejściowe tablicą 2D z 1s, gdzie 1 oznacza dowolny znak z oryginalnego wejścia. Następnie sprawdzamy, czy tablica nie uległa zmianie po transponowaniu (zastępując kolumny wierszami). Tylko kwadrat zwróci wartość true w takiej sytuacji.

Java (OpenJDK 8) ,96 91 90 87 bajtów

-5 bajtów dzięki @KevinCruijssen
-1 bajtów dzięki @TheLethalCoder
-2 bajtów dzięki @ OlivierGrégoire

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

Wypróbuj online!

05AB1E , 7 bajtów

|€gDgQP

Wypróbuj online!

R , 57 bajtów

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

Anonimowa funkcja; Dzieli na nowe linie, oblicza długość każdej linii i sprawdza, czy wszystkie są takie same jak liczba linii.

Wypróbuj online!

MATL , 14 12 bajtów

10H&XXot&n=h

Łańcuch wejściowy jest definiowany za pomocą konkatenacji łańcucha ( [...]) i za pomocą punktu kodowego 10reprezentującego LF. Na przykład ['aaa' 10 'bb']jest interpretowany w MATL jako ciąg 'aaa'połączony ze znakiem z punktem kodowym 10połączonym z ciągiem 'bb'.

Wyjście jest niepustym wektorem liczbowym, co jest prawdą wtedy i tylko wtedy, gdy wszystkie jego wpisy są niezerowe.

Wypróbuj online!

Wyjaśnienie

Rozważ wejście ['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 bajtów

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

Pobiera dane wejściowe ze standardowego wejścia. Sprawdza, czy liczba znaków w każdym wierszu jest równa całkowitej liczbie wierszy. Zwraca TRUElub FALSEodpowiednio.

JavaScript (ES6), 48 bajtów

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

CJam, 11 bajtów

qN/:,_,f=:*

Wypróbuj online!

OCaml , 56 bajtów

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

Wypróbuj online!

Pyth, 12 10 bajtów

!fnl.zlT.z

Zaoszczędź 2 bajty dzięki @FryAmTheEggman.

Wypróbuj online

Wyjaśnienie

!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 bajty

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

Ja jestem zadowolony z tego, jak krótka pochodna QBasic mogła podjąć to wyzwanie.

Wyjaśnienie:

{_?       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 bajtów

qCC.z.z

Demonstracja

Dwukrotnie transponuj dane wejściowe ze obcięciem, a następnie sprawdź, czy wynik jest taki sam jak oryginał.

Rubinowy, 50 bajtów

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

Wypróbuj online!

Wyjaśnienie

1. Podziel wejście na tablicę na nowej linii.
2. Upewnij się, że tablica zawierająca tylko rozmiar tej tablicy jest równa tablicy zawierającej wszystkie rozmiary uniq (set union with empty array) wszystkich elementów w tej tablicy.

Cheddar , 39 bajtów

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

Wypróbuj online!

Clojure, 58 bajtów

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

Wymaga końca nowej linii, nie mogę się doczekać, aby zobaczyć coś bardziej magicznego.

APL (Dyalog) , 17 bajtów

Wymaga ⎕ML←3ustawienia domyślnego w wielu systemach. Używa CR.

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

Wypróbuj online!

↓∘⎕FMT [to] podział na linie F lub m a t ted-do-A-kwadrat argumentu

≡ identyczny z

⎕TC[2]∘≠ znaki w grupach nie-nowej linii *

⊂ podzielony na partycje

⊢ argument?

* Drugi element listy T erminal c znaków kontroli twoj ego.

W wersji 16.0 można pisać za ↓∘⎕FMT≡⎕TC[3]∘≠⊆⊢pomocą ⎕ML←1.

PowerShell, 64 bajty

To samo podejście (podział, długości linii, liczba linii) jak w innych odpowiedziach w języku innym niż golf, ale nie ma fajnego odpowiednika map (), więc jest to tablica długości linii z liczbą linii oznaczonych na końcu, a następnie ta tablica jest zgrupowane. Kwadraty wychodzą jak 3,3,3,3 -> 1 group, all line lengths and line count were equali nie-kwadraty wychodzą jak 3,2,1 -> 3 groups, coś było nierówne na kwadracie:

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

Wymaga zakończenia nowej linii w stylu Linux, bez końcowego znaku nowej linii. na przykład

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

$Ttests | % { & $f $_ }

(I możesz zrobić podobnie dla fałszywych testów, ale nie umieszczę tego tutaj, ponieważ jest ich więcej). Kilka @symboli jest wymaganych, gdy wejście jest pojedynczym, w '.'przeciwnym razie rozdzielenie nie tworzy tablicy jednego łańcucha, tylko jeden łańcuch, a następnie konkatenacja tablicy nie 1,1generuje danych wyjściowych 2.

Miałem nadzieję, że krótsze może być zastąpienie wszystkich znaków „a”, a następnie brutalna siła od 1 do długości wejściowej wszystkich kwadratów „a” i sprawdzenie, czy jakikolwiek pasuje do danych wejściowych. Po przejściu przez param () i .Length oraz -join i -replace kończy się to znacznie dłużej na 81 bajtach:

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

Brud , 11 bajtów

e`.|_./+/.+

Wydruki 1na kwadraty i 0na kwadraty. Wypróbuj online!

Wyjaśnienie

Szczegółowe wyjaśnienie można znaleźć na stronie samouczka Grime , która zawiera przykładowy program.

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.