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))
или все норм и в стандарте/александрии такого нет?

1. amd63 21.12.2012 17:35 Azoth

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

2. Sectoidamd63 /1 21.12.2012 17:37 infinity

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

3. 238328amd63 /1 21.12.2012 18:45

нет

4. amd63238328 /3 21.12.2012 18:47 Azoth

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

Do you really want to delete ?