Clojure Разработка программы, выводящей список чисел

(defun rand (r n)
  (loop for i from 1 to n
        collect (random r)))
 
(defun even (w &aux (a (car w)))
  (cond ((null w) nil)
        ((evenp a) (cons a (even (cdr w))))
        (t (even (cdr w)))))
 
(defun rand-even (r n)
  (even (rand r n)))
 
> (rand-even 10 20)
(6 0 0 2 8 8 0 0 2 2)

(defun rand (r n)
  (loop for i from 1 to n
        collect (random r)))
 
(defun even (w &aux (a (car w)))
  (cond ((null w) nil)
        ((evenp a) (cons a (even (cdr w))))
        (t (even (cdr w)))))
 
(defun rand-even (r n &aux (v (rand r n)))
  (values v (even v)))
 
> (rand-even 10 20)
(8 3 5 2 8 6 5 3 4 8 0 2 7 6 7 5 4 7 5 9)
(8 2 8 6 4 8 0 2 6 4)

(defun rand (r n)
  (loop repeat n collect (random r)))
 
(defun even (w &aux (a (car w)))
  (cond ((null w) nil)
        ((evenp a) (cons a (even (cdr w))))
        (t (even (cdr w)))))
 
(defun rand-even (r n &aux (v (rand r n)))
  (values v (even v)))
 
> (rand-even 10 20)
(1 4 7 7 5 9 6 6 4 5 8 0 5 2 0 5 0 2 3 4)
(4 6 6 4 8 0 2 0 0 2 4)

(defun rand (r n)
  (loop repeat n collect (random r)))
 
(defun even (w &aux (a (car w)))
  (when w (if (evenp a)
              (cons a (even (cdr w)))
              (even (cdr w)))))
 
(defun rand-even (r n &aux (v (rand r n)))
  (values v (even v)))
 
> (rand-even 10 20)
(5 1 2 3 4 1 2 4 8 1 1 0 1 9 0 9 7 0 9 5)
(2 4 2 4 8 0 0 0)

(defun rand-even (r n &aux (v (loop repeat n collect (random r))))
  (values v (labels ((even (v)
                       (when v (if (evenp (car v))
                                   (cons (car v) (even (cdr v)))
                                   (even (cdr v))))))
              (even v))))
 
> (rand-even 10 20)
(1 7 8 8 4 8 4 9 7 8 1 6 4 3 0 6 1 4 1 4)
(8 8 4 8 4 8 6 4 0 6 4 4)

(defun rand-even (r n &aux (v (loop repeat n collect (random r))))
  (values v (labels ((even (v &aux (a (car v)))
                       (when v (if (evenp a)
                                   (cons a (even (cdr v)))
                                   (even (cdr v))))))
              (even v))))
 
> (rand-even 10 20)
(3 3 6 2 1 6 4 8 9 0 3 3 7 8 7 1 3 6 1 9)
(6 2 6 4 8 0 8 6)

(defun rand-even (r
                  n
                  &aux
                  (v (loop repeat n
                           collect
                           (random r))))
  (values v
          (labels ((even (v
                          &aux
                          (a (car v))
                          (d (cdr v)))
                     (when v
                       (if (evenp a)
                           (cons a (even d))
                           (even d)))))
            (even v))))
 
> (rand-even 10 20)
(0 9 5 8 1 8 8 4 8 5 8 2 1 3 3 9 5 4 8 4)
(0 8 8 8 4 8 8 2 4 8 4)

;racket
(define (my-filter pr lst (acc null))
  (if (null? lst) acc
      (my-filter pr (cdr lst) (if (pr (car lst)) (append acc (list (car lst))) acc))))
 
(define (foo lst) (printf ";~a~n;~a~n" lst (my-filter even? lst)))
 
(foo (range 10))
;(0 1 2 3 4 5 6 7 8 9)
;(0 2 4 6 8)

(defun get-even (lst)
  (cond ((null lst) nil)
        ((evenp (car lst)) (cons (car lst) (get-even (cdr lst))))
        (t (get-even (cdr lst)))))
 
==> get-even
 
(get-even (mkrnd-list 20 100))
 
==> (88 40 4 48 78 12 30 86 62)

(defn task [r n]
  (letfn [(rand-lazyseq [r n]
            (repeatedly r (partial rand-int n)))
          (result [coll]
            (loop [[x & xs :as all] coll
                   acc nil]
              (cond (empty? all) (reverse acc)
                    (even? x) (recur xs (cons x acc))
                    :else (recur xs acc))))]
    (result (rand-lazyseq r n))))
;; => #'user/task
 
(task 10 1000)
;; => (800 48 204 672 318)
(task 10 Integer/MAX_VALUE)
;; => (573780814 768963368 2014271068 912692104 594393574 2048837792)