| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 19:48:21 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=251d40f4a506d5dacf1f4e41ae3f07e29313f697882350670a066bb669892bc7a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22RSAdT6pwdEbBI1aRFmxVbFQXdVzxKV9Z%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d0dfe208868087-BLR
(define-struct empanada (gramos-carne costo gramos-grasa))(define-struct chunc - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define-struct empanada (gramos-carne costo gramos-grasa))
- (define-struct chunchulo (gramos-carne costo-unidad unidades-compradas))
- (define-struct papa-rellena (gramos-carne costo))
- (define-struct chorizo (gramos-carne costo color))
- (define empanada1 (make-empanada 58 700 60))
- (define chunchulo1 (make-chunchulo 90 2000 15))
- (define papa-rellena1 (make-papa-rellena 40 800))
- (define chorizo1 (make-chorizo 125 1500 'cafe-caca))
- (define lista1 (cons empanada1 (cons chunchulo1 (cons papa-rellena1 (cons chorizo1 empty)))))
- ;Autor: Juan Felipe Arango Guzman
- ;Fecha: 14/08/2020
- ;Contrato: descuentoempanada: listafritanga, numero -> lista
- ;Proposito: Crear una lista con los desceuntos indicados
- ;Ejemplos:
- ;Definicion:
- (define (descuentoempanada lista num)
- (cond
- [(not (and (list? lista) (number? num))) (error "el primer argumento debe ser una lista y el segundo debe ser un numero")]
- [(or (< num 1) (> num 99)) lista]
- [(empty? lista) empty]
- [(empanada? (first lista))
- (cons (make-empanada
- (empanada-gramos-carne (first lista))
- (- (empanada-costo (first lista)) (* (/ num 100) (empanada-costo (first lista))))
- (empanada-gramos-grasa (first lista)))
- (descuentoempanada (rest lista) num))]
- [(chunchulo? (first lista))
- (cons (make-chunchulo
- (chunchulo-gramos-carne (first lista))
- (- (chunchulo-costo-unidad (first lista)) (* (/ num 100) (chunchulo-costo-unidad (first lista))))
- (chunchulo-unidades-compradas (first lista)))
- (descuentoempanada (rest lista) num))]
- [(papa-rellena? (first lista))
- (cons (make-papa-rellena
- (papa-rellena-gramos-carne (first lista))
- (- (papa-rellena-costo (first lista)) (* (/ num 100) (papa-rellena-costo (first lista)))))
- (descuentoempanada (rest lista) num))]
- [(chorizo? (first lista))
- (cons (make-chorizo
- (chorizo-gramos-carne (first lista))
- (- (chorizo-costo (first lista)) (* (/ num 100) (chorizo-costo (first lista))))
- (chorizo-color (first lista)))
- (descuentoempanada (rest lista) num))]
- [else (error "No hay productos de fritanga en la lista")]
- )
- )
Advertisement
Add Comment
Please, Sign In to add comment
-
📌 Swapzone +37% glitch
JavaScript | 2 sec ago | 0.24 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 3 sec ago | 0.25 KB
-
✅⭐ Make huge profits on trading ⭐⭐ O
JavaScript | 8 sec ago | 0.25 KB
-
📝 Exchange profit method
JavaScript | 11 sec ago | 0.24 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 17 sec ago | 0.25 KB
-
⭐ Free Crypto Method ⭐
JavaScript | 20 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ P
JavaScript | 26 sec ago | 0.25 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 7
JavaScript | 28 sec ago | 0.25 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
