From 7d52eb0ee66383065104c00888187e8ef6e3f4dd Mon Sep 17 00:00:00 2001
From: roca <romelcampbell@gmail.com>
Date: Fri, 1 Feb 2013 13:24:35 -0500
Subject: [PATCH]  Assignment 2 Excersize 2.b

---
 hw2provided.sml      | 11 ++++++++++-
 hw2providedTests.sml | 13 +++++++++++++
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/hw2provided.sml b/hw2provided.sml
index dad3a53..c3f3e3b 100644
--- a/hw2provided.sml
+++ b/hw2provided.sml
@@ -102,4 +102,13 @@ fun card_color(card) =
    (Spades , _) => Black
    |(Clubs , _) => Black
    |(Diamonds , _) => Red
-   |(Hearts , _) => Red
\ No newline at end of file
+   |(Hearts , _) => Red
+
+fun card_value(card) =
+  case card of
+   (_ , Jack) => 10
+   |(_ , Queen) => 10
+   |(_ , King) => 10
+   |(_ , Ace) => 11
+   | (_,Num  x) => x
+
diff --git a/hw2providedTests.sml b/hw2providedTests.sml
index dcb1a80..05b99bb 100644
--- a/hw2providedTests.sml
+++ b/hw2providedTests.sml
@@ -29,3 +29,16 @@ card_color(Spades,Ace) = Black;
 card_color(Clubs,Ace) = Black;
 card_color(Diamonds,Ace) = Red;
 card_color(Hearts,Ace) = Red;
+
+
+(* 2.b *)
+card_value(Spades,Ace) = 11;
+card_value(Clubs,Ace) = 11;
+card_value(Diamonds,Ace) = 11;
+card_value(Hearts,Ace) = 11;
+
+card_value(Spades,Num 9) = 9;
+card_value(Spades,Num 3) = 3;
+card_value(Clubs,Jack) = 10;
+card_value(Diamonds,Queen) = 10;
+card_value(Hearts,King) = 10;