aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

langs a-z

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 22:43:41 -07:00
commit d066446780
11389 changed files with 98361 additions and 1020 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Hash-from-two-arrays/TXR/hash-from-two-arrays.txr Normal file
View file

@ -0,0 +1,10 @@
@(do (defun hash-from-two (vec1 vec2 equal-based-p)
(let ((table (make-hash nil nil equal-based-p)))
(for ((i 0)) ((< i (length vec1)) table) ((inc i))
(set (gethash table (vecref vec1 i) 0)
(vecref vec2 i))))))
@(bind hash @(hash-from-two #(a b c) #(1 2 3) nil))
@(bind (keys vals) @(let (k v)
(dohash (key val hash (list k v))
(push key k)
(push val v))))