Update ALGORITHM.md

pgujjula · Apr 5, 2024 · 5e18522 · 5e18522
1 parent e8c247a
commit 5e18522
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/docs/ALGORITHM.md b/docs/ALGORITHM.md
@@ -183,11 +183,11 @@ composites = applyMerge (*) primes [2..]
 Gaussian integers, ordered by norm ([Wikipedia](https://en.wikipedia.org/wiki/Gaussian_integer)):
 
 ```haskell
-zs :: [Int]
+zs :: [Integer]
 zs = 0 : concatMap (\i -> [i, -i]) [1..]
 
-gaussianInts :: [Complex Int]
-gaussianInts = map snd (applyMerge (\x y -> (x*x + y*y, x :+ y)) zs zs)
+gaussianIntegers :: [GaussianInteger]    -- `GaussianInteger` from arithmoi
+gaussianIntegers = map snd (applyMerge (\x y -> (norm (x :+ y), x :+ y)) zs zs)
 ```
 
 Square-free integers ([Wikipedia](https://en.wikipedia.org/wiki/Square-free_integer)):