[CrackMonkey] Perl (fwd)

[Jay Sulzberger]

On Sun, 14 Jan 2001, Ben Brockert wrote:

> Jay Sulzberger wrote:
> > At the GOOPS prompt do
> >
> > > (define capitalize-file
> >     (lambda (in-file-name out-file-name)
> >       (loltf
> >         (map capitalize
> >             (ftlol in-file-name)) out-file-name)))
> >
> > > (capitalize-file "BIZARRO" "Bizarro")
> >
> > oo--JS.
>
> I'm not using 'GOOPS', and nether the input nor output are files. Mr.
> Bad and the FAQ agree on a good answer.
>
> Ben

Well, in that case it is even easier in GOOPS:

> (map capitalize list-of-strings)

("Acronym Bad Cookie"
 "Detonator Eagle-scout Filbert"
 "Guanylodon Hoarfrosted Indianola")

>

where list-of-strings is the list of wrongly capitalized strings.

oo--JS.