blob: 73654e430be4f29b0b286c292adb1551471b5418 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
import Data.Compact
import Data.Compact.Internal
import qualified Data.Map as Map
main = do
let m1 = Map.fromList [(x,show x) | x <- [1..(10000::Integer)]]
m2 = Map.fromList [(x,y) | x <- [1..(10000::Integer)],
Just y <- [Map.lookup x m1]]
c <- compact (m1,m2)
print (length (show (getCompact c)))
print =<< compactSize c
c <- compactWithSharing (m1,m2)
print (length (show (getCompact c)))
print =<< compactSize c
|
