Public Pastes
Guest

Untitled

By: a guest on Jan 11th, 2012  |  syntax: Lisp  |  size: 0.54 KB  |  hits: 51  |  expires: Never
download  |  raw  |  embed  |  report abuse
Copied
  1. (define (wielom e lx)
  2.   (if (not (pair? e)) ; czy wyrazenie e jest wyrazeniem prostym
  3.       (if (number? e)
  4.           #t
  5.           (if (member e lx)
  6.               #t
  7.               #f))
  8.       (if (or (equal? (car e) '+) (equal? (car e) '-) (equal? (car e) '*))
  9.           (and (wielom (cadr e) lx) (wielom (caddr e) lx))
  10.           (if (equal? (car e) '/)
  11.               (and (wielom (cadr e) lx) (nzero (caddr e)))
  12.               (if (equal? (car e) '^)
  13.                   (and (wielom (cadr e) lx) (nat (caddr e)))
  14.                   #f)))))
create a new version of this paste RAW Paste Data