Haskell programlama dilinde yazılmış bu fonksiyonda konsoldan "dosyadanetkilitopla" ifadesi girildikten D partitionu icinde bulunan sayilar.txt isimli dosyadaki sayılar toplanır ve sonuclar satır bazında gosterilerek nihayi sonuc en sonda uretilir. Burada bir satırda birden fazla sayı girebilmektedir. Dosya iceriği hGetContents ile alındıktan sonra lines anahtar kelimesi kullanılarak satırlar bazında alınarak bir listeye aktarılır. Listede her satır words anahtar kelimesi yardımıyla kelime bazında alınarak bir satırda bulunan tum sayılar elde edilir ve sum fonksiyonu ile satırda bulunan sayılar toplanır ve akabinde onceki toplama eklenir. Or: Dosya İcindeki Sayılar 6 8 15 23 56 8 9 145 98 34 56 78 34 Cıktı: dosyadanetkilitopla Toplam= 108 Toplam= 368 Toplam= 458 Toplam= 536 Toplam= 570 Program Kodu : PHP Code:
import System.IO dosyadanetkilitopla = openFile "D:\\sayilar.txt" ReadMode>>= \dosya -> hGetContents dosya >>= \icerik -> islemeci (lines icerik) 0 islemeci [] t = return () islemeci (l:ls) t = putStrLn ("Toplam= "++ show(t+sum[read (x)::Int|x> islemeci ls (t[sum[read(x)::Int|x