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) |