🚀 go-pugleaf

Dnia 21 May 2007 15:06:56 -0700
ppp <jimmie0@wp.pl> napisał(a):

> program ma zliczać ile razy w zadanym pliku wystąpił dany wyraz.
> problem w tym, że za bardzo nie chce działać...
> 
> let isspace ch = (ch =' ') || (ch ='\t') || (ch ='\n') || (ch
> ='\r') ;;
> (ciach)
> let zlicz (nazwa,wyraz) =
>  let plik = open_in nazwa
>  in
>    begin
>      let i = ref (1) in
>        while true do
>	  let odczyt = input_string plik in
>          i=i+1;
>        done;
>    end
>;;

Funkcja "zlicz" pobiera nazwę wyrazu - ale nic z nim nie robi.
Do tego "i=i+1" nie jest specjalnie legalnym wyrażeniem, imho powinno
być i:=!i + 1. Też zamiast dziwnego "let zlicz (nazwa,wyraz)" dałbym
raczej: let zlicz nazwa wyraz, po co tu krotka? Tak trochę imperatywnie
pachnie. ;d

A odpowiadając na pytanie - program nie jest skończony, abstrahując od
tego co w/w kod miałby robić lub robi.

-- 
Tomasz bla Fortuna
jid: bla(at)af.gliwice.pl 
pgp: 0x90746E79 @ pgp.mit.edu