F# Beginnings

open System

#light // Hello world let a = “Hello, world!”;

let mutable b = 0;
while b < 10 do b <- b+1
Console.WriteLine(a + b.ToString())

Console.ReadLine()

> ignore

// recursive binary search - http://rosettacode.org/wiki/Binary_search#F.23
let items = [| 10; 20; 30; 40; 50; 60; 70; 80; 90; 100; |]

let rec binarySearch (arr:int[], low:int, high:int, value:int) = if (high < low) then
false
else
let mid = (low + high) / 2

    if (arr.\[mid\] > value) then binarySearch (arr, low, mid-1, value)
    else if (arr.\[mid\] < value) then binarySearch (arr, mid+1, high, value)
    else  
        true  

let result = binarySearch (items, 0, 10, 80);
let any_to_string = sprintf “%A” printf “Binary Search found: %s\n” (any_to_string result);

Console.ReadLine()

> ignore

// run for one minute let time = DateTime.Now.AddHours(0.5).Ticks;
let mutable continueRunning = true
let dt = DateTime.Now.AddMinutes(1.0)
while continueRunning do
let currentTime = System.DateTime.Now.ToString()
Console.WriteLine currentTime |> ignore
if System.DateTime.Now.Ticks > dt.Ticks then continueRunning <- false

Published: 07/03/2011

Share on Twitter