Haskell programlama dilinde yazılmış bu fonksiyonda verilen bir dizin içinde bulunan

[color=#000000]Program Kodu :[/color]




import System.IO
import System.Environment
import System.Directory




dirlist a =
          getCurrentDirectory >>= \dir  ->
          getDirectoryContents a >>= \filelist ->
          setCurrentDirectory a >>
          dosyalariekranayazdir filelist >>
          setCurrentDirectory dir >>
          return ()
                   
dosyalariekranayazdir (l:[]) = putStrLn l
dosyalariekranayazdir (l:ls) =
                              putStrLn l >> [color=#000000]                              dosyalariekranayazdir ls[/color]