Update README.md

pgujjula · Apr 5, 2024 · 34c70d4 · 34c70d4
1 parent da25ee9
commit 34c70d4
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/README.md b/README.md
@@ -52,9 +52,8 @@ Gaussian integers, ordered by norm ([Wikipedia](https://en.wikipedia.org/wiki/Ga
 zs :: [Int]
 zs = 0 : concatMap (\i -> [i, -i]) [1..]
 
--- Uses more general `applyMergeBy` taking custom comparison function
 gaussianInts :: [Complex Int]
-gaussianInts = applyMergeBy (comparing (\a b -> a*a + b*b)) (:+) ints ints
+gaussianInts = map snd (applyMerge (\x y -> (x*x + y*y, x :+ y)) ints ints)
 ```
 
 Square-free integers ([Wikipedia](https://en.wikipedia.org/wiki/Square-free_integer)):