Skip to content

Instantly share code, notes, and snippets.

@crowl

crowl/p2.scm

Created December 15, 2015 03:16
Show Gist options
  • Save crowl/a14650c6e091cbe0b805 to your computer and use it in GitHub Desktop.
Save crowl/a14650c6e091cbe0b805 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
p2.scm
;;; p2.scm
(define codificador
(lambda (c e)
(cond
((null? e) '())
((not (assq (car e) c)) (cons (car e) (codificador c (cdr e))))
(else (cons (cdr (assq (car e) c)) (codificador c (cdr e)))))))
;;; Prueba
(define codigo (list (cons 'a 'b) (cons 'b 'i) (cons 'n 'e)))
(print (codificador codigo '(b a n a n a)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment