pirrmann

.assembly ConsoleApp
{
}

.class public auto ansi abstract sealed beforefieldinit Program
    extends System.Object
{
    // Methods
    .method assembly hidebysig static 
        int32 FibAcc (

pirrmann

let stringToCharList (s:string) = Seq.toList s
let charListToString (chars: char list) = System.String(List.toArray chars)

let shiftCharList (charList: char list) =
    charList // not really shifted

let rot13 (s: string) =
  let charList = stringToCharList s
  let shiftedCharList = shiftCharList charList
  charListToString shiftedCharList

pirrmann

type DifferenceType<'TKey, 'T> =
    | Added of 'TKey * 'T
    | Removed of 'TKey * 'T
    | Modified of 'TKey * 'T * 'T * seq<string * (string * string)> with
    member this.Key =
        match this with
        | Added (key, _)
        | Removed (key, _)
        | Modified (key, _, _, _) -> key

pirrmann

module Document.Core

type Emphasis = | Regular | Medium | Strong
type TextPart = { Text:string; Emphasis:Emphasis; Style:string option }
                with static member Regular(text) = { Text=text; Emphasis=Regular; Style=None }
                     static member Medium(text) = { Text=text; Emphasis=Medium; Style=None }
                     static member Strong(text) = { Text=text; Emphasis=Strong; Style=None }

type Text = Text of TextPart list
            with static member Regular(text) = Text([TextPart.Regular(text)])

pirrmann

#r "../packages/FSketch/lib/net452/FSketch.dll"
#r "../packages/FSketch.Svg/lib/net452/FSketch.Svg.dll"
#r "../packages/FSketch.Drawing/lib/net452/FSketch.Drawing.dll"
open FSketch
open FSketch.Dsl
open FSketch.Builder

#r "../packages/FSketch.Winforms/lib/net452/FSketch.Winforms.dll"
fsi.AddPrintTransformer(fun (shapes:FSketch.Shapes) ->
                           shapes |> FSketch.Frame.FromShapes |> FSketch.Winforms.WinformsDrawer.Draw |> ignore

pirrmann

type Result<'T> =
    | Success of 'T
    | Failure of string

let bind f = function | Success a -> f a | Failure b -> Failure b
let map f = function | Success a -> Success (f a) | Failure b -> Failure b

let private combine2 fn2 fn1 arg =
    match (fn1 arg, fn2 arg) with
    | Success a, Success b -> Success (a, b)

pirrmann

let file = System.IO.File.ReadAllText(__SOURCE_DIRECTORY__ + "/training.csv")

let parseLine line =
    let makeWord = Seq.rev >> Seq.toArray >> System.String

    let rec parseFields chars =
        match chars with
        | '\"' :: chars' -> parseEscaped [] chars'
        | chars' -> parseUnescaped [] chars'
    and parseEscaped acc chars = seq {

pirrmann

open FSharp.Interop.Dynamic
open Dynamitey

let dynamicPropertyGet<'TResult> (name:string) (target:obj) : 'TResult option =
    let resultType = typeof<'TResult>
    let (|NoConversion| Conversion|) t = if t = typeof<obj> then NoConversion else Conversion

    let convert r = match resultType with | NoConversion -> r | _ -> dynImplicit(r)

    match target with

pirrmann

#r "packages/Unquote/lib/net45/Unquote.dll"

open FSharp.Quotations
open Swensen.Unquote

type IMutationSitePicker =
    abstract member PickNextSite: bool
    abstract member NotifyIgnoredSite: unit -> unit
    abstract member NotifyMutation: unit -> unit

pirrmann

Keybase proof

I hereby claim:

• I am pirrmann on github.
• I am pirrmann (https://keybase.io/pirrmann) on keybase.
• I have a public key whose fingerprint is C754 AB85 AFA5 4BC4 12CA BDF5 7CE5 02AF 2D5C C545

To claim this, I am signing this object: