| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 17:39:42 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=3a2540a3310e89e8cb50f443ed2eecba421c19e3972dd4dfe48e9c6d83f9b338a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22N900W95MiWpAa0Dubk09lGG2A3injlHy%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d0236e9fbbdfa6-BLR
FDP Ejercicio 2 08 de Agosto - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;.
- ;;Autor: Carlos A Delgado
- ;;Fecha: 08 de Agosto de 2020
- ;;Contrato: buscar-mayor: lista de números -> numero
- ;;Propósito: Dada una lista de 5 números retornar el mayor
- ;;Ejemplos
- ;;(buscar-mayor (cons 1 (cons 2 (cons 3 (cons 4 (cons 5 empty))))) ) 5
- ;;(buscar-mayor (cons 15 (cons 20 (cons 83 (cons 44 (cons 5 empty))))) ) 83
- (define (buscar-mayor lst)
- (cond
- [(not (list? lst)) (error "El argumento de entrada debe ser una lista")]
- [(and
- (> (first lst) (first (rest lst)))
- (> (first lst) (first (rest (rest lst))))
- (> (first lst) (first (rest (rest (rest lst)))))
- (> (first lst) (first (rest (rest (rest (rest lst)))))))
- (first lst)]
- [(and
- (> (first (rest lst)) (first (rest (rest lst))))
- (> (first (rest lst)) (first (rest (rest (rest lst)))))
- (> (first (rest lst)) (first (rest (rest (rest (rest lst)))))))
- (first (rest lst))]
- [(and
- (> (first (rest (rest lst))) (first (rest (rest (rest lst)))))
- (> (first (rest (rest lst))) (first (rest (rest (rest (rest lst)))))))
- (first (rest (rest lst)))]
- [(>
- (first (rest (rest (rest lst)))) (first (rest (rest (rest (rest lst))))))
- (first (rest (rest (rest lst))))]
- [else
- (first (rest (rest (rest (rest lst)))))]
- ))
- (check-expect (buscar-mayor (cons 1 (cons 2 (cons 3 (cons 4 (cons 5 empty))))) ) 5)
- (check-expect (buscar-mayor (cons 15 (cons 20 (cons 83 (cons 44 (cons 5 empty))))) ) 83)
- ;;Autor: Carlos A Delgado
- ;;Fecha: 08 de Agosto de 2020
- ;;Contrato: buscar-simbolo: lista de simbolos, simbolo -> booleano
- ;;Propósito: Indicar si un símbolo está en una lista
- ;;Ejemplos
- ;;(buscar-simbolo (cons 'a (cons 'b (cons 'c (cons 'd (cons 'e empty))))) 'c) #T
- ;;(buscar-simbolo (cons 'a (cons 'b (cons 'c (cons 'd (cons 'e empty))))) 'f) #F
- (define (buscar-simbolo lst sym)
- (cond
- [(not (and (cons? lst) (symbol? sym))) (error "Debe ingresar una de lista de símbolos y un simbolo")]
- [(equal? sym (first lst)) #T]
- [(equal? sym (first (rest lst))) #T]
- [(equal? sym (first (rest (rest lst)))) #T]
- [(equal? sym (first (rest (rest (rest lst))))) #T]
- [(equal? sym (first (rest (rest (rest (rest lst)))))) #T]
- [else #F]
- ))
- (check-expect (buscar-simbolo (cons 'a (cons 'b (cons 'c (cons 'd (cons 'e empty))))) 'c) #T)
- (check-expect (buscar-simbolo (cons 'a (cons 'b (cons 'c (cons 'd (cons 'e empty))))) 'f) #F)
- ;;Recursión
- ;;Autor: Carlos A Delgado S
- ;;Fecha: 08 de Agosto de 2020
- ;;Contrato: factorial: numero -> numero
- ;;Propósito: Calcular n!
- ;;(fact 5) 120
- ;;(fact 8) 40320
- (define (fact n)
- (cond
- [(not (number? n)) (error "La entrada debe ser un número")]
- [(= n 0) 1] ;;Caso base o trivial
- [else (* n (fact (- n 1)))] ;;Caso recursivo
- ))
- (check-expect (fact 5) 120)
- (check-expect (fact 8) 40320)
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐Crypto Accounts⭐⭐
Java | 2 sec ago | 0.10 KB
-
✅⭐ Make $2500 in 15 minutes ✅ NEVER SEEN BEFO...
JavaScript | 7 sec ago | 0.24 KB
-
⭐⭐⭐GMAIL Logs (2FA disabled)⭐⭐
Java | 14 sec ago | 0.10 KB
-
⭐⭐⭐ G2A Payment Exploit ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 18 sec ago | 0.24 KB
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 25 sec ago | 0.10 KB
-
⭐✅ MAKE $2500 IN 15 MIN ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 28 sec ago | 0.24 KB
-
⭐ ✅ Free Products Method ✅ ✅ NEVER SEEN BEFOR...
JavaScript | 38 sec ago | 0.24 KB
-
⭐⭐⭐MAKE $500 IN 15 MIN⭐⭐
Java | 38 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
