Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama Haskell Dosyada Bulunan Sayıları Toplama


Dosyada Bulunan Sayıları Toplama

Haskell programlama dilinde yazılmış bu fonksiyonda konsoldan "dosyadanetkilitopla" ifadesi girildikten D partitionu içinde bulunan sayilar.txt isimli dosyadaki sayılar toplanır ve sonuçlar satır bazında gösterilerek nihayi sonuç en sonda üretilir. Burada bir satırda birden fazla sayı girebilmektedir. Dosya içeriğ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 tüm sayılar elde edilir ve sum fonksiyonu ile satırda bulunan sayılar toplanır ve akabinde önceki toplama eklenir.

 Ör:Dosya İçindeki Sayılar

6 8 15 23 56
8 9 145 98
34 56
78
34

Çıktı:

dosyadanetkilitopla
Toplam= 108
Toplam= 368
Toplam= 458
Toplam= 536
Toplam= 570
 

Program Kodu :

  1.  
  2. import System.IO
  3.  
  4. dosyadanetkilitopla =
  5.                      openFile "D:\\sayilar.txt" ReadMode>>= \dosya ->
  6.                      hGetContents dosya >>= \icerik ->
  7.                      islemeci (lines icerik) 0
  8.  
  9. islemeci []     t = return ()                
  10. islemeci (l:ls) t =
  11.                     putStrLn ("Toplam= "++ show(t+sum[read (x)::Int|x<-words l])) >>            
  12.                     islemeci ls (t+(sum[read(x)::Int|x<-words l]))
  13.  
 

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!