csharpfftfsharpintegrationinterpolationlinear-algebramathdifferentiationmatrixnumericsrandomregressionstatisticsmathnet
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
48 lines
1.5 KiB
48 lines
1.5 KiB
//==========================================================================
|
|
// (c) Microsoft Corporation 2005-2009.
|
|
//==========================================================================
|
|
|
|
namespace Microsoft.FSharp.Compatibility
|
|
|
|
open Microsoft.FSharp.Core
|
|
open Microsoft.FSharp.Core.Operators
|
|
open Microsoft.FSharp.Core.LanguagePrimitives.IntrinsicOperators
|
|
|
|
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
|
module Byte=
|
|
|
|
let compare (x:byte) y = compare x y
|
|
|
|
let zero = 0uy
|
|
let one = 1uy
|
|
let add (x:byte) (y:byte) = x + y
|
|
let sub (x:byte) (y:byte) = x - y
|
|
let mul (x:byte) (y:byte) = x * y
|
|
let div (x:byte) (y:byte) = x / y
|
|
let rem (x:byte) (y:byte) = x % y
|
|
let succ (x:byte) = x + 1uy
|
|
let pred (x:byte) = x - 1uy
|
|
let max_int = 0xFFuy
|
|
let min_int = 0uy
|
|
let logand (x:byte) (y:byte) = x &&& y
|
|
let logor (x:byte) (y:byte) = x ||| y
|
|
let logxor (x:byte) (y:byte) = x ^^^ y
|
|
let lognot (x:byte) = ~~~x
|
|
let shift_left (x:byte) (n:int) = x <<< n
|
|
let shift_right (x:byte) (n:int) = x >>> n
|
|
let of_int (n:int) = byte n
|
|
let to_int (x:byte) = int x
|
|
let of_char (n:char) = byte n
|
|
let to_char (x:byte) = char x
|
|
let of_string (s:string) = byte (int32 s)
|
|
|
|
let to_string (x:byte) = (box x).ToString()
|
|
|
|
let of_int32 (n:int32) = byte n
|
|
let to_int32 (x:uint8) = int32 x
|
|
|
|
let of_uint16 (n:uint16) = byte n
|
|
let to_uint16 (x:uint8) = uint16 x
|
|
|
|
let of_uint32 (n:uint32) = byte n
|
|
let to_uint32 (x:uint8) = uint32 x
|
|
|