CODEWITHSUNDEEP
scheme
Harold B
Harold B

Reputation: 23

How to check if a list is even, in

I want to test if a list is even, in . Like (evenatom '((h i) (j k) l (m n o)) should reply #t because it has 4 elements.

From Google, I found how to check for odd:

(define (oddatom lst)
  (cond
    ((null? lst)       #f)
    ((not (pair? lst)) #t)
    (else (not (eq? (oddatom (car lst)) (oddatom (cdr lst)))))))

to make it even, would I just swap the car with a cdr and cdr with car?

I'm new to Scheme and just trying to get the basics.

Upvotes: 0

Views: 1593

Answers (4)

GoZoner
GoZoner

Reputation: 70165

You found odd atom using 'Google' and need even atom. How about:

(define (evenatom obj) (not (oddatom obj)))

or, adding some sophistication,

(define (complement pred)
  (lambda (obj) (not (pred obj))))

and then

(define evenatom (complement oddatom))

Upvotes: 1

uselpa
uselpa

Reputation: 18917

The equivalent of the procedure you link to, for an even number of atoms, is

(define (evenatom lst)
  (cond
    ((null? lst)       #t)
    ((not (pair? lst)) #f)
    (else (eq? (evenatom (car lst)) (evenatom (cdr lst))))))

You need to swap #t and #f, as well as leave out the not clause of the last line.

Upvotes: 0

Sylwester
Sylwester

Reputation: 48745

you are mixing a procedure to check if a list has even numbers of elements (not restricted to atoms) and a procedure that checks if there are an even number of atomic elements in the list structure. Example: ((a b) (c d e) f) has an odd number of elements (3) but an even number (6) of atoms.

If you had some marbles, how would you determine if you had an odd or even number of marbles? you could just count them as normal and check the end sum for evenness or count 1,0,1,0 or odd,even,odd,even so that you really didn't know how many marbles I had in the end, only if it's odd or even. Lets do both:

(define (even-elements-by-count x)
  (even? (length x)))

(define (even-elements-by-boolean x)
  (let loop ((x x)(even #t))
     (if (null? x)
         even
         (loop (cdr x) (not even)))))

now imagine that you had some cups in addition and that they had marbles to and you wondered the same. You'd need to count the elements on the floor and the elements in cups and perhaps there was a cup in a cup with elements as well. For this you should look at How to count atoms in a list structure and use the first approach or modify one of them to update evenness instead of counting.

Upvotes: 0

C. K. Young
C. K. Young

Reputation: 223023

No, swapping the car and cdr won't work. But you can swap the #f and #t.

Also, while the list you gave has 4 elements, what the function does is actually traverse into sublists and count the atoms, so you're really looking at 8 atoms.

Upvotes: 1

Related Questions