memory.elm

import List
import Set
import Html exposing (text)

type Suit = Hearts | Spades | Clubs | Diamonds

type Value = Two | Three | Four | Five | Six | Seven | Eight | Nine |
  Ten | Jack | Queen | King | Ace
  
type alias Card = (Suit, Value)

type alias Deck = List Card

suits : List Suit
suits = [Hearts, Spades, Clubs, Diamonds]

values : List Value
values = [Two, Three, Four, Five, Six, Seven, Eight, Nine, Ten, Jack, Queen, King, Ace]

replicate : Int -> a -> List a
replicate n a =
  if n <= 0 then [] else a :: (replicate (n-1) a)

-- no applicative :(
makeDeck : Deck
makeDeck = List.concatMap (\v -> List.map (\s -> (s, v)) suits) values

main =
  makeDeck |>
  List.filter (\(s,v) -> s == Hearts) |>
  replicate 1 |>
  toString |>
  text