| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 18:32:02 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=ade49104b7ea03090a51b3e9c034876eaf7ca31e303aabed8d42fa7e96134a6ea%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22HxExSHrUF_63CUCjixKzej9ubXCTP5TO%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d0701639ccc18d-BLR
Ejercicio 25 de Enero - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;.
- (define-struct movie (title producer))
- (define-struct boyfriend (name hair eyes phone))
- (define-struct CD (artist title price))
- (define-struct sweater (material size producer))
- ;;Autor: Carlos A Delgado
- ;;Fecha: 25 de Enero de 2021
- ;;Contrato: cambiar-artista: simbolo, CD -> CD
- ;;Propósito: Esta función permite cambiar el campo artist de una estructura CD que se ingresa
- ;;Ejemplos
- ;;simbolo = 'Madonna CD = (make-CD 'Juanes 'Colombia-querida 5000) retorna: (make-CD 'Madonna 'Colombia-querida 5000)
- ;;simbolo = 'Shakira CD = (make-CD 'Arjona 'Mira-al-cielo 4000) retorna (make-CD 'Shakira 'Mira-al-cielo 4000)
- (define (cambiar-artista cd sim)
- (cond
- [(and (symbol? sim) (CD? cd))
- (make-CD
- sim
- (CD-title cd)
- (CD-price cd))]
- [else (error "La función debe recibir un símbolo y una estructura CD")]
- ))
- (define cdA (make-CD 'Juanes 'Colombia-querida 5000))
- (check-expect (cambiar-artista cdA 'Madonna)
- (make-CD 'Madonna 'Colombia-querida 5000))
- (check-expect (cambiar-artista (make-CD 'Arjona 'Mira-al-cielo 4000) 'Shakira)
- (make-CD 'Shakira 'Mira-al-cielo 4000))
- (check-error (cambiar-artista (make-CD 'Arjona 'Mira-al-cielo 4000) "Aterciopelados"))
- (check-error (cambiar-artista "Juanes" "Aterciopelados"))
- ;;Autor: Carlos A Delgado
- ;;Fecha: 25 de Enero de 2021
- ;;Contrato: mejor-sweater: sweater, sweater -> sweater
- ;;Descripción: Esta función permite saber cual tiene más tamaño (size) de dos estructuras sweater que ingresan
- ;;Ejemplos
- ;; sweaterA: (make-sweater 'Cuero 100 'HBO) sweaterB: (make-sweater 'Lana 200 'TNT)
- ;; Retorno: (make-sweater 'Lana 200 'TNT)
- (define (mejor-sweater sweaterA sweaterB)
- (cond
- [(and (sweater? sweaterA) (sweater? sweaterB))
- (cond
- [(> (sweater-size sweaterA)
- (sweater-size sweaterB))
- sweaterA]
- [else sweaterB])]
- [else (error "Deben ingresar dos estructuras sweater")]
- ))
- (check-expect (mejor-sweater (make-sweater 'Cuero 100 'HBO) (make-sweater 'Lana 200 'TNT)) (make-sweater 'Lana 200 'TNT))
- (check-error (mejor-sweater (make-CD 'Arjona 'Mira-al-cielo 4000) (make-sweater 'Lana 200 'TNT)))
Advertisement
Add Comment
Please, Sign In to add comment
-
✅⭐ Make huge profits on trading ⭐⭐ W
JavaScript | 6 sec ago | 0.24 KB
-
⭐✅ Jack's Profit Method ✅ NEVER SEEN BEF...
JavaScript | 8 sec ago | 0.24 KB
-
⭐⭐⭐Make $15OO in 2O minutesV E⭐⭐
Java | 11 sec ago | 0.10 KB
-
⭐⭐Exchange Exploit⭐⭐ 9
JavaScript | 12 sec ago | 0.24 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 16 sec ago | 0.24 KB
-
⭐✅ Online Marketplace Exploit ✅ NEVER SEEN BE...
JavaScript | 17 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ⭐⭐ 6
JavaScript | 22 sec ago | 0.24 KB
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 22 sec ago | 0.10 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
