robertpi

robert@fotnmc:~/code/BitcoinFs$ nslookup seed.bitcoin.sipa.be
Server:		127.0.0.1
Address:	127.0.0.1#53

Non-authoritative answer:
Name:	seed.bitcoin.sipa.be
Address: 71.172.136.155
Name:	seed.bitcoin.sipa.be
Address: 108.183.38.208
Name:	seed.bitcoin.sipa.be

robertpi

open System.Windows.Forms
open System.Drawing

let dt = 0.01

let sigma=10. 
let beta=8./3.
let rho=28.0

let lorentzDeriv x y z dt sigma beta rho =

robertpi

// Are you an F# programer with a liberal point of view?
// Do you want to show your happiness at the advancement of gay right?
// But hate the convience of using a facebook app to rainbowify your profile photo?
// Simple, use this script instead!

open System.Drawing
open System.Runtime.InteropServices
open System.Drawing.Imaging
open System.IO

robertpi

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading;

using ZeroMQ;

namespace Examples
{

robertpi

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading;

using ZeroMQ;

namespace Examples
{

robertpi

Usage: ./TestHw.exe HWServer [Name]

    Name   Your name. Default: World

zmq::stream_engine_t::in_event start
zmq::stream_engine_t::in_event handshake failed - exiting
zmq::stream_engine_t::in_event start
zmq::stream_engine_t::in_event handshake failed - exiting
zmq::stream_engine_t::in_event start

robertpi

#light
// ported from the C#: http://www.dreamincode.net/code/snippet2556.htm
open System
open System.Net
open System.Text

let postTweet username password tweet =
    let user = Convert.ToBase64String(Encoding.UTF8.GetBytes(username + ":" + password))
    // determine what we want to upload as a status
    let bytes = Encoding.ASCII.GetBytes("status=" + tweet)

robertpi

open System.IO
open System.Xml

let initDir = @"C:\Users\Workspace\Storm.Xsor-SDP-clean"

let fileSet =
    Directory.GetFiles(initDir, "*.*", SearchOption.AllDirectories)
    |> Seq.filter (fun path -> not (path.EndsWith(".csproj") || path.EndsWith(".sln") || path.Contains(".svn") ))
    |> Seq.map (fun path -> path.Replace(initDir, ""))
    |> Set.ofSeq

robertpi

// scrip for finding problem "svn: Attempt to add tree conflict that already exists"
open System.IO

let logLines = 
    File.ReadAllLines @"C:\USERS\Visual Studio 2008\Projects\FindDup\FindDup\svnlog.txt"
    |> Seq.filter (fun x -> x.StartsWith("Tree conflict:"))
    |> Seq.groupBy (fun x -> x)
    |> Seq.map (fun (key, vals) -> key, Seq.length vals)
    |> Seq.filter (fun (_, count) -> count > 1)

robertpi

module LP
open System
open System.IO
open System.Text.RegularExpressions

/// Opens the given file and returns a sequence of it's lines. This sequence is lazy, as lines are consumed they
/// will be read from the disk. This is useful for large files as it provides a convient way to read them without
/// pulling them all into memory
let readAllLinesLazy file =
  seq { use textReader = new StreamReader(File.Open(file, FileMode.Open, FileAccess.Read))