Skip to content

Instantly share code, notes, and snippets.

@AndyMoreland

AndyMoreland/gist:252993

Created December 10, 2009 00:33
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save AndyMoreland/252993 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save AndyMoreland/252993 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
squareCheck :: (RealFloat a) => [[a]] -> Bool
squareCheck matrix
| height == num_with_right_width = True
| otherwise = False
where height = length matrix
num_with_right_width = length [ row | row <- matrix, length row == height ]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment