View difference between Paste ID: i0bkUk6v and u2gAm2Nj
SHOW: | | - or go back to the newest paste.
1
;;Autor: Carlos A Delgado
2
;;Fecha: 04 de Sep de 2020
3
;;size: lista de lista de simbolos -> numero
4
;;Propósito: Esta función cuenta el número de simbolos que tiene la lista
5
;;Ejemplos
6
;;(cons 'a (cons (cons 'b (cons 'c empty)) (cons 'd (cons 'e (cons (cons 'f (cons 'g empty)) empty)))))
7
(define (size lst)
8
  (cond
9
    [(empty? lst) 0]
10
    [(cons? (first lst))
11
     (+ (size (first lst)) (size (rest lst)))]
12
    [(symbol? (first lst)) (+ 1 (size (rest lst)))]
13
    [else (error "Los elementos deben ser símbolos")]))
14
15
(check-expect (size (cons 'a (cons (cons 'b (cons 'c empty)) (cons 'd (cons 'e (cons (cons 'f (cons 'g empty)) empty)))))
16
) 7)