p2 example

mnvr · mnvr · commit fcb5e3d3ddce · 2023-12-05T22:29:28.000+05:30
diff --git a/05.hs b/05.hs
@@ -74,4 +74,6 @@ xsmin xs = foldl1 min xs
 
 p2 al = p1 $ al { seeds = expand (seeds al) }
 
-expand seeds = seeds
+expand :: [Int] -> [Int]
+expand [] = []
+expand (x:y:zs) = concat [[x..(x+y)], expand zs]
