| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 17:38:16 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=fe332f90581286eeaa8124e1e3479cb8fac875331fdd33a182ec10b169943e25a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22NDEshMzon7xfN1FmPfir4wEbmoCH1ooO%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d021556c865ace-BLR
Ejemplo2 25 de Enero - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;.
- (define-struct avion (aceleracion velmax rango))
- (define-struct rango-avion (alcance-minimo alcance-maximo precision))
- (define avionA (make-avion 100 2000 (make-rango-avion 10 100 50)))
- (define avionB (make-avion 200 2000 (make-rango-avion 20 200 10)))
- (define avionC (make-avion 100 4000 (make-rango-avion 10 150 30)))
- ;;Extraer los datos
- (avion-aceleracion avionA)
- (avion-aceleracion avionB)
- (avion-aceleracion avionC)
- (avion-velmax avionA)
- (avion-velmax avionB)
- (avion-velmax avionC)
- (avion-rango avionA)
- (avion-rango avionB)
- (avion-rango avionC)
- ;(define-struct rango-avion (alcance-minimo alcance-maximo precision))
- (rango-avion-alcance-minimo (avion-rango avionA))
- (rango-avion-alcance-minimo (avion-rango avionB))
- (rango-avion-alcance-minimo (avion-rango avionC))
- (rango-avion-alcance-maximo (avion-rango avionA))
- (rango-avion-alcance-maximo (avion-rango avionB))
- (rango-avion-alcance-maximo (avion-rango avionC))
- (rango-avion-precision (avion-rango avionA))
- (rango-avion-precision (avion-rango avionB))
- (rango-avion-precision (avion-rango avionC))
- ;;Desarollar una función que reciba dos aviones y nos retorne que el que tenga más precisión
- ;;pensar:
- ;(define avionA (make-avion 100 2000 (make-rango-avion 10 100 50)))
- ;(define avionB (make-avion 200 2000 (make-rango-avion 20 200 10)))
- ;(define avionC (make-avion 100 4000 (make-rango-avion 10 150 30)))
- ;;Autor: Carlos A Delgado
- ;;Fecha: 25-Enero-2021
- ;;Contrato: avion-mas-preciso: avion,avion -> avion
- ;;Propósito: Esta función permite determinar de dos aviones cual es el más preciso
- ;;;Ejemplos
- ;Si comparo avionA y avionB ¿Cual es el más preciso? avionA
- ;Si comparo avionA y avionC ¿Cual es el más preciso? avionA
- ;Si comparo avionB y avionC ¿Cual es el más preciso? avionC
- (define (avion-mas-preciso avionx aviony)
- (cond
- [(and (avion? avionx)
- (avion? aviony))
- (if (>
- (rango-avion-precision (avion-rango avionx))
- (rango-avion-precision (avion-rango aviony)))
- avionx
- aviony
- )]
- [else (error "Las dos entradas deben ser estructuras tipo avion")]
- )
- )
- (check-expect (avion-mas-preciso avionA avionB) avionA)
- (check-expect (avion-mas-preciso avionA avionC) avionA)
- (check-expect (avion-mas-preciso avionB avionC) avionC)
- (check-error (avion-mas-preciso avionA "hola"))
Advertisement
Add Comment
Please, Sign In to add comment
-
✅⭐ Make $2500 in 15 minutes ✅ NEVER SEEN BEFO...
JavaScript | 7 sec ago | 0.24 KB
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ W
JavaScript | 12 sec ago | 0.24 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ 9
JavaScript | 20 sec ago | 0.24 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ V
JavaScript | 23 sec ago | 0.24 KB
-
⭐✅ Trading Profit Method ✅ NEVER SEEN BEFORE...
JavaScript | 29 sec ago | 0.24 KB
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ X
JavaScript | 31 sec ago | 0.24 KB
-
⭐⭐Exchange Exploit⭐⭐ Y
JavaScript | 35 sec ago | 0.24 KB
-
⭐ Instant BTC Profit Method ✅ NEVER SEEN BEFO...
JavaScript | 39 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
