用 clojure实现【白话经典算法系列之十四】腾讯2012年实习生笔试加分题

昨天见 【白话经典算法系列之十四】腾讯2012年实习生笔试加分题， 作为一个clojure爱好者，实现了一个clojure版本的。

题目：

给定一数组a[N]，我们希望构造数组b [N]，其中b[j]=a[0]*a[1]…a[N-1] / a[j]，在构造过程中，不允许使用除法：

要求O（1）空间复杂度和O（n）的时间复杂度；

除遍历计数器与a[N] b[N]外，不可使用新的变量（包括栈临时变量、堆空间和全局静态变量等）；

实现程序（主流编程语言任选）实现并简单描述。

思路：

要实现[1 3  5 7 9]

[]    [3 5 7 9]
[1]     [5 7 9]
[1 3]     [7 9]
[1 3 5]     [9]
[1 3 5 7]    []

(ns for-clojure.tencentproblem)

(defn multi-acc [v]
  (reduce #(conj %1 (* (last %1) %2)) [1] (drop-last v)))

(defn ms [v]
  (map * (multi-list v) (reverse (multi-list (reverse v)))))

(ms [1 2 4 8 16]) ;=>(1024 512 256 128 64)