From 3ad4602b1cd11f8f700bb3248e403095650defef Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 16 Nov 2013 16:24:08 -0800 Subject: [PATCH] machine-learning: use bisect-left (new name for search-sorted). --- extra/machine-learning/label-binarizer/label-binarizer.factor | 4 ++-- extra/machine-learning/label-encoder/label-encoder.factor | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/machine-learning/label-binarizer/label-binarizer.factor b/extra/machine-learning/label-binarizer/label-binarizer.factor index 60fcfd6d43..a233c32540 100644 --- a/extra/machine-learning/label-binarizer/label-binarizer.factor +++ b/extra/machine-learning/label-binarizer/label-binarizer.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2012 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. USING: accessors arrays fry kernel machine-learning.transformer -math.extras sequences sets sorting ; +sequences sets sorting sorting.extras ; IN: machine-learning.label-binarizer TUPLE: label-binarizer classes_ ; @@ -14,7 +14,7 @@ M: label-binarizer fit-y M: label-binarizer transform-y classes_>> dup length '[ - _ search-sorted [ 1 ] dip _ 0 [ set-nth ] keep + _ bisect-left [ 1 ] dip _ 0 [ set-nth ] keep ] map ; M: label-binarizer inverse-transform-y diff --git a/extra/machine-learning/label-encoder/label-encoder.factor b/extra/machine-learning/label-encoder/label-encoder.factor index 35f1f6ee15..5c605a97c0 100644 --- a/extra/machine-learning/label-encoder/label-encoder.factor +++ b/extra/machine-learning/label-encoder/label-encoder.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2012 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. USING: accessors fry kernel locals machine-learning.transformer -math.extras sequences sets sorting ; +sequences sets sorting sorting.extras ; IN: machine-learning.label-encoder TUPLE: label-encoder classes_ ; @@ -12,7 +12,7 @@ M: label-encoder fit-y ( y transformer -- ) [ members natural-sort ] dip classes_<< ; M: label-encoder transform-y ( y transformer -- y' ) - classes_>> '[ _ search-sorted ] map ; + classes_>> '[ _ bisect-left ] map ; M: label-encoder inverse-transform-y ( y' transformer -- y ) classes_>> '[ _ nth ] map ;