Mercurial > rlm
comparison 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 |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:78a630e650d2 |
---|---|
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 |