Add deck

src/NoLimitHoldem.jl

@@ -4,5 +4,6 @@ using Random
 
 include("card.jl")
 include("hand.jl")
+include("deck.jl")
 
 end # module

src/deck.jl

@@ -0,0 +1,27 @@
+#### Deck
+
+export Deck,
+       shuffle!,
+       OrderedDeck
+
+struct Deck{C <: Vector}
+  cards::C
+end
+
+Base.length(deck::Deck) = length(deck.cards)
+Base.pop!(deck::Deck, n::Integer) = ntuple(i->pop!(deck.cards), n)
+
+function OrderedDeck()
+  deck = Card[]
+  for r in rank_list
+    for s in suit_list
+      push!(deck, Card(r,s))
+    end
+  end
+  return Deck(deck)
+end
+
+function shuffle!(deck::Deck)
+  deck.cards .= deck.cards[randperm(length(deck.cards))]
+  nothing
+end

test/Deck.jl

@@ -0,0 +1,15 @@
+using Test
+using NoLimitHoldem
+using NoLimitHoldem: suit_list, rank_list
+const NLH = NoLimitHoldem
+
+@testset "Deck" begin
+
+  deck = OrderedDeck()
+  @test length(deck) == 52
+  shuffle!(deck)
+
+  cards = pop!(deck, 2)
+  @test length(deck) == 50
+  @test length(cards) == 2
+end

test/runtests.jl

@@ -1,8 +1,7 @@
-using Test
-
 for submodule in [
                   "Card",
                   "Hand",
+                  "Deck",
                  ]
 
   println("Starting tests for $submodule")