Added folder batch example

2019-07-27 19:36:03 +09:00
parent 26f77727f3
commit af4d294d2c
5 changed files with 51 additions and 20 deletions
--- a/examples/demo/dejong.lisp
+++ b/examples/demo/dejong.lisp
@@ -16,11 +16,11 @@

 (defn dejong (r a b c d)
  (reduce  
+    (range 0 r)
    (λ (acc val)
      (first (
        (_dejong (first acc) (last acc) a b c d)
      )))
-    (range 0 r)
    (2 1)
  )
 )