fbanados

#lang plai

(print-only-errors #t)
;fibs : int -> int
;Retorna el n-esimo numero de fibonacci
(define (fibs n)
  (cond
    ((equal? n 1) 0)
    ((equal? n 2) 1)
    (else (+ (fibs (- n 1)) (fibs (- n 2)))))

fbanados

#lang plai
(print-only-errors #t)

(define-type AE
  [num (n number?)]
  [bool (n boolean?)]
  [bool-and (lhs AE?) (rhs AE?)]
  [bool-or (lhs AE?) (rhs AE?)]
  [bool-not (s AE?)]
  [add (lhs AE?)