Mercurial > cortex

comparison org/worm_learn.clj @ 516:ced955c3c84f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
resurrect old cortex to fix flow issues.
author Robert McIntyre <rlm@mit.edu>
date Sun, 30 Mar 2014 22:48:19 -0400
parents 0a4362d1f138
children 01934317b25b
comparison
equal deleted inserted replaced
515:58fa1ffd481e 516:ced955c3c84f
446 (defn init [] 446 (defn init []
447 (def phi-space (generate-phi-space)) 447 (def phi-space (generate-phi-space))
448 (def phi-scan (gen-phi-scan phi-space)) 448 (def phi-scan (gen-phi-scan phi-space))
449 ) 449 )
450 450
451 ;; (defn infer-nils-dyl [s]
452 ;; (loop [closed ()
453 ;; open s
454 ;; anchor 0]
455 ;; (if-not (empty? open)
456 ;; (recur (conj closed
457 ;; (or (peek open)
458 ;; anchor))
459 ;; (pop open)
460 ;; (or (peek open) anchor))
461 ;; closed)))
462
463 ;; (defn infer-nils [s]
464 ;; (for [i (range (count s))]
465 ;; (or (get s i)
466 ;; (some (comp not nil?) (vector:last-n (- (count s) i)))
467 ;; 0)))
468
469 451
470 (defn infer-nils 452 (defn infer-nils
471 "Replace nils with the next available non-nil element in the 453 "Replace nils with the next available non-nil element in the
472 sequence, or barring that, 0." 454 sequence, or barring that, 0."
473 [s] 455 [s]
555 :worm worm*)) 537 :worm worm*))
556 (accuracy @res))) 538 (accuracy @res)))
557 539
558 540
559 541
560 542 (defn dylan-collect-bolts [longest-threads index-sets]
561 543 (fn
562 544 [experiences text]
545 (let [phi-indices (phi-scan (:proprioception (peek experiences)))
546 long-thread (longest-thread (vector:last-n @index-sets 300))]
547 (swap! index-sets #(conj % phi-indices))
548 (swap! longest-threads #(conj % long-thread)))))
549
550
551