From: Eric GIRAUD
Subject: count ok
Date: Wed, 18 Dec 2002 11:57:23 +0000
Message-ID: <3E0062A2.24E67889@utbm.fr>

i am searching a solution with lisp for the "count ok" problem

• Re: count ok Christopher C. Stacy
  • Re: count ok Coby Beck

From: Christopher C. Stacy
Subject: Re: count ok
Date: Wed, 18 Dec 2002 18:28:34 +0000
Message-ID: <un0n3ji5r.fsf@dtpq.com>

>>>>> On Wed, 18 Dec 2002 12:57:23 +0100, Eric GIRAUD ("Eric") writes:
 Eric> i am searching a solution with lisp for the "count ok" problem

I have no idea what the "count ok" problem is, but perhaps if you post
a description of the problem and your attempt in Lisp so far, someone
might help you.

From: Coby Beck
Subject: Re: count ok
Date: Thu, 19 Dec 2002 00:02:20 +0000
Message-ID: <atr25a$1i13$1@otis.netspace.net.au>

"Christopher C. Stacy" <······@dtpq.com> wrote in message
··················@dtpq.com...
> >>>>> On Wed, 18 Dec 2002 12:57:23 +0100, Eric GIRAUD ("Eric") writes:
>  Eric> i am searching a solution with lisp for the "count ok" problem
>
> I have no idea what the "count ok" problem is, but perhaps if you post
> a description of the problem and your attempt in Lisp so far, someone
> might help you.
>

CL-USER 7 >
(defun count-ok (&rest args)
  (let ((result (apply #'count args)))
    (values result (unless (zerop result) "ok"))))
COUNT-OK

CL-USER 8 > (count-ok 'foo '(foo fie fum foo bar))
2
"ok"

CL-USER 9 > (count-ok 'ouch '(foo fie fum foo bar))
0
NIL


--
Coby Beck
(remove #\Space "coby 101 @ bigpond . com")

ps sorry Eric, just havin' some fun! ;)