Mercurial > rlm
annotate src/rlm/scratch.clj @ 0:78a630e650d2
initial import
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Tue, 18 Oct 2011 00:57:08 -0700 |
| parents | |
| children |
| rev | line source |
|---|---|
| rlm@0 | 1 (ns rlm.scratch) |
| rlm@0 | 2 |
| rlm@0 | 3 |
| rlm@0 | 4 |
| rlm@0 | 5 (defn n-sqrt |
| rlm@0 | 6 ([num] (n-sqrt num 1)) |
| rlm@0 | 7 ([num guess] |
| rlm@0 | 8 (cond |
| rlm@0 | 9 (< (abs (- num (* guess guess))) 1e-6) |
| rlm@0 | 10 (double guess) |
| rlm@0 | 11 :t |
| rlm@0 | 12 (n-sqrt num (/ (+ (* guess guess) num) 2 guess))))) |
| rlm@0 | 13 |
| rlm@0 | 14 |
| rlm@0 | 15 |
| rlm@0 | 16 |
| rlm@0 | 17 |
| rlm@0 | 18 ;; (= 0 |
| rlm@0 | 19 ;; (+ (* 2 guess new-guess) ( - (* guess guess) num)) ) |
| rlm@0 | 20 |
| rlm@0 | 21 ;; (= (/ (+ (* guess guess) num) 2 guess) |
| rlm@0 | 22 ;; (new-guess)) |
| rlm@0 | 23 |
| rlm@0 | 24 |
| rlm@0 | 25 |
| rlm@0 | 26 |
| rlm@0 | 27 ;; play some music |
| rlm@0 | 28 |
| rlm@0 | 29 |
| rlm@0 | 30 (dorun |
| rlm@0 | 31 (map #(sw (str "totem --enqueue \"" (.getCanonicalPath %) "\"")) |
| rlm@0 | 32 (filter #(re-matches #".*Mega.*" (.getCanonicalPath %)) |
| rlm@0 | 33 (file-seq (file-str "/home/r/Desktop/first-archive/sounds/Overclocked/"))))) |
| rlm@0 | 34 |
| rlm@0 | 35 |