[+] add map_compute function which allow map with a dynamic parameter.

David RENÉ
1 parent 33d50df7
Showing 1 changed file with 23 additions and 2 deletions Show diff stats
anubis_dev/library/tools/function.anubis
@@ -254,7 +254,28 @@ public define List($C)
       [x . map_parameter(f, p1, t)]
   }
 .
-    
+
+public define $P
+/** 'map' with a dynamic parameter. A new parameter is return as a result and
+ *  pass through as parameter with next call iteration and finally returned as 
+ *  result of the map_parameter. This allows to make computation on the parameter
+ *  like a sum
+ */
+  map_compute
+  (
+    ($P,$B) -> $P    f,  //
+    $P               p,  //initial parameter
+    List($B)         l   //
+  ) =
+  if l is 
+  {
+    [ ]     then p,
+    [h . t] then 
+      with p1 = f(p, h),
+      map_compute(f, p1, t)
+  }
+.
+
 public define List($C)
 /** 'map' with a dynamic parameter. A new parameter is return with the result and
  *  pass through as parameter with next call iteration
@@ -669,4 +690,4 @@ public define macro $T
    (($T t) |-f-> if test(t) then f(step(t)) else t)(init).  // terminal call !
-   
 \ No newline at end of file
+