Checking Word Grids

Question

Your Task

Given a list of words, check if they form a valid word grid. They form a valid grid if there are N words with N letters and they spell the same words vertically as they do horizontally. The words can be given in any order. [FILE, ICED, LEAD, EDDY] = True and [FILE, LEAD, EDDY, ICED] = True. Print True if it is valid or False if it is not

Here's some more examples

F I L E
I C E D
L E A D
E D D Y

O G R E        
G A I A       
R I G S        
E A S Y        

C A M P
A X E L
M E M O
P L O W

S P A S M
P A S T A
A S P E N
S T E E L
M A N L Y

This is code golf so lowest bytes wins

Answer 1

Pyth - 10 9 bytes

The actual check is very easy, in just three bytes with CIQ. The permutation part takes the other 6.

.EmCId.pQ

Try it online here.

It maps over the .permutations of the (Q) input, each time checking if the loop var(d) is Invarient under (C) rotation. Then it checks if .Eany are true.

Answer 2

CJam (25 24 bytes)

q~e!{_z=},"True""False"?

Online demo. Pretty trivial apart from the specified output, because CJam doesn't have a Boolean type.

With thanks to Sp3000 for saving one stroke.

Answer 3

Julia, 114 bytes

Did somebody say "super long solution"?? It just so happens that I have one for you.

a->(L=length(a);P(x)=reshape(split(join(x),""),L,L);print(any([P(p)==P(p)'for p=permutations(a)])?"True":"False"))

This creates an unnamed function that accepts an array and prints to stdout. It works by generating all permutations, turning the arrays into matrices of letters and checking whether each matrix is equal to its transpose. Unfortunately booleans are lowercase in Julia, otherwise I wouldn't have had to do the ternary.

Answer 4

Haskell, 51 bytes

import Data.List
any((==)=<<transpose).permutations

Usage example: any((==)=<<transpose).permutations $ ["LEAD","FILE","ICED","EDDY"] -> True.

How it works: check if any of the permutations equals it's transposition. Luckily Haskell's native boolean values are True and False.

Answer 5

Python 2, 87 85 Bytes

Straightforward solution using zip() to transpose.

Saved two bytes on both thanks to xnor.

from itertools import*
print any(zip(*c)==map(tuple,c)for c in permutations(input()))

Solution without relying on imports, 139 138 136 Bytes

p=lambda l:[[j]+k for i,j in enumerate(l)for k in p(l[:i]+l[-~i:])]if~-len(l)else[l]
print any(zip(*c)==map(tuple,c)for c in p(input()))

^{If there's a way to get around using enumerate, let me know! :)}

Input for both should be formatted like so:

["FILE","ICED","EDDY","LEAD"]

---

^{Psst. Hey! Here's a solution in Symbolic, something I'm working on. Ƥ(Ʌ(ʐ(*c)==ϻ(ϰ,c)ϝcϊƥ(Ί)))}

Answer 6

Python 2, 74

s=input().split()
print all(''.join(s)[s.index(w)::len(w)]in s for w in s)

Answer 7

Brachylog, 6 bytes

p⟨\=≡⟩

Try it online!

Assuming output can be "true." and "false." instead of "True" and "False".

If not, it's a trivial change to:

22 bytes

p⟨\=≡⟩∧"True"|∧"False"

Try it online!

Answer 8

Mathematica (48 42 bytes)

Or@@(#==#&/@Characters@Permutations@#)&

Luckily Transpose can be represented by a single unicode character.

Answer 9

JavaScript ES6, 90 58 bytes

s=>s.every((l,i)=>s.map(p=>p[i]).join``==l)?'True':'False'

Old answer:

s=>~(n=s.split`
`).map((l,i)=>n.map(p=>p[i*2]).join` `==l).indexOf(!1)?'False':'True'

The newline is significant and counts as a byte.

---

ES5 Demo:

function t(s) {
    return ~(n=s.split('\n')).map(function(l,i){return n.map(function(p){return o=p[i*2]}).join(' ')==l}).indexOf(!1)?'False':'True'
}

// Demo
document.getElementById('go').onclick=function(){
  document.getElementById('output').innerHTML = t(document.getElementById('input').value)
};

<div style="padding-left:5px;padding-right:5px;"><h2 style="font-family:sans-serif">Word Grids Snippet</h2><div><div  style="background-color:#EFEFEF;border-radius:4px;padding:10px;"><textarea placeholder="Text here..." style="resize:none;width:70px;height:70px;border:1px solid #DDD;" id="input"></textarea><button id='go'>Run!</button></div><br><div style="background-color:#EFEFEF;border-radius:4px;padding:10px;"><span style="font-family:sans-serif;">Output:</span><br><pre id="output" style="background-color:#DEDEDE;padding:1em;border-radius:2px;overflow-x:auto;"></pre></div></div></div>

Answer 10

Ruby, 97 bytes

91 bytes if we remove .chomp inside map

a=gets.chomp.split','.map{|_|_.chomp.chars};p a.permutation.map{|p|p[0].zip(*p[1..-1])===p}.any?

Answer 11

MATLAB - 75 98 bytes

Note: I didn't see that you had to output True or False, so I had to create an additional cell array that stores these two choices then we choose from this array when we're done.

---

This is a rather brute-force solution. This assumes that you have loaded A in as a character matrix and that A is symmetric in size (i.e. # of rows is equal to # of columns):

c={'False','True'};o=0;for k=perms(1:size(A,1))'o=o|sum(sum(A(k,:)==A(k,:)'))==numel(A);end,c{o+1}

The overall process is to first create a 2D array of all possible permutations that goes from 1 up to as many words as we have N. Each row of this matrix gives you a permutation enumerated from 1 up to N, and we can check either the number of rows or columns for the value N. Next, we go through every possible permutation and rearrange the matrix A's rows based on the permutation vector produced by that permutation. For example, if N=4, and if we had [1,4,2,3] as the permutation vector, it would rearrange the matrix A so that row 1 of the original matrix A appears first, followed by row 4 of the original matrix A appearing second, row 2 of the original matrix A appearing third and finally row 3 of the original matrix A appearing last.

The above problem is essentially checking to see that if we all of these matrix rearrangements for A over all possible permutations, we check to see if this rearranged matrix is equal to its transpose. In order to facilitate this, I do an element-by-element equality check of the characters, and sum over this result. If the sum is equal to the total size of the matrix, then we have a true result. This code will check all possible permutations, even if we have found a match before we exhaust all possibilities. The statement o=0 is an indicator variable o that tells us whether we have found the condition being true or false.

Inside the loop, we keep updating o and checking for the above summation condition by logical ORing with the current result and with the current rearranged matrix condition. It will be set to true if we have found such a condition or it gets to 1, and will stay false if we don't, or stays at 0.

Minor Note

The for loop behaviour is rather undocumented, but if you specify a matrix to be what is iterating over the for loop, each value k would be a column of the said matrix. For example, if we did:

B = [0 0 0 0; 1 1 1 1; 2 2 2 2; 3 3 3 3];
for k = B
    disp(k);
end

We would select out the first column of B, display it, then the next column of B, display it, etc... so you would get a series of [0,1,2,3]'s.

---

Example Runs

>> A = ['FILE'; 'ICED'; 'LEAD'; 'EDDY'];
>> c={'False','True'};o=0;for k=perms(1:size(A,1))'o=o|sum(sum(A(k,:)==A(k,:)'))==numel(A);end,c{o+1}

ans =

    True

>> A = ['FILE'; 'LEAD'; 'EDDY'; 'ICED'];
>> c={'False','True'};o=0;for k=perms(1:size(A,1))'o=o|sum(sum(A(k,:)==A(k,:)'))==numel(A);end,c{o+1}

ans =

    True

>> A = ['OGRE'; 'GAIA'; 'RIGS'; 'EASY'];
>> c={'False','True'};o=0;for k=perms(1:size(A,1))'o=o|sum(sum(A(k,:)==A(k,:)'))==numel(A);end,c{o+1}

