Skip to content

Instantly share code, notes, and snippets.

@larsw
larsw / -
Created August 25, 2015 08:49
module Kodekamp
open System
open System.IO
open System.Security.Cryptography
type Arguments = { ByteCount: int64; Path: string; }
let (|Long|_|) str =
match Int64.TryParse(str) with
@larsw
larsw / -
Created August 25, 2015 07:12
Searching for duplicates in '/home/larsw/'...
Unhandled Exception:
System.UnauthorizedAccessException: Access to the path "/home/larsw/.cache/dconf" is denied.
at System.IO.Directory+<EnumerateKind>c__Iterator0.MoveNext () [0x00000] in <filename unknown>:0
at [email protected] (IEnumerable`1& next) [0x00000] in <filename unknown>:0
at Microsoft.FSharp.Core.CompilerServices.GeneratedSequenceBase`1[System.String].MoveNextImpl () [0x00000] in <filename unknown>:0
at Microsoft.FSharp.Core.CompilerServices.GeneratedSequenceBase`1[System.String].System-Collections-IEnumerator-MoveNext () [0x00000] in <filename unknown>:0
at [email protected] (IEnumerable`1& next) [0x00000] in <filename unknown>:0
@larsw
larsw / Kodekamp2.fs
Last active August 29, 2015 14:28 — forked from khellang/Kodekamp2.fs
File Dedupe checker (based on @khellang original code).
module Kodekamp
open System
open System.IO
open System.Security.Cryptography
type Arguments = { ByteCount: int64; Path: string; }
let (|Long|_|) str =
match Int64.TryParse(str) with

Single Malt Scotch Whisky GraphGist

@larsw
larsw / degree.cql
Created August 5, 2015 08:56
Can this neo4j Cypher query for in & out (afferent & efferent) and combined degree be optimized/reduced?
START n = node(*)
RETURN n.name, length((n)-->()) AS efferent,
length((n)<--()) AS afferent,
length((n)-->()) + length((n)<--()) AS degree
startup, version: 3065 linux x64 channel: stable
executable: /opt/sublime_text/sublime_text
working dir: /
packages path: /home/larsw/.config/sublime-text-3/Packages
state path: /home/larsw/.config/sublime-text-3/Local
hardware concurrency: 4
zip path: /opt/sublime_text/Packages
zip path: /home/larsw/.config/sublime-text-3/Installed Packages
found 5 files for base name Default.sublime-keymap
found 1 files for base name Default.sublime-mousemap
Installed out/save/xlogfile.
Source file 'out/nethack4' was overwritten during the build, make sure your build rules are correct at ../aimake line 8617.
main::__ANON__() called at ../aimake line 6221
main::atomically('CODE(0x7ffefe3669d0)') called at ../aimake line 8656
at ../aimake line 6270.
main::__ANON__('Source file \'out/nethack4\' was overwritten during the build...') called at /System/Library/Perl/5.18/Carp.pm line 100
Carp::croak('Source file \'out/nethack4\' was overwritten during the build...') called at ../aimake line 8617
main::__ANON__() called at ../aimake line 6221
main::atomically('CODE(0x7ffefe3669d0)') called at ../aimake line 8656
module XsdFs.Program
open System;
open System.IO;
open System.Collections.Generic;
open System.Reflection;
open System.Text;
open System.Xml;
open System.Xml.Serialization;
open System.Xml.Schema;
traceroute to jabbr.net (137.117.17.70), 64 hops max, 52 byte packets
1 10.236.0.1 (10.236.0.1) 12.432 ms 8.966 ms 8.130 ms
2 cm-84.208.41.60.getinternet.no (84.208.41.60) 9.125 ms 7.653 ms 8.434 ms
3 149.6.116.154 (149.6.116.154) 10.605 ms 11.023 ms 13.875 ms
4 te2-5.ccr01.osl01.atlas.cogentco.com (149.6.116.153) 12.163 ms 8.460 ms 12.741 ms
5 te0-1-0-3.ccr21.sto03.atlas.cogentco.com (154.54.62.233) 19.976 ms
te0-1-0-3.ccr22.sto03.atlas.cogentco.com (154.54.62.229) 19.253 ms
te0-1-0-3.ccr21.sto03.atlas.cogentco.com (154.54.62.233) 18.953 ms
6 be2397.ccr21.sto01.atlas.cogentco.com (130.117.50.130) 18.619 ms
be2396.ccr21.sto01.atlas.cogentco.com (130.117.50.122) 27.141 ms 16.838 ms
internal class MassTransitDispatcher : IObserver<ICommit>
{
private readonly IServiceBus _bus;
public MassTransitDispatcher(IServiceBus bus)
{
_bus = bus;
}
public void Dispose()