AlexeyRaga

let next = function
    | d :: ds ->
        let dss = Seq.append ds (Directory.GetDirectories d) |> List.ofSeq
        let fss = Directory.GetFiles d
        Some (fss,  dss)
    | [] -> None

Seq.unfold (next) ["/tmp"] |> Seq.concat

AlexeyRaga

Download and install p4merge

• Download the perforce visual tool suite from here: http://www.perforce.com/perforce/downloads/index.html
• Copy only the p4merge.app file into your /Applications/ directory

Setup p4merge as a visual mergetool

AlexeyRaga

scala> trait Assoc[K] { type V ; val value: V }
defined trait Assoc

scala> def mkAssoc[V0](k: String, v: V0): Assoc[k.type] { type V = V0 } =
     |   new Assoc[k.type] { type V = V0 ; val value = v }
mkAssoc: [V0](k: String, v: V0)Assoc[k.type]{type V = V0}

scala> implicit def nameAssoc = mkAssoc("Name", "Mary")
nameAssoc: Assoc[String("Name")]{type V = String}

AlexeyRaga

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Text.RegularExpressions;
 
namespace SemiIdeomaticParsers
{
    public delegate Tuple<T, string> Parser<T>(string value);

AlexeyRaga

Better Git log

git log --graph --pretty=format:'%Cred%h%Creset -%C(yellow)%d%Creset %s %Cgreen(%cr) %C(bold blue)<%an>%Creset' --abbrev-commit

create an alias git config --global alias.lg "log --color --graph --pretty=format:'%Cred%h%Creset -%C(yellow)%d%Creset %s %Cgreen(%cr) %C(bold blue)<%an>%Creset' --abbrev-commit"

git lg

git lg -p

AlexeyRaga

Tuning Storm+Trident

Tuning a dataflow system is easy:

The First Rule of Dataflow Tuning:
* Ensure each stage is always ready to accept records, and
* Deliver each processed record promptly to its destination

AlexeyRaga

public static void MappingExample()
{
    var averages = Html
        .Download("http://github.com")
        .Select(html => {
                            var links = Html.ParseLinks(html);
                            var averageLength = links.Average(x => x.Length);
                            return String.Format("{0} links found, average length is {1}", links.Count, averageLength);
                        });

AlexeyRaga

//already defined in F# base library, but I wanted to show how simple it is
let (|>) a f = f a

let latestRequest = 
    user
      |> login
      |> clickMenu "Forms"
      |> waitPageLoad
      |> openFilter ["Communication"; "Request"]
      |> results

AlexeyRaga

namespace Topshelf

[<AutoOpen>]
module Topshelf =

  open System
  open Topshelf.HostConfigurators
  open Topshelf.Runtime

  let configureTopShelf f =

AlexeyRaga

{-# LANGUAGE TypeFamilies #-}

import Data.Function (on)
import Control.Applicative

data EventData e = EventData {
    eventId :: Int,
    body :: Event e
}