Update ALGORITHM.md

pgujjula · Apr 5, 2024 · aae7297 · aae7297
1 parent 04fc94a
commit aae7297
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/docs/ALGORITHM.md b/docs/ALGORITHM.md
@@ -187,7 +187,7 @@ zs :: [Int]
 zs = 0 : concatMap (\i -> [i, -i]) [1..]
 
 gaussianInts :: [Complex Int]
-gaussianInts = map snd (applyMerge (\x y -> (x*x + y*y, x :+ y)) ints ints)
+gaussianInts = map snd (applyMerge (\x y -> (x*x + y*y, x :+ y)) zs zs)
 ```
 
 Square-free integers ([Wikipedia](https://en.wikipedia.org/wiki/Square-free_integer)):