| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 03:36:11 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=e7110c56ca4c4e2565a5cb7eb07ffed57700e6e630ec05bdf96277444513358fa%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22zUUeT5bWSTS9lUeMYN8CM8FCRsbvRgaN%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cb4fce3f9b755c-BLR
Ejemplo201Feb - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;.
- ;;Primer punto
- ;;Autor: Carlos A Delgado
- ;;Fecha: 01 de Feb de 2021
- ;;Contrato: buscar-mayor:lista de numeros -> numero
- ;;Descripción: Esta función toma una lista de números y retorna un número el cual es el mayor de la lista (asumir que los números son diferentes)
- ;;Ejemplo:
- ;;Por ejemplo (cons 1 (cons 2 (cons 3 (cons 4 (cons 5 empty))))) 5
- ;;(cons 1 (cons 4 (cons 8 (cons 2 (cons 0 empty))))) 8
- (define (buscar-mayor lst)
- (if
- (and (cons? lst) (= (length lst) 5))
- (cond
- [(and
- (> (first lst) (first (rest lst))) ;;Comparo primero con segundo
- (> (first lst) (first (rest (rest lst)))) ;;Comparo primero con tercero
- (> (first lst) (first (rest (rest (rest lst))))) ;Comparo primero con cuarto
- (> (first lst) (first (rest (rest (rest (rest lst)))))) ;Comparo con primero con quinto
- )
- (first lst)
- ]
- [(and
- (> (first (rest lst)) (first (rest (rest lst)))) ;;Segundo con tercero
- (> (first (rest lst)) (first (rest (rest (rest lst))))) ;;Segundo con cuarto
- (> (first (rest lst)) (first (rest (rest (rest (rest lst)))))) ;;Segundo con quinto
- )
- (first (rest lst))
- ]
- [(and
- (> (first (rest (rest lst))) (first (rest (rest (rest lst))))) ;;Tercero con cuarto
- (> (first (rest (rest lst))) (first (rest (rest (rest (rest lst)))))) ;Tercero con quinto
- )
- (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)))))]
- )
- (error "La lista de debe ser de tamaño 5")
- )
- )
- ;;pruebas
- (check-expect (buscar-mayor (cons 1 (cons 2 (cons 3 (cons 4 (cons 5 empty)))))) 5)
- (check-expect (buscar-mayor (cons 1 (cons 4 (cons 8 (cons 2 (cons 0 empty)))))) 8)
- ;;Autor: Carlos A Delgado
- ;;Fecha: 01 de Feb de 2021
- ;;COntrato: busca-simbolo lista de simbolos, simbolo -> booleano
- ;;Próposito: Esta función indica si hay un símbolo en una lista de tamaño 5
- ;;Ejemplos
- ;;(cons 'perro (cons 'gato (cons 'mula (cons 'vaca (cons 'lobo empty))))) 'vaca #true
- ;;(cons 'perro (cons 'gato (cons 'mula (cons 'vaca (cons 'lobo empty))))) 'Vaca #false
- (define (busca-simbolo lst sym)
- (if
- (and (list? lst) (symbol? sym) (= (length lst) 5))
- (if
- (or
- (symbol=? (first lst) sym)
- (symbol=? (first (rest lst)) sym)
- (symbol=? (first (rest (rest lst))) sym)
- (symbol=? (first (rest (rest (rest lst)))) sym)
- (symbol=? (first (rest (rest (rest (rest lst))))) sym))
- #true
- #false
- )
- (error "Debe ingresar una lista de tamaño 5 y un símbolo")
- )
- )
- ;;PRuebas
- (check-expect (busca-simbolo (cons 'perro (cons 'gato (cons 'mula (cons 'vaca (cons 'lobo empty))))) 'vaca) #true)
- (check-expect (busca-simbolo (cons 'perro (cons 'gato (cons 'mula (cons 'vaca (cons 'lobo empty))))) 'Vaca) #false)
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐GMAIL Logs (2FA disabled)⭐⭐
Java | 5 sec ago | 0.10 KB
-
⭐✅ MAKE $2500 IN 15 MIN⭐⭐⭐ G
JavaScript | 8 sec ago | 0.24 KB
-
⭐⭐⭐MAKE $9OO INSTANTLY D G⭐⭐
Java | 17 sec ago | 0.10 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ B
JavaScript | 20 sec ago | 0.24 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ W
JavaScript | 22 sec ago | 0.24 KB
-
⭐⭐⭐ChangeNOW Exploit⭐⭐
Java | 29 sec ago | 0.10 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ E
JavaScript | 31 sec ago | 0.24 KB
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ V
JavaScript | 32 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
