hanafuda/lib
1
1
Fork 0
Code Issues Pull requests Releases Wiki Activity

Expose the size of card packs

Browse source
This commit is contained in:
Sasha 2018-02-25 23:17:51 +01:00
parent c2a324b905
commit 786dfe4bb8
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Card.hs
View file

@ -71,6 +71,9 @@ port f bits = f bits . fromEnum
contains :: Pack -> Card -> Bool contains :: Pack -> Card -> Bool
contains = port testBit contains = port testBit
size :: Pack -> Int
size = popCount
add :: Pack -> Card -> Pack add :: Pack -> Card -> Pack
add = port setBit add = port setBit
@ -106,7 +109,7 @@ shuffle l =
pair :: Card -> Pack -> Maybe (Pack, Pack) pair :: Card -> Pack -> Maybe (Pack, Pack)
pair card pack = pair card pack =
let sameMonthCards = sameMonth card `intersection` pack in let sameMonthCards = sameMonth card `intersection` pack in
case popCount sameMonthCards of case size sameMonthCards of
0 -> Just (add pack card, empty) 0 -> Just (add pack card, empty)
1 -> Just (difference pack sameMonthCards, add sameMonthCards card) 1 -> Just (difference pack sameMonthCards, add sameMonthCards card)
_ -> Nothing _ -> Nothing