Contents

;;; etl.el --- etl Exercise (exercism)

;;; Commentary:

;;; Code:


(defun etl (data)
  (let ((rtn (make-hash-table)))
    (maphash (lambda (k v)
               (when (< k 0)
                 (error "Unexpected key value %s" k))
               (dolist (i v)
                 (when (not (stringp i))
                   (error "Non string value found %s" i))
                 (puthash (downcase i) k rtn)))
             data)
    rtn))


(provide 'etl)
;;; etl.el ends here

Version data entries

395 entries across 395 versions & 1 rubygems

Version	Path
trackler-2.2.1.159	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.158	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.157	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.156	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.155	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.154	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.153	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.152	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.151	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.150	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.149	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.148	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.147	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.146	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.145	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.144	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.143	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.142	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.141	tracks/elisp/exercises/etl/example.el
trackler-2.2.1.140	tracks/elisp/exercises/etl/example.el