Skip to content

Instantly share code, notes, and snippets.

View DanielFabian's full-sized avatar

Daniel Fabian DanielFabian

View GitHub Profile
[1 .. N]
|> List.map (fun _ -> Console.In.ReadLine())
|> List.map (fun line -> line.Split ';')
|> List.map (fun splittedLine ->
match splittedLine with
| [|_; name; _; _; longitude; latitude|] -> name, parse longitude, parse latitude
| _ -> failwith "wrong number of columns")
|> List.minBy (fun (_, longitude, latitude) -> distance (longitude, latitude) (parse LON, parse LAT))
|> fun (name, _, _) -> printfn "%s" name
@DanielFabian
DanielFabian / json-playground.fs
Created April 17, 2015 12:07
A playground for JSON.Net
open Newtonsoft.Json
type FightSummary =
{
event: string
winner: string option
loser: string option
}
type FighterOverallStatsInASpecificFight =
@DanielFabian
DanielFabian / depGraph.dot
Last active August 29, 2015 14:01
Dependency Graph
digraph project_dependency_graph {
rankdir=RL
"0: (fc=4, loc=547)" -> "2: (fc=2, loc=107)"
"0: (fc=4, loc=547)" -> "3: (fc=5, loc=574)"
"0: (fc=4, loc=547)" -> "15: (fc=37, loc=7668)"
"0: (fc=4, loc=547)" -> "19: (fc=1, loc=41)"
"0: (fc=4, loc=547)" -> "20: (fc=3, loc=470)"
"0: (fc=4, loc=547)" -> "21: (fc=10, loc=93696)"
"0: (fc=4, loc=547)" -> "26: (fc=2, loc=30)"
"0: (fc=4, loc=547)" -> "28: (fc=2, loc=393)"
@DanielFabian
DanielFabian / reproduce.fsx
Created November 13, 2013 15:34
Reproduce emacs problem with fsautocomplete.exe
#r @"FakeLib.dll"
open Fake
open AssemblyInfoFile
open Fake.Git
open System
open System.Globalization
open System.IO
open System.Text