🚀 go-pugleaf

On 22 Maj, 01:27, Tomasz bla Fortuna <b...@thera.be> wrote:
> Dnia 21 May 2007 15:06:56 -0700
> ppp <jimm...@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
>
>  signature.asc
> 1KPobierz

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;)