LISP.разделить список на 2, в первый поместить четные элементы исходного списка, во второй - нечетные

[mashik2503]

на прологе у меня получилось вот так

domains
il=integer*
predicates
razdel(il,il,il)
clauses
razdel([Y],[Y],[]):-!.
razdel([Y,X],[Y],[X]):-!.
razdel([Y,X|Tail],[Y|Tail1],[X|Tail2]):-razdel(Tail,Tail1,Tail2).

например: goal: razdel([1,2,3,4,5,6,7,8]L,M)
L=[1,3,5,7], M=[2,4,6,8]

Теперь надо эту же задачу на лиспе. Чего я сделать не могу, так как лисп не знаю совсем!!!!! ПОМОГИТЕ ПОЖАЛУЙЧТА!!!!!!!!!!!!!!

[netrino]

Ну, самым простым, на мой взгляд, будет что-то такое:

(defun razdel (a-list)
  (let (evens odds)
    (dolist (x a-list)
      (if (evenp x)
          (push x evens)
          (push x odds)))
    (list evens odds)))

вот пример http://ideone.com/jNNqZ