Question

How would you write a code that will remove the perfect squares from a list, using only filter and integer? which I believe is built in scheme. For example. (take-out-perfect-squares ‘(1 2 9 16 5 64)) should return (2 5) because the square root of everything else in that list returns an integer. Thanks!

Answer 1

(define (take-out-perfect-squares l)
  (cond ((null? l) '())
        ((integer? (sqrt (car l)))
         (take-out-perfect-squares (cdr l)))
        (else
         (cons (car l) (take-out-perfect-squares (cdr l))))))