You could do something like this:

1
2
3
4
5
let inline even (t:^T) =
  let (zero:^T) = LanguagePrimitives.GenericZero
  let (one:^T) = LanguagePrimitives.GenericOne
  let (two:^T) = one + one
  t % two = zero
By on 5/31/2010 8:16 PM ()
IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy
Built with WebSharper