Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Divisible by 3 or 5, in lisp

Name: Anonymous 2007-08-12 17:20 ID:RyfBwU/E

(lambda (n) (or (= 0 (mod n 3)) (= 0 (mod n 5))))

how on earth do you write this in lisp, I mean better than I have here.. surely it must be possible?

Rube Goldberg devices are definitely acceptable if it makes the final code better.. hope you have some ideas /prog/

Name: Anonymous 2007-08-13 2:55 ID:Heaven

(defun % (d)
 (
lambda (n) (= 0 (mod n d))))


(defun all (&rest predicates)
 (
lambda (x)
  (
every (function identity)
   (
mapcar (function (lambda (p) (funcall p x))) predicates))))


(all (% 3) (% 5))


Newer Posts
Don't change these.
Name: Email:
Entire Thread Thread List