Mercurial > rlm

view src/rlm/scratch.clj @ 0:78a630e650d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial import
author Robert McIntyre <rlm@mit.edu>
date Tue, 18 Oct 2011 00:57:08 -0700
parents
children
line wrap: on
line source
     1 (ns rlm.scratch)



     2 



     3 



     4 



     5 (defn n-sqrt



     6   ([num] (n-sqrt num 1))



     7   ([num guess]



     8      (cond 



     9       (< (abs (- num (* guess guess))) 1e-6)



    10       (double guess)



    11       :t



    12       (n-sqrt num (/ (+ (* guess guess) num) 2 guess)))))



    13 



    14 



    15 



    16 



    17 



    18 	       ;; (= 0



    19 	       ;; 	  (+ (* 2 guess new-guess) ( - (* guess guess) num)) )



    20 



    21 	       ;; (= (/ (+ (* guess guess) num) 2 guess)



    22 	       ;; 	  (new-guess))



    23 



    24 



    25 



    26 



    27 ;; play some music



    28 



    29 



    30 (dorun



    31  (map #(sw (str "totem --enqueue \"" (.getCanonicalPath %) "\""))



    32       (filter #(re-matches #".*Mega.*" (.getCanonicalPath %))



    33 	      (file-seq (file-str "/home/r/Desktop/first-archive/sounds/Overclocked/")))))



    34 



    35