updated No.56, 60, 75, 88

youz · May 20, 2011 · 9fe8200 · 9fe8200
1 parent d3850a7
commit 9fe8200
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 4 deletions.
diff --git a/056_Find Distinct Items.clj b/056_Find Distinct Items.clj
@@ -1 +1,3 @@
-#(let[[x & r]%3](if(not x)%(recur(if(%2 x)%`[~@%~x])(conj%2 x)r)))[]#{}
+(fn f [a [x & r]]
+  (if x (f (if ((set a) x) a (conj a x)) r) a))
+[]
diff --git a/060_Sequence Reductions.clj b/060_Sequence Reductions.clj
@@ -1 +1,4 @@
-(fn f([g[h &%]](f g h%))([g%[h & r]](cons%(if h(lazy-seq(f g(g% h)r))))))
+(fn f
+ ([g [h & r]] (f g h r))
+ ([g i [h & r]]
+  (cons i (if h (lazy-seq (f g (g i h) r))))))
diff --git a/075_Euler's Totient Function.clj b/075_Euler's Totient Function.clj
@@ -1 +1,4 @@
-(fn[n](+(count(filter(fn[i](#(if(=%2 0)(=% 1)(recur%2(mod%%2)))n i))(range 2 n)))1))
+(fn [n]
+  (+ 1 (count
+	(filter (fn [i] (= (str i '/ n) (str (/ i n))))
+		(range 2 n)))))
diff --git a/088_Symmetric Difference.clj b/088_Symmetric Difference.clj
@@ -1 +1 @@
-#(reduce conj(%%2%3)(%%3%2))clojure.set/difference
+reduce #((if (% %2) disj conj) % %2)