fork(1) download
copy 
  1.  
  2. diag2 ys = 
  3. 	nx (reverse ys)
  4. 	where
  5.     	nx ((x : _) : xs) = x : nx (map tail xs)
  6.     	nx _ = []
  7.  
  8. main = do
  9. 	let xs = diag2 [[1,1,3],[1,3,1],[3,1,1]]
  10. 	putStr (show xs)
Success #stdin #stdout 0s 6268KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[3,3,3]
https://ideone.com/9K0Q4M
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!