24 February, 2009, 01:19
Although it has been a while since Brian posted the poker problem in his blog, I haven’t got the chance to look at it until I came across in ProjectEuler Problem 54. It is not the elegant or best solution at all, but just wanted to join the crew and can confirm it works with the problem’s 1000 games’ dataset.
Hope this helps.
#light
(* Problem 54 *)
type suit = |Spades |Hearts |Clubs |Diamonds
type card= |Ace = 14 |Two = 2 |Three =3 |Four = 4 |Five = 5 |Six = 6
|Seven =7 |Eight = 8 |Nine = 9 |Ten = 10 |Jack = 11 |Queen =12 |King =13
type acard = (card * suit)
let carder x:card= enum x
let card_value = function
| 'A' -> card.Ace
| 'K' -> card.King
| 'Q' -> card.Queen
| 'J' -> card.Jack
| 'T' -> card.Ten
| c -> carder(System.Int32.Parse(c.ToString()))
let suit_value = function
| 'S' -> Spades
| 'H' -> Hearts
| 'C' -> Clubs
| 'D' -> Diamonds
| a -> invalid_arg (a.ToString())
let Create (str: string) :acard = (card_value str.[0],suit_value str.[1])
let isstraigh (mycards:acard list) =
let mycards = List.sort_by (fun (a,b) -> a,b) mycards
let rec isstr previouscard mycards (straightlist : acard list) =
if straightlist.Length >= 5 then straightlist
else match mycards with
| cur :: rest -> if int (fst cur) = int ((fst previouscard)) + 1 then isstr cur rest (cur::straightlist)
else isstr cur rest []
| _ -> []
let head = List.hd mycards
isstr head (List.tl mycards) [head]
let pairl (mycards : acard list) groupfunction minelementCount =
mycards |> Seq.group_by groupfunction
|> Seq.filter (fun a -> Seq.length (snd a) >= minelementCount)
|> Seq.to_list
|> List.unzip
type Ranks =
| Highest of card
| Pair of card
| TwoPair of card*card
| Three of card
| Straight of card
| Flush of card
| FullHouse of card*card
| Four of card
| StraightFlush of card
type Player = |One |Two |Noone
let rank (mycards : acard list) =
let traverseL (l :'a list) = if not l.IsEmpty then l |> List.hd |> Seq.to_list
else []
let isflush mycards = snd (pairl mycards snd 5) |> traverseL
let FofF l = traverseL l |> List.hd |> fst
let flush = isflush mycards
let straight = isstraigh mycards
let ispair count= pairl mycards fst count
let four,fours = let f,s = ispair 4
f,s|> traverseL
let three,threes = ispair 3
let two,twos = ispair 2
let maxcard c = fst (List.max c)
if not flush.IsEmpty && not straight.IsEmpty then StraightFlush(maxcard flush),flush
elif not fours.IsEmpty then Four(four.Head),fours
elif not threes.IsEmpty && not twos.IsEmpty && FofF twos <> FofF threes then FullHouse(two.Head, three.Head), List.append (threes |> traverseL) (traverseL twos)
elif not flush.IsEmpty then Flush(maxcard flush),flush
elif not straight.IsEmpty then Straight(maxcard straight),straight
elif not three.IsEmpty then Three( three.Head), threes |> traverseL
elif List.length two = 2 then TwoPair(two.Head,two.Tail.Head),Seq.append (twos.Head) (twos.Tail.Head) |> Seq.to_list
elif not (twos |> traverseL).IsEmpty then Pair(two.Head), twos |> traverseL
else Highest(maxcard mycards), [List.max mycards]
let play input =
let convert (line: string) = let l = line.Split([|' '|])
[|[for j in 0 .. 4 do yield Create( l.[j])]; [for j in 5 .. 9 do yield Create( l.[j])]|]
let playercrds = convert input
let rec iswinner pcards=
let ranks,rankcards = pcards |> Array.map (rank) |> Array.unzip
let removecards (mainlist) (toberemoved) =
mainlist |> Array.map2 (fun rem main-> main |> List.filter (fun c->
List.fold_left(fun ac x-> if x = c then ac && false else ac && true) true rem)) toberemoved
if ranks.[0]>ranks.[1] then One
elif ranks.[0]<ranks.[1] then Two
else iswinner (removecards pcards rankcards)
iswinner playercrds
play "5H 5C 6S 7S KD 2C 3S 8S 8D TD"
play "5D 8C 9S JS AC 2C 5C 7D 8S QH"
play "2D 9C AS AH AC 3D 6D 7D TD QD"
play "4D 6S 9H QH QC 3D 6D 7H QD QS" // prob pair queens look at the highes
play "2H 2D 4C 4D 4S 3C 3D 3S 9S 9D"
play "2H 2D 4C 4D 4S 2H 2D 4C 4D 4S"
play "TH 8D 6C 4D 3S TH 8D 6C 4D 4S"
let rdinput = use file = System.IO.File.OpenText("poker.txt")
let p1count = ref 0
while not file.EndOfStream do
if play (file.ReadLine()) = One then p1count := !p1count+1
file.Close()
!p1count
20 February, 2009, 16:03
Multiple Inheritance is a feature that a class that can inherit more than one class. Although CLR does not really care about it, it is not possible in the mainstream .NET languages to have multiple inheritance.
It is arguable that why we would ever need multiple inheritance. I think it is the same paradox as having dynamic types in a statically typed language. I am not going into that debate as it is already decided for almost a decade. This is an attempt on how to achieve the same effect using dynamic types easily.
In C++, multiple inheritance can simply be expressed like this :
class Auto {
public:
virtual void Go(int a) {}
virtual ~Auto() {}
};
class Animal {
public:
virtual void Go() {}
virtual ~Animal() {}
};
class SampleClass : public Auto, public Animal{};
int main() {
SampleClass *a = new SampleClass();
//a->Go(5); // Compiler error for ambigouity
//a->Go("going"); // Compiler error for missing method
Animal* an = dynamic_cast<Animal*>(a);
an->Go();
Auto* at = dynamic_cast<Auto*>(a);
at->Go(7);
}When C# introduced dynamic type system and shared type system with C# 4, I thought it should be possible to express multiple inheritance using the new syntax. More like a forced Javascript prototypal inheritance instead of classical inheritance. However it turned out that it was even easier than that. It is relying on the runtime to operate on the types underlying with dynamic conversions, simply reflection.
Obviously it is not forced by the compiler, and you wouldn’t get intellisense but it will behave like a multiple inherited object. To achieve that the dynamic features of C# 4 has been used.
The same implementation in C# using Minherit object that has been created for reflected multiple inheritance.
So in C#, it would look like this :
public class Auto
{
public string Go(int a) {}
}
public class Animal
{
public string Go() {}
}
public class SampleClass : Minherit<Auto, Animal>
{
static void Main(string[] args)
{
dynamic sample = new SampleClass();
a.Go(4); // this will succeed at runtime and call the first Go(int)
a.Go("going"); // runtime error for missing method
Animal an = (Animal)sample;
Auto x = (Auto)sample;
an.Go();
x.Go(7);
}
}It uses dynamic sample that has come with .NET Framework 4 CTP. I actually think that sample will go to mscorlib with the final release in the System namespace
As the code got a bit long, I post it as project zip file if you are interested.
File Name: cs4trials.zip
It is possible to create multiple inheritance abstraction as shown below. Here are the selected four methods to display how the GetMember and SetMember is implemented.
public override object Call(CallAction action, params object[] args)
{
var objMethod = GetMember<MethodInfo>(this, action.Name).Concat(
GetMember<MethodInfo>(base1, action.Name)).Concat(
GetMember<MethodInfo>(base2, action.Name));
object result = null;
bool executionSuccess = false;
foreach (var item in objMethod)
{
try
{
result = item.Second.Invoke(item.First, args);
executionSuccess = true;
break;
}
catch
{
}
}
if (executionSuccess)
{
return result;
}
else
{
throw new MissingMethodException(action.Name);
}
}
private IEnumerable<Pair<object, T>> GetMember<T>(object obj, string name)
{
return from member in obj.GetType().GetMember(name).OfType<T>()
select new Pair<object, T>(obj, member);
}
public override object GetMember(GetMemberAction action)
{
var property = GetMember<PropertyInfo>(this, action.Name).Concat(
GetMember<PropertyInfo>(base1, action.Name)).Concat(
GetMember<PropertyInfo>(base2, action.Name)).FirstOrDefault();
var field = GetMember<FieldInfo>(this, action.Name).Concat(
GetMember<FieldInfo>(base1, action.Name)).Concat(
GetMember<FieldInfo>(base2, action.Name)).FirstOrDefault();
if (property != null)
{
return property.Second.GetValue(property.First, null);
}
else if (field != null)
{
return field.Second.GetValue(field.First);
}
else
{
throw new MissingMemberException(action.Name);
}
}
public override void SetMember(SetMemberAction action, object value)
{
var properties = GetMember<PropertyInfo>(this, action.Name).Concat(
GetMember<PropertyInfo>(base1, action.Name)).Concat(
GetMember<PropertyInfo>(base2, action.Name));
var fields = GetMember<FieldInfo>(this, action.Name).Concat(
GetMember<FieldInfo>(base1, action.Name)).Concat(
GetMember<FieldInfo>(base2, action.Name));
bool issucceess = false;
foreach (var property in properties)
{
try
{
property.Second.SetValue(property.First, value, null);
issucceess = true;
break;
}
catch { }
}
if (!issucceess)
{
foreach (var field in fields)
{
try
{
field.Second.SetValue(field.First, value);
issucceess = true;
break;
}
catch { }
}
}
if (!issucceess)
{
throw new MissingMemberException(action.Name);
}
}
20 July, 2008, 00:50
I was using Eclipse for one for the previous projects as a development environment. It has some powerful features. But I have to say not as powerful as Visual Studio. Anyway since it is possibly the best IDE for Java development it was my choice on the day of implementation.
The project that I was working was done using Borland’s Jbuilder. Unfortunately that IDE doesn’t exist anymore as it is discontinued by a new company. Thanks to Eclipse import project wizard, the project migration wasn’t difficult at all.
I just opened the project XML and the project was ready to be working. However, when using with different big open source libraries, Eclipse has a problem in managing them. Actually I have a problem in managing them, because I need to find the required version of each dependency and so on. It is the difficulty of package and build management of eclipse.
It is often difficult to reference a library and get all the dependencies on Eclipse. Somehow it doesn’t warn at compile time as well and you get exception at runtime which is not nice enough.
Than I found a project called Maven for doing proper build systems. What it does is has an online repository that have all the dependencies filed and it downloads the required assemblies for your project. So you don’t have download each package separately and link to project. All the best it is very well integrated with eclipse with its marvelous plug-in.
You load the plug-in and tell maven to add a reference to your project. I know Java programmers call this as something else but since I’m mainly a .NET programmer I hope somebody will find it useful.
Anyway, it stores the configuration in XML file that you can tweak it later if needed. All the updates to the references can happen automatically as well which is quite nice.
20 July, 2008, 00:23
Last year, Windows Kernel team released a new cryptography libraries called Next Generation Cryptography (CNG). Although it is only available on Windows Vista and Windows Server 2008 kernels so far, I think it is going to replace the CAPICOM with its powerful new implementations.
I quite liked the new CNG libraries as it gets over some limitations of the previous library.
CLR security team released a new project on codeplex called CLR Security for that new cryptography library on .NET. So it is possible to benefit from those libraries in managed worlds as well. For a detailed description be sure to check security blog.
Also, the team is very quick to respond and provide fixes if necessary.
19 July, 2008, 23:43
I was thinking of reading a Lisp book. I checked the titles and decided to buy,
luckily, it’s freely provided in the Apress’ Practical Common Lisp page.
I doubt that it is done by mistake, because the e-book price is also indicated but anyway there is a free link to download it.
9 April, 2008, 01:11
I was working with C++ Standard Template Library (STL) library and when using the StringStream class I felt like we need this for .NET 
Yes we have a great class StringBuilder but we can’t use it as a Stream (because it is not).
Most of the cryptographic classes works with the stream object. I wanted to save the encrypted information as text. Ideally we could use memoryStream but it is not really efficient, because it is bits and we need to build a model for serializing/deserializing as text.
String Stream class (as I call it) is just an ugly but functional wrapper around StringBuilder class as shown some snippets below. I just wanted it to use with encryption and decryption a string. So only the functions needed is there which is enough to use. But I doubt it leaks a little, so use with care if needed.
public class StringStream : Stream
{
private StringBuilder strBuilder;
public StringStream()
{ strBuilder = new StringBuilder(); }
public StringStream(string str)
{ strBuilder = new StringBuilder(str); }
public override int Read(byte[] buffer, int offset, int count)
{
int howMuchRead = 0;
for (int i = offset; i < count; i++)
{
var actualIndex = i * 2;
howMuchRead = i+1;
if (actualIndex >= strBuilder.Length)
{
howMuchRead = count;
break;
}
string s = strBuilder[actualIndex].ToString() + strBuilder[actualIndex + 1].ToString();
buffer[i] = Convert.ToByte(s,16);
}
return howMuchRead;
}
public override void Write(byte[] buffer, int offset, int count)
{
for (int i = offset; i < count; i++)
{
strBuilder.Append(buffer[i].ToString("x2"));
}
}
}
File Name: StringStream.cs
The main magic is happening on reading and writing. each byte is represented as 2 characters in the string. It is using the helper function Convert.ToByte to make it happen.
In the next post I will use it with a symmetric encryption helper class.
I hope...
