Mercurial > rlm

view src/rlm/web_stuff.clj @ 0:78a630e650d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial import
author Robert McIntyre <rlm@mit.edu>
date Tue, 18 Oct 2011 00:57:08 -0700
parents
children
line wrap: on
line source
     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