Распечатать список списков по строкам в Haskell

Вы можете использовать transpose :: [[a]] -> [[a]] [Hackage], чтобы определить транспонирование списка списков.

Более того, в Haskell часто не работают по индексу, а просто перебирают подсписки:

import Data.List (transpose)

print_row :: Double -> IO ()
print_row = printf "%9.6f"

print_rows :: [Double] -> IO ()
print_rows = mapM_ print_row

main :: IO ()
main = do
  let rs = [[1, 2, 3], [1, 2, 3], [1, 2, 3]]
  mapM_ print_rows (transpose rs)

или проще:

import Data.List (transpose)

main :: IO ()
main = do
  let rs = [[1, 2, 3], [1, 2, 3], [1, 2, 3]]
  mapM_ (mapM_ (printf "%9.6f")) (transpose rs)

Кажется, вы хотите транспонировать список списков. Это относительно просто реализовать, даже не углубляясь в библиотеку.

transpose :: [[a]] -> [[a]]
transpose [] = []
transpose ([]:_) = []
transpose lst = hds : transpose tls
  where 
    hds = map head lst
    tls = map tail lst

Prelude> transpose [[1,2],[3,4]]
[[1,3],[2,4]]