Try a stub of a C-style version of types
This commit is contained in:
parent
f7b3f21a83
commit
7de6040289
|
@ -0,0 +1,51 @@
|
||||||
|
module CCard where
|
||||||
|
|
||||||
|
import Data.Word (Word64)
|
||||||
|
import Data.Bits (setBit, (.|.))
|
||||||
|
|
||||||
|
newtype Card = Card Int
|
||||||
|
type Pack = Word64
|
||||||
|
|
||||||
|
data Flower =
|
||||||
|
Pine
|
||||||
|
| Plum
|
||||||
|
| Cherry
|
||||||
|
| Wisteria
|
||||||
|
| Iris
|
||||||
|
| Peony
|
||||||
|
| BushClover
|
||||||
|
| SusukiGrass
|
||||||
|
| Chrysanthemum
|
||||||
|
| Maple
|
||||||
|
| Willow
|
||||||
|
| Paulownia
|
||||||
|
deriving (Eq, Ord, Enum, Show)
|
||||||
|
|
||||||
|
flower :: Card -> Flower
|
||||||
|
flower (Card n) = toEnum $ n `div` 4
|
||||||
|
|
||||||
|
set :: [Int] -> Pack
|
||||||
|
set = foldl setBit 0
|
||||||
|
|
||||||
|
inoshikacho :: Pack
|
||||||
|
inoshikacho = set [23, 27, 39]
|
||||||
|
|
||||||
|
animals :: Pack
|
||||||
|
animals = set [7, 15, 19, 30, 35, 42] .|. inoshikacho
|
||||||
|
|
||||||
|
blue :: Pack
|
||||||
|
blue = set [22, 37, 41]
|
||||||
|
|
||||||
|
poetry :: Pack
|
||||||
|
poetry = set [2, 6, 10]
|
||||||
|
|
||||||
|
ribbons = set [14, 18, 26, 41] .|. blue .|. poetry
|
||||||
|
|
||||||
|
lights :: Pack
|
||||||
|
lights = set [3, 11, 31, 43, 47]
|
||||||
|
|
||||||
|
pair :: Card -> Card -> Bool
|
||||||
|
pair card1 card2 = flower card1 == flower card2
|
||||||
|
|
||||||
|
cards :: [Card]
|
||||||
|
cards = map Card [0..47]
|
Loading…
Reference in New Issue