| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 06:02:31 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=7b323c095f99781c3941636771ec487a5143ad31973330cfc0ea73c9f33b4440a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22L0StkTt1x_venX-pbKo_v92oVPNm6Rse%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cc262a0d856cd6-BLR
;;Autor: Paola Andrea Domínguez Vélez;;Fecha: 8/08/2020;;Contrato: buscar-ma - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;Autor: Paola Andrea Domínguez Vélez
- ;;Fecha: 8/08/2020
- ;;Contrato: buscar-mayor: lista de numeros--> numero
- ;;Proposito: Tomar una lista de 5 números y retornar el mayor de estos.
- ;;Ejemplo
- ;;(buscar-mayor (cons 3 (cons 4 (cons 5 (cons 6 (cons 1 empty)))))) 6)
- ;;(buscar-mayor (cons 9 (cons 10 (cons 50 (cons 3 (cons 5 empty)))))) 50)
- (define (buscar-mayor lstnum)
- (cond
- [(not (cons? lstnum)) (error "Debe ingresarse una lista de números")]
- [(and (> (first lstnum) (first (rest lstnum)))
- (> (first lstnum) (first (rest (rest lstnum))))
- (> (first lstnum) (first (rest (rest (rest lstnum)))))
- (> (first lstnum) (first (rest (rest (rest (rest lstnum))))))
- ) (first lstnum)]
- [(and (> (first (rest lstnum)) (first (rest (rest lstnum))))
- (> (first (rest lstnum)) (first (rest (rest (rest lstnum)))))
- (> (first (rest lstnum)) (first (rest (rest (rest (rest lstnum))))))
- ) (first (rest lstnum))]
- [(and (> (first (rest (rest lstnum))) (first (rest (rest (rest lstnum)))))
- (> (first (rest (rest lstnum))) (first (rest (rest (rest (rest lstnum))))))
- ) (first (rest (rest lstnum)))
- ]
- [(> (first (rest (rest (rest lstnum)))) (first (rest (rest (rest (rest lstnum))))))
- (first (rest (rest (rest lstnum))))
- ]
- [else (first (rest (rest (rest (rest lstnum)))))]
- ))
- (check-expect (buscar-mayor (cons 3 (cons 4 (cons 5 (cons 6 (cons 1 empty)))))) 6)
- (check-expect (buscar-mayor (cons 9 (cons 10 (cons 50 (cons 3 (cons 5 empty)))))) 50)
- (check-expect (buscar-mayor (cons 10 (cons 20 (cons 40 (cons 60 (cons 3 empty)))))) 60)
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐✅ MAKE $2500 IN 15 MIN⭐⭐⭐ O
JavaScript | 1 sec ago | 0.24 KB
-
⭐✅ Online Marketplace Exploit ✅ NEVER SEEN BE...
JavaScript | 4 sec ago | 0.24 KB
-
⭐⭐⭐MAKE $9OO INSTANTLY D A⭐⭐
Java | 4 sec ago | 0.10 KB
-
✅⭐ Make huge profits on trading ⭐⭐ 4
JavaScript | 9 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 8
JavaScript | 12 sec ago | 0.24 KB
-
⭐✅ Trading Profit Method ✅ NEVER SEEN BEFORE...
JavaScript | 14 sec ago | 0.24 KB
-
⭐⭐⭐Profit Method⭐⭐
Java | 16 sec ago | 0.10 KB
-
⭐✅ MAKE $2500 IN 15 MIN⭐⭐⭐ T
JavaScript | 20 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
