| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 12:27:49 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=642cd088237f146c69e8861035fe19a1b113e54721df4c5dfe039c806d57ee58a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22_WQbDcw7LUoBu3nrgV-Oec8W14auE13A%22%3B%7D; HttpOnly; Path=/
cf-ray: 98ce5a916a2da403-BLR
FDP Ejercicio - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; Una tienda maneja productos de acuerdo a la siguiente
- ; clasificacion
- ;
- ; - Verduras: nombre (simbolo), precio por kilo (numero)
- ; - Confiteria: nombre(simbolo), marca(simbolo), precio por unidad (numero)
- ; - Carne: nombre(simbolo), tipo-corte, precio por kilo(numero)
- ;
- ; Tipo de corte: Nombre (simbolo), nombre-animal (simbolo)
- ;
- ; Se desea crear una función llamada calcular-venta la cual
- ; recibe una estructura tipo producto (verdura o confiteria o
- ; carne) y una cantidad a comprar (numero) y retorna el valor
- ;;Primer paso definir las estructuras
- (define-struct verdura (nombre preciokilo))
- (define-struct confiteria (nombre marca preciounidad))
- (define-struct carne (nombre tipocorte preciokilo))
- (define-struct tipo-corte (nombre nombre-animal))
- ;;Definir algunos productos
- (define zanahoria (make-verdura 'zanahoria 4000))
- (define pastel (make-confiteria 'pastel 'bimbo 5000))
- (define lomo (make-carne 'carne (make-tipo-corte 'lomo 'cerdo) 3000))
- ;;Autor: Oscar Fernando Rivera,202067730
- ;;Fecha: 25 de Enero de 2021
- ;;Contrato: calcular-venta: producto, numero -> numero
- ;;Ejemplos
- ;;producto zanahoria Cantidad: 10, 40000
- ;;producto pastel Cantidad 10, 50000
- ;;producto lomo Cantidad, 100 300000
- (define (calcularventa producto cantidad)
- (cond
- [(verdura? producto)
- (* cantidad (verdura-preciokilo producto))]
- [(confiteria? producto)
- (* cantidad (confiteria-preciounidad producto))]
- [(carne? producto)
- (* cantidad (carne-preciokilo producto))]
- [else (error "ingrese un producto")]
- )
- )
- ;;PRueba
- (check-expect (calcularventa zanahoria 10) 40000)
- (check-expect (calcularventa pastel 10) 50000)
- (check-expect (calcularventa lomo 100) 300000)
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐✅ MAKE $2500 IN 15 MIN⭐⭐⭐ 6
JavaScript | 0 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ✅ NEVER SEEN...
JavaScript | 2 sec ago | 0.24 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ P
JavaScript | 7 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 3
JavaScript | 11 sec ago | 0.24 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 13 sec ago | 0.24 KB
-
⭐⭐Exchange Exploit⭐⭐ H
JavaScript | 18 sec ago | 0.24 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ 3
JavaScript | 22 sec ago | 0.24 KB
-
✅⭐ Make $2500 in 15 minutes ✅ NEVER SEEN BEFO...
JavaScript | 23 sec ago | 0.24 KB
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
