| CARVIEW |
Select Language
HTTP/2 200
date: Sun, 12 Oct 2025 03:54:21 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=30376115381a27789c9500af8ae8d3e289a189381ac3c122b53616be8cbdb4eea%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22KhDgvpSRMm6sBQoNOAZWbwLD3IQBevQU%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d3a7cafccec467-BLR
FDP Ejemplo 3 - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;Autor: Carlos A Delgado
- ;;Fecha: 22 de Febrero de 2021
- ;;Contrato: buscar-numero: numero, lista de numero -> booleano
- ;;Propósito: Indicar si un número está en una lista
- ;;Ejemplos
- ;;listaA = (cons 1 (cons 2 (cons 3 (cons 4 (cons 5 (cons 6 empty))))))
- ;;elemento = 4 retornar #true
- ;;elemento = -5 retorna #false
- (define (buscar-numero num lst)
- (cond
- [(empty? lst) #false]
- [(= (first lst) num) #true]
- [else (buscar-numero num (rest lst))]
- ))
- (define listaA (cons 1 (cons 2 (cons 3 (cons 4 (cons 5 (cons 6 empty)))))))
- (check-expect (buscar-numero 4 listaA) #t)
- (check-expect (buscar-numero -5 listaA) #f)
- ;;buscar-persona-nombre
- (define-struct persona (nombre edad cargo))
- (define listaPersonas
- (cons (make-persona "Juan" 18 "Gerente")
- (cons (make-persona "Diana" 22 "Administradora")
- (cons (make-persona "Pedro" 35 "Oficial")
- (cons (make-persona "María" 20 "Operadora")
- (cons (make-persona "Carlos" 12 "Vendedor") empty))))))
- ;;Autor: Carlos A Delgado
- ;;Fecha: 22 de Feb de 2021
- ;;Contrato: buscar-persona-nombre: lista de personas, string -> booleano
- ;;Propósito: Esta función indica si en una lista de personas, hay al menos una persona con un nombre dado
- ;;Ejemplo
- ;;listaPersonas
- ;;nombre= Pedro #true
- ;;nomber= Abelardo #falso
- (define (buscar-persona-nombre lst nom)
- (cond
- [(empty? lst) #f]
- [(string=? (persona-nombre (first lst)) nom) #t]
- [else (buscar-persona-nombre (rest lst) nom)]
- )
- )
- (check-expect (buscar-persona-nombre listaPersonas "Pedro") #true)
- (check-expect (buscar-persona-nombre listaPersonas "Abelardo") #false)
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐GMAIL Logs (2FA disabled)⭐⭐
Java | 1 sec ago | 0.10 KB
-
⭐⭐⭐MAKE $900 INSTANTLY⭐⭐
Java | 6 sec ago | 0.10 KB
-
⭐⭐⭐ChangeNOW Exploit⭐⭐
Java | 14 sec ago | 0.10 KB
-
⭐⭐⭐Instant Profit Method⭐⭐
Java | 18 sec ago | 0.10 KB
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 24 sec ago | 0.10 KB
-
⭐⭐⭐Exchange Exploit T 3⭐⭐
Java | 29 sec ago | 0.10 KB
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 37 sec ago | 0.10 KB
-
⭐⭐⭐Exploit 500$ in 15 Minutes⭐⭐
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
