A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Median-filter/PicoLisp/median-filter.l
+++ b/Task/Median-filter/PicoLisp/median-filter.l
@ -0,0 +1,31 @@
+(de ppmMedianFilter (Radius Ppm)
+   (let Len (inc (* 2 Radius))
+      (make
+         (chain (head Radius Ppm))
+         (for (Y Ppm  T  (cdr Y))
+            (NIL (nth Y Len)
+               (chain (tail Radius Y)) )
+            (link
+               (make
+                  (chain (head Radius (get Y (inc Radius))))
+                  (for (X (head Len Y) T)
+                     (NIL (nth X 1 Len)
+                        (chain (tail Radius (get X (inc Radius)))) )
+                     (link
+                        (cdr
+                           (get
+                              (sort
+                                 (mapcan
+                                    '((Y)
+                                       (mapcar
+                                          '((C)
+                                             (cons
+                                                (+
+                                                   (* (car C) 2126)     # Red
+                                                   (* (cadr C) 7152)    # Green
+                                                   (* (caddr C) 722) )  # Blue
+                                                C ) )
+                                          (head Len Y) ) )
+                                    X ) )
+                              (inc Radius) ) ) )
+                     (map pop X) ) ) ) ) ) ) )