Playing cards: Difference between revisions

=={{header|Scala}}==

<lang scala>import scala.annotation.tailrec

import scala.util.Random

object Pip extends Enumeration {

type Pip = Value

val Two, Three, Four, Five, Six, Seven, Eight, Nine, Ten, Jack, Queen, King, Ace = Value

}

object Suit extends Enumeration {

type Suit = Value

val Diamonds, Spades, Hearts, Clubs = Value

}

import Suit._

import Pip._

case class Card(suit:Suit, value:Pip){

override def toString():String=value + " of " + suit

}

class Deck private(val cards:List[Card]) {

def this()=this(for {s <- Suit.values.toList; v <- Pip.values} yield Card(s,v))

def shuffle:Deck=new Deck(Random.shuffle(cards))

def deal(n:Int=1):(Seq[Card], Deck)={

@tailrec def loop(count:Int, c:Seq[Card], d:Deck):(Seq[Card], Deck)={

if(count==0 || d.cards==Nil) (c,d)

else {

val card :: deck = d.cards

loop(count-1, c :+ card, new Deck(deck))

}

}

loop(n, Seq(), this)

}

override def toString():String="Deck: " + (cards mkString ", ")

}</lang>

Usage:

<lang scala>val deck=new Deck()

val deckShuffled:Deck=deck.shuffle

println(deck)

println(deckShuffled)

val (a, rest) = deckShuffled.deal()

val (b, rest2) = rest.deal()

println(a head)

println(b head)

val (cards, rest3) =deckShuffled deal 6

println(cards)

println(rest3)</lang>

Output:

<pre>Deck: Four of Diamonds, Two of Diamonds, Queen of Diamonds, Jack of Diamonds, Nine of Diamonds, Five of Diamonds, Seven of Diamonds, Ten of Diamonds, Six of Diamonds, Ace of Diamonds, King of Diamonds, Three of Diamonds, Eight of Diamonds, Ten of Spades, Seven of Spades, Eight of Spades, King of Spades, Ace of Spades, Three of Spades, Queen of Spades, Jack of Spades, Six of Spades, Five of Spades, Nine of Spades, Four of Spades, Two of Spades, Seven of Hearts, Queen of Hearts, Two of Hearts, Ten of Hearts, Eight of Hearts, Jack of Hearts, Four of Hearts, Nine of Hearts, Six of Hearts, King of Hearts, Five of Hearts, Three of Hearts, Ace of Hearts, King of Clubs, Jack of Clubs, Queen of Clubs, Six of Clubs, Three of Clubs, Two of Clubs, Eight of Clubs, Seven of Clubs, Ace of Clubs, Four of Clubs, Nine of Clubs, Five of Clubs, Ten of Clubs

Deck: Two of Clubs, Three of Diamonds, King of Clubs, Six of Hearts, Four of Spades, Nine of Clubs, Queen of Hearts, Six of Spades, Ace of Hearts, Jack of Diamonds, Jack of Hearts, Ten of Hearts, Two of Spades, Eight of Diamonds, Four of Hearts, Ace of Spades, Three of Hearts, King of Diamonds, King of Hearts, Five of Diamonds, Five of Spades, Queen of Diamonds, Seven of Spades, Eight of Clubs, Eight of Spades, Seven of Clubs, Nine of Spades, Eight of Hearts, Jack of Clubs, Ten of Clubs, Queen of Clubs, Ten of Diamonds, Seven of Hearts, Nine of Hearts, Two of Diamonds, Two of Hearts, Four of Diamonds, Five of Hearts, Three of Clubs, Three of Spades, Queen of Spades, Five of Clubs, Ace of Diamonds, Ace of Clubs, Jack of Spades, Six of Clubs, Six of Diamonds, King of Spades, Four of Clubs, Seven of Diamonds, Nine of Diamonds, Ten of Spades

Two of Clubs

Three of Diamonds

List(Two of Clubs, Three of Diamonds, King of Clubs, Six of Hearts, Four of Spades, Nine of Clubs)

Deck: Queen of Hearts, Six of Spades, Ace of Hearts, Jack of Diamonds, Jack of Hearts, Ten of Hearts, Two of Spades, Eight of Diamonds, Four of Hearts, Ace of Spades, Three of Hearts, King of Diamonds, King of Hearts, Five of Diamonds, Five of Spades, Queen of Diamonds, Seven of Spades, Eight of Clubs, Eight of Spades, Seven of Clubs, Nine of Spades, Eight of Hearts, Jack of Clubs, Ten of Clubs, Queen of Clubs, Ten of Diamonds, Seven of Hearts, Nine of Hearts, Two of Diamonds, Two of Hearts, Four of Diamonds, Five of Hearts, Three of Clubs, Three of Spades, Queen of Spades, Five of Clubs, Ace of Diamonds, Ace of Clubs, Jack of Spades, Six of Clubs, Six of Diamonds, King of Spades, Four of Clubs, Seven of Diamonds, Nine of Diamonds, Ten of Spades

</pre>