Cree este código para resolver el problema 13 que es el del enunciado de Run-length encoding of a list (direct solution).
El problema es el siguiente, tengo una lista con sublistas y tengo que contar los elementos que estan en esas sublistas. Pero no me cuenta las últimas 4 e alguna solución o que está mal en mí código?
Este es mi código:
(define encode-d
(lambda (lst)
(cond ((null? lst) '())
(else (encoding lst 1)))))
(define encoding
(lambda (lst k)
(cond ((null? lst) '())
((null? (cdr lst)) lst)
((equal? (car lst) (cadr lst)) (encoding (cdr lst) (+ k 1)))
((= k 1) (cons (car lst) (encoding (cdr lst) 1)))
(else (cons (cons k (list (car lst))) (encoding (cdr lst) 1))))))
La salida del programa actual es la siguiente:
> (encode-d '(a a a a b c c a a d e e e e)
((4 a) b (2 c) (2 a) d e)
Pero la salida real deberia ser:
((4 a) b (2 c) (2 a) d (4 e))
Esto está programado en Scheme