Mercurial > rlm
comparison src/rlm/web_stuff.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.web-stuff) | |
2 | |
3 | |
4 ;;(from http://www.mail-archive.com/clojure@googlegroups.com/msg31123.html | |
5 (defn convolve [ns ms] | |
6 (let [ns (vec ns), ms (vec ms), | |
7 count-ns (count ns), count-ms (count ms)] | |
8 (loop [n 0, | |
9 y (transient (vec (repeat (dec (+ count-ns count-ms)) 0)))] | |
10 (if (= n count-ns) (persistent! y) | |
11 (recur (inc n) | |
12 (loop [m 0, y y] | |
13 (if (= m count-ms) y | |
14 (let [n+m (+ n m)] | |
15 (recur (inc m) (assoc! y n+m | |
16 (+ (y n+m) (* (ns n) (ms | |
17 m)))))))))))));;) | |
18 | |
19 |