Sectoid 21.12.2012 17:20 infinity

лисперы, может я чего-то не знаю, что такие функции пишу?
(defun list→hash-table (key-fn list)
(let ((hash (make-hash-table)))
(loop
for val in list
for key = (funcall key-fn val)
do (setf (gethash key hash) val))
hash))
или все норм и в стандарте/александрии такого нет?

?, programming, lisp
#tfegie
re 4 comments !recommend ~bookmark Ssubscribe
1. amd63 21.12.2012 17:35 Azoth

ставлю 20 копеек на то, что @Sectoid — единственный лиспер на псто :(

#tfegie/1
rereply
2. Sectoid → amd63 /1 21.12.2012 17:37 infinity

были вроде еще)

#tfegie/2
rereply
3. 238328 → amd63 /1 21.12.2012 18:45

нет

#tfegie/3
rereply
4. amd63 → 238328 /3 21.12.2012 18:47 Azoth

Какие ваши доказательства? Кокаинум?

#tfegie/4
rereply
Do you really want to delete ?