Haskell

== Zajímavé konstrukce

Načtení souboru a vypsání dat do vstupu s informací o číslu řádku

import IO
showFile f1 = do
  h1 <- openFile f1 ReadMode
  c1 <- hGetContents h1
  putStr $ unlines $ [ (show a) ++ ": " ++ b | (a,b) <- (zip [0..(length ( lines c1 ))] (lines c1) ) ]