Update README.md

pgujjula · Apr 5, 2024 · e8c247a · e8c247a
1 parent c918eb0
commit e8c247a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/README.md b/README.md
@@ -49,11 +49,11 @@ smooth3 = applyMerge (*) (iterate (*2) 1) (iterate (*3) 1)
 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)):