fork(1) download
copy 
  1. main = print $ mat [5,6,2,1,2,3]
  2.  
  3. mat ns = take (maximum ns) (mat' ns) where
  4.     mat' xs = map (> 0) xs : mat' (map (subtract 1) xs)
Success #stdin #stdout 0s 4692KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[[True,True,True,True,True,True],[True,True,True,False,True,True],[True,True,False,False,False,True],[True,True,False,False,False,False],[True,True,False,False,False,False],[False,True,False,False,False,False]]
https://ideone.com/rYIXX3
language:
Haskell (ghc 8.4.4)
created:
8 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!