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

Reply via email to