Sha256: 9fc36448f7bb71107dba53193f9da738d0c8f11c7e2d3cd0c46acd77aff42929
Contents?: true
Size: 458 Bytes
Versions: 396
Compression:
Stored size: 458 Bytes
Contents
(defpackage #:etl
(:use #:common-lisp)
(:export #:transform))
(in-package #:etl)
(defun transform (data)
(let ((old-kvs (loop
for k being each hash-keys in data
for v being each hash-values in data
collecting (list k v))))
(reduce
#'(lambda (h kv)
(loop
for v in (second kv)
with k = (first kv)
do (setf (gethash v h) k)
finally (return h)))
old-kvs
:initial-value (make-hash-table :test 'equalp)))
)
Version data entries
396 entries across 396 versions & 1 rubygems