#:g1: pfcでL-99 (P10 ランレングス圧縮)

Posted 2008-06-12 06:58:00 GMT

-(http://www.ic.unicamp.br/~meidanis/courses/mc336/2006s2/funcional/L-99_Ninety-Nine_Lisp_Problems.html)
これもまた普通のLISP/Schemeみたいになってしまいました…。

(encode '(a a a a b c c a a d e e e e))
;==> [[4 a] [1 b] [2 c] [2 a] [1 d] [4 e]]

(define (encode lst) (map (lambda (x) [(length x) (hd x)]) (pack lst)))

comments powered by Disqus