Challenge 5

[Patrick_35]

Pour ceux qui savent résoudre rien qu'en lisant ce nouveau défit, je leurs demande de bien vouloir patienter jusqu'à Lundi soir avant de donner leur solution afin de permettre aux autres de rechercher. Je pense qu'il est d'un niveau intermédiaire

 

J'ai une liste qui se compose de cette manière

(setq lst '(1 2 3 5 7 10 11 12 14 20 30 31 33 37 39 40 44 76 80))

J'aimerai un liste qui ne contienne que les chiffres pair

 

@+

[Tramber]

Enfin un challenge pour lequel j'ai la réponse du premier coup, et sans papier ni ordi !

[Patrick_35]

oui, bah pas beaucoup de réponses :(

Soit c'est trop dur pour ceux qui comment à maitriser le lisp, ou trop facile pour ceux qui connaissent

 

@+

[Bred]

Salut,

On est lundi soir, il est assez tard, et demain je n'aurais pas le temps de proposer ma solution, donc je commence :

(defun GetPair (lst / l)
(foreach n lst
 (if (equal (fix (* n 0.5)) (* n 0.5))
   (setq l (append l (list n)))
   )
 )
)

... à vous maintenant !....

[Patrick_35]

Salur Bred

Tu peux éviter le foreach, comme le repeat et while ;)

 

@+

[bonuscad]

et si on ce limite aux entiers valides comme pour ta liste, toujours avec un foreach

 

((lambda ( / l) (foreach n '(1 2 3 5 7 10 11 12 14 20 30 31 33 37 39 40 44 76 80) (if (zerop (rem n 2)) (setq l (cons n l))) (reverse l))))

[Bred]

Tu peux éviter le foreach, comme le repeat et while

Ben voyons, pourquoi faire compliqué ??? :P

(vl-remove-if-not '(lambda (x) (equal (fix (* x 0.5)) (* x 0.5))) lst)

merci !

[ElpanovEvgeniy]

Salut! Ma variante. :)

(vl-remove-if-not '(lambda (x) (zerop(logand x 1))) lst) 

[Patrick_35]

Bravo à vous tous :D

Je n'avais pas pensé au logand et au rem pour déterminer un nombre pair. Je faisais exactement comme Bred. Comme quoi, ces challenges.... ;)

 

@+

 

[(gile)]

Salut,

 

(vl-remove-if-not '(lambda (n) (zerop (rem n 2))) lst) 

 

Edit : je n'avais pas bien lu le message de Patrick_35 ci-dessus, mais comme je me retenais de la poster depuis le début, je la laisse.

 

[Edité le 22/5/2007 par (gile)]

[Bred]

Comme quoi, ces challenges....

c'est génial !!! .... mais personnellement je délaisse le reste du forum...

c'est trop prenant !!!!

[ElpanovEvgeniy]

 (vl-remove-if-not '(lambda (x) (zerop(boole 1 x 1))) lst)
(vl-remove-if '(lambda (x) (= x (logior x 1))) lst)
(vl-remove-if-not '(lambda (x) (= x (* (/ x 2) 2))) lst)

[ElpanovEvgeniy]

:D

 

(vl-remove-if '(lambda (x) (wcmatch (rtos (/ x 2.) 2 2) "*.[1-9]*")) lst) 

[Patrick_35]

je vois que tu t'amuses ;) et que tu nous montre par la même occasion toutes les subtilités du lisp.

Merci :D

 

@+

[ElpanovEvgeniy]

je vois que tu t'amuses ;) et que tu nous montre par la même occasion toutes les subtilités du lisp.

Merci :D

 

@+

 

Oui, cela ainsi.

Pour chaque devinette, on peut regarder de diffйrentes parties...

 

(vl-remove-if '(lambda (x) (wcmatch (itoa x) "*[13579]")) lst)