Punto 1

;; DEFINICIONES
(define-struct tabla (longitud ancho espesor))
; tabla es una estructura, (make-tabla l a e), en la que l, a y e son números. Si t es de tipo tabla, (tabla-longitud t) devuelve la longitud de la tabla t medida en cms, (tabla-ancho t) devuelve el ancho de la tabla en cms, (tabla-espesor t) devuelve el espesor (o grueso) de la tabla t en cms.

;; peso: tabla, número → número
;; Calcular el peso de una tabla (primer parámetro), cuyo peso en gramos/cc está dado por el segundo parámetro.
;; Ejemplo: (peso (make-tabla 10 100 1) 1.25) → 1250 grm
(define (peso t d)
(local ((define l (tabla-longitud t))
(define a (tabla-ancho t))
(define e (tabla-espesor t))
)
(* l a e d)
)
)

Punto 2

(define (factorial n)
(if (or (= n 0) (= n 1)) 1
(* n (factorial (- n 1)))
)
)
(factorial 4)
-->
(if (or (= 4 0) (= 4 1)) 1
(* 4 (factorial (- 4 1)))
)
(if (or false false) 1
(* 4 (factorial 3))
)
(* 4 (
(if (or (= 3 0) (= 3 1)) 1
(* 3 (factorial 2))
)
)
)
(* 4 (
(if (or false false) 1
(* 3 (factorial 2))
)
)
)
( * 4
(* 3
(if (or (= 2 0) (= 2 1)) 1
(* 2 (factorial 1))
)
)
)
( * 4
(* 3
(if false 1
(* 2 (factorial 1))
)
)
)
( * 4
(* 3
(* 2 1)
)
)
(* 4 (* 3 (* 2 1)) --> (* 4 (* 3 2)) --> (* 4 6) --> 24