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

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

题目：

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

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

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

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

思路：

要实现[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)