deneuxj

open System

(* Low-level F# implementation *)
let newRandomChar getRandomInt (chars : char[]) =
    let idx = getRandomInt()
    chars.[idx]

let newRandomWord (getRandomChar : unit -> char) length =
    let chars =
        Array.init length (fun _ -> getRandomChar())

deneuxj

namespace CleverRake.XnaUtils

open Microsoft.Xna.Framework
open System.Threading

type IFramePerSecondCounter =
    abstract FramesPerSecond : float

/// An update-able and drawable game component which performs light updates on the main thread,
/// then draws on a separate thread in parallel of more computation-heavy updates.

deneuxj

(*
* Filter a specified file into a second file
* Onorio Catenacci
* 21 October 2011
*)
#r "System.dll"

open System.IO

//Remember:

deneuxj

// Learn more about F# at http://fsharp.net

open System.Collections.Generic

let width = 7
let height = 6
let maxDepth = 7
let orangeWins = 1000000
let yellowWins = -orangeWins
let debug = ref true