fork(1) download
copy 
  1. dim :: [[a]] -> (Int, Int)
  2. dim ls = let x = length ls
  3.              ys = map length ls
  4.          in case ys of
  5.              h:t -> if all (==h) t then (x, h) else (0, 0)
  6.              [] -> (0, 0)
  7.  
  8. main = do
  9.    print $ dim [[1, 1], [1, 1]]
  10.    print $ dim [[1, 1], [2, 2, 2]]
Success #stdin #stdout 0.01s 3584KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(2,2)
(0,0)
https://ideone.com/nnD0WI
language:
Haskell (ghc 8.4.4)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!