Matematické Fórum

jak by se daly ty dva cykly nahradit rekurzí?

(define PC
  (lambda (L1 L2)
   
    (define L3(build-list (length L1) (lambda(x)(+ x 1) )))

(do ((y 0 (+ y 1)))
  ((= y  (length L2)));podmínka
   ;(display i)
      (do ((i 0 (+ i 1)))
      ((= i  (length L3)));podmínka
      ;(display i)
      (if (=(list-ref L3 i)(list-ref L2 y))(display (list-ref L1 i)))
       
       )
  )           
    )
  )
(PC  '(a b c)'(1 1 3 1)); potřebuju výstup (a a c a)