Haskell programlama dilinde yazılmış bu fonksiyonda konsoldan (dosyadaara "dosya ismi" "aranacak ifade") ifadesi girildikten sonra dosyada istenilen kelime aranır bulunursa kacıncı karakterde bulunduğu gosterilir aksi takdirde Bulunamadi ifadesi yazdırılır. Eğer dosyada aranan kelimeden birden fazla bulunması halinde ilk bulunan kelimenin yeri gosterilir. Burada kelimenin boyunu oğrenmek icin length fonksiyonu kullanılmıştır. Or: dosyadaara "D:\\unutma.txt" "office" 114 Program Kodu : PHP Code:
import System.IOdosyadaara dosya kelime=openFile dosya ReadMode>>= \dosyamiz ->hGetContents dosyamiz >>= \icerik ->putStr (arabakalim kelime icerik 0 kelime) >>return ()arabakalim::String->String->Int->String->Stringarabakalim _ [] _ _ = "Bulunamadi"arabakalim [] _ s x = show (s - (length x))arabakalim (x:xs) (y:ys) t kelime| x==y = arabakalim xs ys (t+1) kelime| otherwise = arabakalim kelime ys (t+1) kelime

__________________