lookupBindGroupOcc: recommend names in the same namespace (#17593)
[ghc.git] / testsuite / tests / perf / should_run / T2902_A.hs
1
2 {-# LANGUAGE UnicodeSyntax, FlexibleContexts #-}
3
4 module Main (main) where
5
6 import T2902_A_PairingSum
7
8 f :: Int -> PSum Int Int
9 f n = unions $ fmap g [1..n]
10 where
11 g m = unions $ fmap fromList
12 [ zip [m..n] $ repeat 1
13 , zip [m,2+m..n] $ repeat 2
14 , zip [m,3+m..n] $ repeat 3
15 ]
16
17 main ∷ IO ()
18 main = print $ take 20 $ toList $ f 20