even and odd

newdep · Post by **newdep** » Fri Dec 08, 2006 10:50 pm

Hi Lutz,

How about two new functions?

'even, which determines the even numbers from a value or a list
'odd, which determines the uneven numbers from a value or list

like ->

(map odd '( 1 2 3 4 5 6 7 8 9))
>(true nil true nil true nil true nil true)

(even 14)
> true

(odd '(3 5 8))
>(3 5)

(clean odd '( 3 5 7 4 8 ))
>( 4 8 )

Norman.

cormullion · Post by **cormullion** » Sat Dec 09, 2006 4:04 pm

I don't know - does Lutz implement functions that are easy enough to do in newLISP anyway?

Code: Select all

(map (fn (n) (!= 0 (mod n 2))) '(1 2 3 4 5))

Or is there something that would be better done in the source?

newdep · Post by **newdep** » Sat Dec 09, 2006 4:08 pm

well i found that calculating if int 928841234 is 'even takes some time

(probably my loop ;-)

cormullion · Post by **cormullion** » Sat Dec 09, 2006 4:10 pm

Code: Select all

(find 2 (factor 928841234))

newdep · Post by **newdep** » Sat Dec 09, 2006 4:13 pm

Whaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa....

That actualy never came to my mind !

Thanks ! ;-)

newdep · Post by **newdep** » Sat Dec 09, 2006 4:17 pm

Peter Just posten me this -> (% 12394786 2)

Also nice...

What was I thinking?? I was rebuilding a loop that calculated this... Mmmm..