| CARVIEW |
Select Language
HTTP/2 200
date: Sun, 12 Oct 2025 07:50:32 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=13ffea2599a503eb13e1e4c966126ec971f9d1b00adc289195cad9fac8ed05aea%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%227bPlTNUoTU3Stw7Z2TwmT8-arJQG4qWs%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d501c38a99a9b7-BLR
Ejemplo FDP 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: suma-lista: lista de numeros -> numero
- ;;Propósito: Toma una lista de 4 números y nos retorna su suma
- ;;Ejemplos
- ;;(suma-lista (cons 1 (cons 2 (cons 3 (cons 4 empty)))) ) 10
- ;;(suma-lista (cons -1 (cons 1 (cons 4 (cons -6 empty)))) ) -2
- (define (suma-lista lst)
- (if
- (cons? lst)
- (+ (first lst) (first (rest lst)) (first (rest (rest lst))) (first (rest (rest (rest lst)))))
- (error "Debe ingresarse una lista de números")))
- (check-expect (suma-lista (cons 1 (cons 2 (cons 3 (cons 4 empty)))) ) 10)
- (check-expect (suma-lista (cons -1 (cons 1 (cons 4 (cons -6 empty)))) ) -2)
- ;;Autor: Carlos A Delgado
- ;;Fecha: 08 de Agosto de 2020
- ;;Contrato: hay-mula?: lista de símbolos -> booleano
- ;;Propósito: Esta función sirve para saber si en una lista de símbolos
- ;;Ejemplos
- ;;(hay-mula? (cons 'perro (cons 'gato (cons 'mula (cons 'caballo empty)))) ) #T
- ;;(hay-mula? (cons 'perro (cons 'gato (cons 'vaca (cons 'caballo empty)))) ) #F
- (define (hay-mula? lst)
- (cond
- [(not (cons? lst)) (error "La entrada debe ser una lista de símbolos")]
- [(equal? (first lst) 'mula) #T]
- [(equal? (first (rest lst)) 'mula) #T]
- [(equal? (first (rest (rest lst))) 'mula) #T]
- [(equal? (first (rest (rest (rest lst)))) 'mula) #T]
- [else #F]
- ))
- (check-expect (hay-mula? (cons 'perro (cons 'gato (cons 'mula (cons 'caballo empty)))) ) #T)
- (check-expect (hay-mula? (cons 'perro (cons 'gato (cons 'vaca (cons 'caballo empty)))) ) #F)
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐MAKE $9OO INSTANTLY D M⭐⭐
Java | 3 sec ago | 0.10 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 5 sec ago | 0.25 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ M
JavaScript | 14 sec ago | 0.25 KB
-
⭐⭐⭐GMAIL Logs (2FA disabled)⭐⭐
Java | 14 sec ago | 0.10 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ 3
JavaScript | 23 sec ago | 0.25 KB
-
⭐⭐⭐MAKE $500 IN 15 MIN⭐⭐
Java | 25 sec ago | 0.10 KB
-
⭐✅ Swapzone Glitch ✅ Working ⭐⭐ U
JavaScript | 32 sec ago | 0.25 KB
-
⭐⭐⭐MAKE $9OO INSTANTLY D G⭐⭐
Java | 37 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
