even and odd

[newdep]

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]

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

Code Select Expand

(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]

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



(probably my loop ;-)

[cormullion]

Code Select Expand

(find 2 (factor 928841234))

[newdep]

Whaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa....



That actualy never came to my mind !



 Thanks ! ;-)

[newdep]

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





Also nice...





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