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
View rolly.fs
// this roll why function seems to work on a small 5 x 5 matrix
// but doesn't for bigger 227 x 227 image
// no idea why
let rollArrayY yLength shift (data:'t[]) =
let shift =
if shift > 0 then
shift
else
yLength + shift
let out:'t[] = Array.zeroCreate data.Length
View unfold.fsx
let walkCommits (hash: Hash, count) =
printfn "%s %s %s" objectsDir hash.DirectoryName hash.FileName
let objectPath = Path.Combine(objectsDir, hash.DirectoryName, hash.FileName)
printfn "objectPath: %s" objectPath
let gitObject = GitObject.ParseFile objectPath
match gitObject with
| Commit (_, commit) ->
match commit.Parent with
| Some (hash) when count < 10 ->
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 pathopub.cs
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading;
using ZeroMQ;
namespace Examples
{
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 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 =
You can’t perform that action at this time.