fork download
copy 
  1. import Data.List ( group, sort, transpose )
  2. import GHC.Base (join)
  3. import Control.Arrow ( Arrow((&&&)) )
  4. f a= map $ join.map (\x->[length x:head x] <> replicate (length x - 1) [0]).group.a
  5. f2 x= map (length &&& head).group.map init.sort.filter ((/=0).last).join.f id $ transpose $ f (map (:[])) x
  6. main = readLn  >>= print.f2
Runtime error #stdin #stdout #stderr 0s 5620KB
comments (?)
stdin
copy 
6 10
0111000011
0000011011
0100011000
0101011011
0100000000
0001111011
stdout
copy 
Standard output is empty
stderr
copy 
prog: user error (Prelude.readIO: no parse)
https://ideone.com/VZ598I
language:
Haskell (ghc 8.4.4)
created:
4 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!