几行代码解决淘宝面试题 之Clojure版

这里我想对文章的开头上面这段引用说明一下

我不是标题党，也无意吸引什么人气，这个标题是我Ctrl+C过来的。

“看见为了这么个问题写长长的Java代码，让我十分蛋疼。”，是想说我的代码太差吗？或者是太长？我想应该是这个意思吧，可能是LZ一激动打错字了。

javaeye很国内很不错的一个论坛，来到这里的很多人是为了学习，我当时也是这么来的。还记得当时为了一个问题，在问答上提问，一直在线等啊，期待着

有人能看看，能回答，当一刷新页面看到有新提醒的时候是多么激动啊！呵呵，相信这坛子里的很多人和我当时一样，有同样的经历和感受。所以现在我看到有人问

问题的时候，就帮忙想想，能回答的尽量回答下，因为我知道我也是这么走过来的。当然也遇到一些不好的，比如问题很简单，就有人说这么简单的问题也来问，这么白痴的问题也来探讨，哎！别提当时的心情了，呵呵。之所以当时有那么“弱智”的问题，关键在于学艺不精，不知道这条路怎么走。。相信现在坛子里还有很多这样的人。

呵呵，回帖发起来感慨了。。希望路过的不要拍我！我想说的是我们都在这里，也就是朋友，称为“坛友”（不知道有这个词吗？）更合适，在这里我们相互学习，熟悉。当然每个人也都希望被尊重，特别是那些刚刚入门的。虽然我们不曾谋面，但是说不定在哪里见了面，聊起来这坛子里的事，然后恍然大悟的说：“哦！，原来你就是javaeye的那个XXX啊”！

    呵呵，这只是修辞，放松一点，如果让你觉的不适，我很抱歉。我抱怨的不是你的代码，我抱怨的是Java语言本身带来的累赘，为了解决一个问题，我需要写N多跟问题不相关的代码，你不用太在意，不针对任何人。

我有个问题，比如增加了一个额外的需求，想统计一下各个子线程分别花了多少时间来完成计算。楼主的 Clojure 版代码容易修改吗？

很容易，不过是函数的组合，加个计时函数tme到匿名函数：

(defn mysum3 [coll  n]
    (let [sub-colls   (partition n n [0] coll)
          result-coll (map #(future (time (reduce + 0 %))) sub-colls)] 
         (reduce #(+ %1 @%2) 0 result-coll))) 

示范输出：

1:1 user=> (mysum3 (range 0 1001) 400)
"Elapsed time: 13.481042 msecs"
"Elapsed time: 3.782884 msecs"
"Elapsed time: 2.498223 msecs"
500500

javaeye不支持代码的高亮，折腾，注意time函数的位置。

var collection = Enumerable.Range(0, 1000000).ToArray<int>();
long total = 0;
Parallel.For<long>(0, collection.Length, () => 0, (j, loop, subtotal) =>
             {
                 subtotal += collection[j];
                 return subtotal;
             },
             (x) => Interlocked.Add(ref total,x)
             );

我有个问题，比如增加了一个额外的需求，想统计一下各个子线程分别花了多少时间来完成计算。你的的 C# 版代码容易修改吗？

import scala.actors.Futures._
object Test {
	def split[T](part:Int, list:List[T], acc:List[List[T]]):List[List[T]] = {
		if (list == Nil) return acc
		val (head,tail) = list.splitAt(part)
		split(part, tail, head :: acc)
	}
	
	def parallelSum(n:Int, list:List[Long]):Long = {
		split(n,list,Nil).map({part=>future{part.sum}}).foldLeft(0l){_+_()}
	}
	
	def main(args : Array[String]) : Unit = {
		val list = Range.Long(1, 10000000, 1).toList
		val sum = parallelSum(list.size / 2, list)
	}
}

呵呵，java有时候是这样，新的java7也不是让人太满意。这方便Clojure是个优势，有时间要好好看看这个JVM上的语言。。