Racket Práctica 4.1

        EJERCICIO 5)

(define (contiene? cadena lista) (cond [(empty? lista) #false]
                                       [(string=? (first lista) cadena) #true]
                                       [else (contiene? cadena (rest lista))]) )

; (contiene? "Laura" (cons "a" (cons "b" (cons "Laura" '())))) -> TRUE
; (contiene? "dat boi" (cons "a" (cons "b" (cons "Laura" '())))) -> FALSE

EJERCICIO 7)

(define (suma lista) (cond [(empty? lista) 0]
                           [else (+ (first lista) (suma (rest lista)))]))


EJERCICIO 8)

(define (pos? in_peace) (cond [(empty? in_peace) #true]
                              [else (and (>= (first in_peace) 0) (pos? (rest in_peace)))]) )

; (pos? (list 1 2 3)) -> TRUE
; (pos? (list 1 2 -3)) -> FALSE

(define (checked-suma lista) (cond
                               [(not (pos? lista)) "Error: Debe ser una lista de números positivos."]
                               [else (suma lista)]))

EJERCICIO 9)

(define (todos-verdaderos lista) (cond
                                   [(empty? lista) #true]
                                   [else (and (first lista) (todos-verdaderos (rest lista)))]) )

;(todos-verdaderos (list #t #t #t #t #t #t #t #t #t #t #t)) -> TRUE
;(todos-verdaderos (list #t #t #t #t #t #t #t #t #t #t #f)) -> FALSE


(define (uno-verdadero lista) (cond
                                   [(empty? lista) #false]
                                   [else (or (first lista) (uno-verdadero (rest lista)))]) )

;(uno-verdadero (list #f #f #f #f #f)) -> FALSE
;(uno-verdadero (list #f #f #t #f #f)) -> TRUE

EJERCICIO 10)

(define (cat lista) (cond
                      [(empty? lista) ""]
                      [else (string-append (first lista) (cat (rest lista)) )]) )


(cat (list "here " "comes " "dat " "boi"))

EJERCICIO 11)

(define (cantidad-elementos lista) (cond
                      [(empty? lista) 0]
                      [else (+ 1 (cantidad-elementos (rest lista)) )]) )


;(cantidad-elementos (list "here " "comes " "dat " "boi")) -> 4

EJERCICIO 12)

(define (promedio lista) (/ (suma lista) (cant-elementos lista)))

EJERCICIO 13)

(define (mayores lista numero) (cond [(empty? lista) '()]
                                     [(> (first lista) numero) (cons (first lista) (mayores (rest lista) numero) )]
                                     [else (mayores (rest lista) numero)]) )


(mayores (list 1 2 3) 1)
(mayores (list 1 2 3) 4)