ans =

    True

>> A = ['CAMP', 'AXEL', 'MEMO', 'PLOW'];
>> c={'False','True'};o=0;for k=perms(1:size(A,1))'o=o|sum(sum(A(k,:)==A(k,:)'))==numel(A);end,c{o+1}

ans =

    True

>> A = ['SPASM', 'PASTA', 'ASPEN', 'STEEL', 'MANLY'];
>> c={'False','True'};o=0;for k=perms(1:size(A,1))'o=o|sum(sum(A(k,:)==A(k,:)'))==numel(A);end,c{o+1}

ans =

    True

---

Just to be sure, here's an example of where it shouldn't work:

>> A = ['CBMP'; 'APEL'; 'MCTO'; 'DLOX'];
>> A

A =

CBMP
APEL
MCTO
DLOX

>> c={'False','True'};o=0;for k=perms(1:size(A,1))'o=o|sum(sum(A(k,:)==A(k,:)'))==numel(A);end,c{o+1}

ans =

    False

Answer 12

05AB1E, 11 bytes

øQi”‰¦”딞ä

Try it online.

Explanation:

ø        # Zip the (implicit) input, swapping columns and rows
 Q       # Check if it is equal to the (implicit) input
         # That's it, we're done.. If it weren't for the requirement of explicitly 
         # outputting the strings "True"/"False" instead of a truthy/falsey result..

i        # If the result is 1 (truthy):
 ”‰¦”    #  Output "True"
ë        # Else:
 ”žä     #  Output "False"

See here to understand why ”‰¦” is True and ”žä is False.

---

11 bytes alternative:

øQ”žä‰¦”#sè

Try it online.

Answer 13

Java (OpenJDK 8), 134 bytes

a->{int b=a.length,i=0,j=0;for(;i++<b;){for(;j<b;j++){if(a[j].length()!=b||a[i].charAt(j)!=a[j].charAt(i))return false;}}return true;}

Try it online!

Explanation:

int b=a.length,i=0,j=0;                               //Create Variables
for(;i++<b;){for(;j<b;j++){                           //Nested Loop
if(a[j].length()!=b||a[i].charAt(j)!=a[j].charAt(i))  //Is the grid valid?
    return false;                                     //if not, return false
}}
return true;                                     //if it gets this far, return true

Answer 14

PowerShell, 93 bytes

param($a)"$($a|%{$n++;''+($_|% t*y|sort)}|sort)"-eq"$(0..--$n|%{''+($a|% ch* $_|sort)}|sort)"

Try it online!

Unrolled:

param($a)

$x=$a|%{
    $n++                                # number of words
    $letters = $_|% toCharArray|sort    # sorted letters of the current word $_
    ''+$letters                         # convert the letters to a string
}|sort

$y=0..--$n|%{
    $letters = $a|% chars $_|sort       # sorted letters of all words in the $_ position
    ''+$letters                         # convert the letters to a string
}|sort

Write-Output ("$x"-eq"$y")              # convert both arrays to strings, compare them and return a result

Answer 15

Burlesque, 35 bytes

ln)wdr@{Jtp==}ay{"True"}{"False"}IE

Try it online!

Core calculation is 11 bytes. Most of the cost is in parsing the word square (5 bytes) and outputting true or false rather than 1/0 (19 bytes)

ln                   #Split by newlines
)wd                  #Map split by spaces
r@                   #Permutation by words
{
 Jtp==               #If the transpose is the same
}ay                  #Any
{"True"}{"False"}IE  #Print "True" or "False" accordingly