newlispfanclub.alh.net

Posted: **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.

Posted: **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?

Posted: **Sat Dec 09, 2006 4:08 pm**

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

(probably my loop ;-)

Posted: **Sat Dec 09, 2006 4:10 pm**

Code: Select all

(find 2 (factor 928841234))

Posted: **Sat Dec 09, 2006 4:13 pm**

Whaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa....

That actualy never came to my mind !

Thanks ! ;-)

Posted: **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..

newlispfanclub.alh.net

even and odd

even and odd