init array for immutable list

effekt-lang · Oct 25, 2023 · 8ae3471 · 8ae3471
1 parent b18ba0d
commit 8ae3471
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/libraries/js/immutable/list.effekt b/libraries/js/immutable/list.effekt
@@ -20,6 +20,14 @@ def foreach[A](l: List[A]) { f: A => Unit } : Unit = {
   }
 }
 
+def foreachIndex[T](list: List[T], i: Int){ f: (Int, T) => Unit}: Unit = {
+  list match {
+    case Nil() => ();
+    case Cons(head, tail) => f(i, head); foreachIndex(tail, i+1){f}
+
+  }
+}
+
 def map[A, B](l: List[A]) { f: A => B } : List[B] = {
   var acc = Nil[B]()
   l.foreach { el => acc = Cons(f(el), acc) }

diff --git a/libraries/js/mutable/array.effekt b/libraries/js/mutable/array.effekt
@@ -24,10 +24,13 @@ def initArray[T](size: Int) { index: Int => T}: Array[T] = {
 def initArray[T](list: List[T]): Array[T] = {
   val listSize = list.size();
   val arr = emptyArray(listSize);
-  var i = 0;
-  each(0,list.size())
+
+  foreachList(list, 0){(i, head) => put(arr, i, head)}
+  return arr;
 }
 
+
+
 extern pure def emptyArray[T](initialSize: Int): Array[T] =
   "(new Array(initialSize))"