SHARE
TWEET

racje

a guest Sep 12th, 2019 112 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top