[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [ANN] hyper search engine 0.2

From: Amirouche Boubekki
Subject: Re: [ANN] hyper search engine 0.2
Date: Sun, 19 Jun 2016 20:55:08 +0200
User-agent: Roundcube Webmail/1.1.2

On 2016-06-19 11:49, Amirouche Boubekki wrote:

(define* ((xor* a b) uid)
  (if (procedure? a)
      (if (procedure? b)
          ((xor* (a uid) (b uid)) uid)
          ((xor* (a uid) b) uid))
      (if (procedure? b)
          ((xor* a (b uid)) uid)
          (xor a b))))

That procedure is buggy, since we can assume that (a uid) returns a boolean, there is no need for the extra xor* call.

The following does what is expected thanks to ijp:

(define ((xor* . fs) uid)
 (fold logxor 0 (map (lambda (f) (if (procedure? f) (f uid) f)) fs)))

Amirouche ~ amz3 ~

reply via email to

[Prev in Thread] Current Thread [Next in Thread]