Will Fitzgerald willf

## stats.rb
# Run the given block +num+ times and then print out the mean, median, min,
# max, and stddev of the run. For example:
#
# irb> stats(10) { sleep(rand / 100) }
# mean:   5.99ms
# median: 6.76ms
# min:    1.49ms
# max:    9.28ms
# stddev: 2.54ms

## f# stopwatch timing elapsed time.fs
open System
let sw = System.Diagnostics.Stopwatch()
sw.Start()
// some calculations
sw.Stop()
System.Console.WriteLine("Time elapsed: {0}", sw.Elapsed);;
// Time elapsed: 00:07:40.4029123
sw.Reset()

## sequence lines of text in f#.fs
open System
open System.IO

let readLines (sr:TextReader) =
    Seq.initInfinite (fun _ -> sr.ReadLine())
    |> Seq.takeWhile (fun x -> x <> null)

let consoleLines() =
    readLines Console.In

## bash command to sort on a tsv column, not the first column.sh
sort -k2 -rn -t"       "
# where the text bewteen the "" is Ctrl-V TAB

## use parallelisms.fsharp
#if INTERACTIVE
#r"FSharp.PowerPack.Parallel.Seq.dll"
#endif
// or add dll to References
open Microsoft.FSharp.Collections
[1;2;3] |> PSeq.sum;;

## text of the first 10 LI items in a XHTML document
need to change the DTD declarations to point to a local copy of the W3 DTD

locally:

> ls *.dtd *.ent
xhtml1-transitional.dtd  xhtml-lat1.ent  xhtml-special.ent  xhtml-symbol.ent

change:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" dir="ltr">

## do a sync http requesst.fs
open System
open System.IO
open System.Net
open System.Web

// get contents synchronously
let http_sync (uri:Uri)  =
  let reader =  new StreamReader(WebRequest.Create(uri).GetResponse().GetResponseStream())
  reader.ReadToEnd()

## gist:965713
func TestOutOfBoundsBad(t *testing.T) {
	v := MakeBitSet(64)
	defer func() {
	        if r := recover(); r == nil {
	            t.Error("Out of index error within the next set of bits should have caused a panic")
	        }
	    }()
	v.SetBit(1000)
}

## gist:965733
func TestIsBad(t *testing.T) {
	v := MakeBitSet(64)
	defer recover()
	v.SetBit(100)
	t.Fail()
}

## bitset.go
// Copyright 2011 Will Fitzgerald. All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.

/*
	Package bitset implements bitsets.

	It provides methods for making a bitset of an arbitrary
	upper limit, setting and testing bit locations, and clearing
	bit locations as well as the entire set.
	# Run the given block +num+ times and then print out the mean, median, min,
	# max, and stddev of the run. For example:
	#
	# irb> stats(10) { sleep(rand / 100) }
	# mean: 5.99ms
	# median: 6.76ms
	# min: 1.49ms
	# max: 9.28ms
	# stddev: 2.54ms
	open System
	let sw = System.Diagnostics.Stopwatch()
	sw.Start()
	// some calculations
	sw.Stop()
	System.Console.WriteLine("Time elapsed: {0}", sw.Elapsed);;
	// Time elapsed: 00:07:40.4029123
	sw.Reset()
	open System
	open System.IO

	let readLines (sr:TextReader) =
	Seq.initInfinite (fun _ -> sr.ReadLine())
	\|> Seq.takeWhile (fun x -> x <> null)

	let consoleLines() =
	readLines Console.In
	sort -k2 -rn -t" "
	# where the text bewteen the "" is Ctrl-V TAB
	#if INTERACTIVE
	#r"FSharp.PowerPack.Parallel.Seq.dll"
	#endif
	// or add dll to References
	open Microsoft.FSharp.Collections
	[1;2;3] \|> PSeq.sum;;
	need to change the DTD declarations to point to a local copy of the W3 DTD

	locally:

	> ls .dtd .ent
	xhtml1-transitional.dtd xhtml-lat1.ent xhtml-special.ent xhtml-symbol.ent

	change:
	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "xhtml1-transitional.dtd">
	<html xmlns="http://www.w3.org/1999/xhtml" lang="en" dir="ltr">
	open System
	open System.IO
	open System.Net
	open System.Web

	// get contents synchronously
	let http_sync (uri:Uri) =
	let reader = new StreamReader(WebRequest.Create(uri).GetResponse().GetResponseStream())
	reader.ReadToEnd()
	func TestOutOfBoundsBad(t *testing.T) {
	v := MakeBitSet(64)
	defer func() {
	if r := recover(); r == nil {
	t.Error("Out of index error within the next set of bits should have caused a panic")
	}
	}()
	v.SetBit(1000)
	}
	func TestIsBad(t *testing.T) {
	v := MakeBitSet(64)
	defer recover()
	v.SetBit(100)
	t.Fail()
	}
	// Copyright 2011 Will Fitzgerald. All rights reserved.
	// Use of this source code is governed by a BSD-style
	// license that can be found in the LICENSE file.

	/*
	Package bitset implements bitsets.

	It provides methods for making a bitset of an arbitrary
	upper limit, setting and testing bit locations, and clearing
	bit locations as well as the entire set.