module Dodge.Combine
    where
--import Dodge.Data
import Dodge.Combine.Data

--import qualified Data.IntMap.Strict as IM
--import qualified Data.IntSet as IS
import qualified Data.Map.Strict as M

--combineList :: IM.IntMap Item -> [(Item , IS.IntSet)]
--combineList 


invert :: (Ord a) => M.Map b a -> M.Map a [b]
invert = M.foldrWithKey (\k val -> M.insertWith (++) val [k]) M.empty

combineList :: [([ItemType], ItemType)]
combineList =
    [ ( [ TPistol, TPipe, THardware ] , TRifle )
    , ( [ TRifle, THardware ] , TPistol )
    , ( [ TPistol, TPistol, THardware ] , TSpreadGun 2 )
    , ( [ TSpreadGun 2, TPistol, THardware ] , TSpreadGun 3 )
    , ( [ TSpreadGun 3, TPistol, THardware ] , TSpreadGun 4 )
    , ( [ TSpreadGun 4, TPistol, THardware ] , TSpreadGun 5 )
    , ( [ TPistol, TAutoGun, THardware ]     , TLtAutoGun )
    , ( [ TLtAutoGun, TPipe, THardware ]     , TAutoGun )
    , ( [ TRifle, TRifle, THardware ] , TMultGun 2 )
    , ( [ TMultGun 2, TRifle, THardware ] , TMultGun 3 )
    , ( [ TMultGun 3, TRifle, THardware ] , TMultGun 4 )
    , ( [ TMultGun 4, TRifle, THardware ] , TMultGun 5 )
    , ( [ TLtAutoGun, TPipe, THardware ]  , TAutoGun )
    , ( [ TPistol, TBigTube, THardware] , TLauncher 1 )
    , ( [ TLauncher 1, TBigTube, TPistol, THardware] , TLauncher 2)
    , ( [ TLauncher 2, TBigTube, TPistol, THardware] , TLauncher 3)
    ]