diff clojure/com/aurellem/run/bootstrap_0.clj @ 325:a5cdb2f76307

improved efficiency of set-cursor
author Robert McIntyre <rlm@mit.edu>
date Wed, 04 Apr 2012 03:25:14 -0500
parents 7876781520ea
children fe6fd2323264
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Wed Apr 04 01:04:06 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Wed Apr 04 03:25:14 2012 -0500
     1.3 @@ -379,8 +379,8 @@
     1.4    (let [key (if (< 0 n) ↓ ↑)]
     1.5      (multiple-times
     1.6       (Math/abs n)
     1.7 -     (partial repeat-until-different
     1.8 -              key list-offset)
     1.9 +     (partial first-difference 
    1.10 +      [] key list-offset)
    1.11       script)))
    1.12  
    1.13  (defn set-cursor