[system-a] tensor/ -- zeroTensor

TODO.md

@@ -1,6 +1,13 @@
 # system-a
 
-[system-a] `randomTensor`
+[system-a] `tensor/` -- test `zeroTensor`
+[system-a] `tensor/` -- `randomTensor`
+[system-a] `tensor/` -- test `randomTensor`
+
+[system-a] `networks/` -- `initParameters` & `initShape`
+[system-a] `irisTestXs`, `irisTestYs`
+[system-a] `irisTrainXs`, `irisTrainYs`
+[system-a] `model`
 
 # the-book
 

src/system-a/tensor/index.ts

@@ -9,3 +9,4 @@ export * from "./tensorEvery.js"
 export * from "./tensorMap.js"
 export * from "./tensorReal.js"
 export * from "./tensorZeros.js"
+export * from "./zeroTensor.js"

src/system-a/tensor/zeroTensor.ts

@@ -0,0 +1,19 @@
+import type { Tensor } from "./Tensor.js"
+import type { Shape } from "./shape.js"
+
+export function zeroTensor(shape: Shape): Tensor {
+  if (shape.length === 0) return 0
+
+  const [length, ...restShape] = shape
+  return repeat(length, zeroTensor, restShape)
+}
+
+function repeat<A, B>(n: number, f: (x: A) => B, x: A): Array<B> {
+  const results = []
+  while (n > 0) {
+    results.push(f(x))
+    n--
+  }
+
+  return results
+}