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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Task/Hash-from-two-arrays/Emacs-Lisp/hash-from-two-arrays.l
View file

@ -1,11 +0,0 @@
(defun hash-from-two-arrays (seq1 seq2)
(let ((hash (make-hash-table :test 'equal))
(list1 (if (listp seq1) seq1 (append seq1 nil)))
(list2 (if (listp seq2) seq2 (append seq2 nil))))
(while (and list1 list2)
(puthash (car list1) (car list2) hash)
(setq list1 (cdr list1)
list2 (cdr list2)))
hash))
(hash-from-two-arrays (list 'a 'b 'c) [1 2 3])