| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 14:10:46 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=1d56583cda80a1373e6422b260c8c857eaa23030af2708c8ff867da2a0baa9f3a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22noJf5gZC1zw1QuD43lm7UNSQ3-rxZxjT%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cef15c28e4f424-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
-
⭐✅ Jack's Profit Method ✅ NEVER SEEN BEF...
JavaScript | 5 sec ago | 0.24 KB
-
⭐⭐⭐Exploit 500$ in 15 Minutes⭐⭐
Java | 7 sec ago | 0.10 KB
-
⭐✅ MAKE $2500 IN 15 MIN⭐⭐⭐ 4
JavaScript | 10 sec ago | 0.24 KB
-
⭐✅ Online Marketplace Exploit ✅ NEVER SEEN BE...
JavaScript | 15 sec ago | 0.24 KB
-
⭐⭐⭐Exploit 500$ in 15 Minutes⭐⭐
Java | 18 sec ago | 0.10 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ C
JavaScript | 21 sec ago | 0.24 KB
-
⭐✅ Trading Profit Method ✅ NEVER SEEN BEFORE...
JavaScript | 24 sec ago | 0.24 KB
-
⭐⭐⭐MAKE $9OO INSTANTLY D M⭐⭐
Java | 29 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
