lib/sekka/henkan.nnd in sekka-1.5.8 vs lib/sekka/henkan.nnd in sekka-1.5.9
- old
+ new
@@ -101,10 +101,13 @@
(lambda (element)
(list val k (+ v-first element)))
(v-rest.split "/"))))
(a-search.search userid kvs keyword type)))))
(nn-heuristics-result (nn-heuristics keyword lst))
- (sorted-lst (sort-by nn-heuristics-result (lambda (item) (- 1.0 (car item))))))
+ (sorted-lst (sort-by nn-heuristics-result (lambda (item)
+ (to-arr
+ (list (- 1.0 (first item))
+ (second item)))))))
(if (= limit 0)
sorted-lst
(take* sorted-lst limit)))))