Skip to content

Instantly share code, notes, and snippets.

Robert Pickering robertpi

Block or report user

Report or block robertpi

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@robertpi
robertpi / gist:11278941
Created Apr 25, 2014
Dns.GetHostAddresses only returns one address in mono
View gist:11278941
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
View LorenzAttractor.fs
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 =
View CelebratePride.fsx
// 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
View pathopub.cs
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading;
using ZeroMQ;
namespace Examples
{
View log_curve.txt
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
View hwclient.cs
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading;
using ZeroMQ;
namespace Examples
{
View tweet.fs
#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)
View findusedfiles.fs
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
View findduptreeconflict.fs
// 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)
View logprimatives.fsx
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))
You can’t perform that action at this time.