This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 = |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
using System; | |
using System.Collections.Generic; | |
using System.Linq; | |
using System.Text; | |
using System.Threading; | |
using ZeroMQ; | |
namespace Examples | |
{ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
using System; | |
using System.Collections.Generic; | |
using System.Linq; | |
using System.Text; | |
using System.Threading; | |
using ZeroMQ; | |
namespace Examples | |
{ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// 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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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)) |
OlderNewer