Hi Alex,
since I notice that getpwent seems to disbehave under Windows WSL I'll
leave the following out if you agree:
(let (User (clip (in NIL (line T))) Code (soundex User))
(while (native "@" "getpwent" '(S S I I S S S)) # 'native' only in
64-bits (let Lst @
(when (or (= Code (soundex (car Lst))) (= Code (soundex (get Lst 5))))
(println Lst) ) ) ) )
2018-06-02 14:58 GMT+02:00 Alexander Burger <[email protected]>:
> Hi Arie,
>
> > just started on the "Soundex Matching" example here:
> > http://pleac.sourceforge.net/pleac_picolisp/strings.html
> >
> > It looks like a nice program, however, it doen't state what kind of input
> > it expects :)
>
> Typically personal names, but can be any string:
>
> : (soundex "Hello World")
> -> "H464"
>
> : (soundex "Miller")
> -> "M460"
>
>
> > I know about soundex, but my current knowledge of PicoLisp is not yet
> > advanced enough.
>
> Note that PicoLisp comes with its own soundex function, used in database
> applications. It uses a different algorithm however:
>
> : (ext:Snx "Hello World")
> -> "HLFRLT"
>
> : (ext:Snx "Miller")
> -> "MLR"
>
> ♪♫ Alex
>
> --
> UNSUBSCRIBE: mailto:[email protected]?subject=Unsubscribe
>
