diff --git a/src/benchmark/id3.clj b/src/benchmark/id3.clj index 3b49af1..5d3250b 100644 --- a/src/benchmark/id3.clj +++ b/src/benchmark/id3.clj @@ -43,7 +43,7 @@ (cons split-attr [(id3 left (rest sattrs) target) (id3 right (rest sattrs) target)])))))) -(defparfun id3-defparfun [dataset attrs target] (> (count attrs) 50) +(defparfun id3-defparfun [dataset attrs target] (< (count attrs) 25) (if (or (empty? dataset) (empty? attrs)) [] (let @@ -81,7 +81,6 @@ (let [{data :data attrs :attrs} (read-input-file filename)] (cr/bench (id3 data (rest attrs) (first attrs))))) - (defn id3-parfun [filename] (let [{data :data attrs :attrs} (read-input-file filename)] (cr/bench (id3-defparfun data (rest attrs) (first attrs)))))