Great!....thank you very much indeed! Best Regards Dean On 14 December 2016 at 08:03, Alexander Burger <a...@software-lab.de> wrote:
> On Wed, Dec 14, 2016 at 07:18:42AM +0000, dean wrote:
> > : (setq LstA (chop 'dOg))
> > -> ("d" "O" "g")
> > : (pick '((Ch) (and (= Ch (uppc Ch)) Ch)) LstA)
> > -> "O"
> >
> > but wonder if there's a slicker way?
>
> Yes:
> : (find upp? (chop "dOg"))
> -> "O"
>
> - Alex
> --
> UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
>
