Guest User

racje

a guest
Sep 12th, 2019
136
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (define (calcular-serie-f num)
  2. (cond
  3. [(= num 0) 1]
  4. [(= num 1) 1]
  5. [else
  6. (local
  7. (
  8. (define(aux n)
  9. (cond
  10. [(empty? n) empty]
  11. [(= n 0) (cons 0 empty)]
  12. (else
  13. (cons n (aux (- n 1))))))
  14. )
  15. (aux 5))
  16. (aux (+ (calcular-serie-f (- num 1)) (calcular-serie-f (- num 2))))]))
  17.  
  18.  
  19.  
  20. ;
  21. ;(define(aux n)
  22. ; (cond
  23. ; [(empty? n) empty]
  24. ; [(= n 0) (cons 0 empty)]
  25. ; (else
  26. ; (cons n (aux (- n 1))))))
  27. ;
  28. ;
  29. ;
RAW Paste Data