🚀 go-pugleaf

> > > program ma zliczać ile razy w zadanym pliku wystąpił dany wyraz.
> > > problem w tym, że za bardzo nie chce działać...

> 
> npisałem wcześniej, że ma zliczać wystąpienia zadanego wyrazu w
> podanym pliku. no wiem że trochę brakuje, ale nie mam pomysłu na to
> jakoś. czekam na olśnienie;)
Trzeba było napisać... ;p "Zróbcie za mnie moje zadanie domowe".

(* Wczytuje wyraz *)
let rec readWord channel s =
  match input_char channel with
  | ' ' | '\t' | '\n' | '\r' -> s
  | ch -> readWord channel (s ^ (Char.escaped ch))
;;

(* Zlicza wyrazy... *)
let rec count input word cnt =
  try
    let current = readWord input "" in
    if current = word then
      count input word (cnt+1)
    else
      count input word cnt
  with End_of_file -> cnt
;;

(* Wyświetla wynik, inicjalizuje plik... *)
let main filename word =
  let file = open_in filename in
  Printf.printf "%d\n" (count file word 1)
;;

main "counter.ml" "current";;


Nie jestem z tego kodu do końca zadowolony. Ale na zadanie domowe, masz
zrozumieć go. ;P
Pozdrawiam.
-- 
Tomasz bla Fortuna
jid: bla(at)af.gliwice.pl 
pgp: 0x90746E79 @ pgp.mit.edu