Olov Johansson ulve

## reddit example.json
[
  {
    "kind": "Listing",
    "data": {
      "modhash": "",
      "children": [
        {
          "kind": "t3",
          "data": {
            "domain": "engadget.com",

## reddit example.json
[
  {
    "kind": "Listing",
    "data": {
      "modhash": "",
      "children": [
        {
          "kind": "t3",
          "data": {
            "domain": "engadget.com",

## keybase.md

      
              1 file
            
          
              0 forks
            
          
                0 comments
              
            
              0 stars
            
          
                ulve
                / keybase.md
            
            
              Created
              August 23, 2016 06:03
            
          
    Keybase proof

I hereby claim:

I am ulve on github.
I am ulve (https://keybase.io/ulve) on keybase.
I have a public key whose fingerprint is 2DDB C99B 1110 AAB0 5FE7  23DD 9B9E 5784 633B 1F0A

To claim this, I am signing this object:

  
## recompose.js
// @flow
import * as React from "react";
import * as Recompose from "recompose";

declare type HelloProps = {
  compiler: string,
  framework: string
};

const reducer = (state: ControllerState, action: Action): ControllerState => {

## DogCatapult.fs
// Learn more about F# at http://fsharp.org
// See the 'F# Tutorial' project for more help.
open FSharp.Data
open Microsoft.FSharp.Data.TypeProviders
open HttpFs.Client
open HttpFs
open Hopac
open Argu
open System
open System.Collections.Generic

## chart.html
<!DOCTYPE html>
<html>

<head>
    <title>Miljöinfo</title>
    <meta charset="utf-8" />
</head>
<style>
    .node {
        fill: #f15;

## future.ts
// simple
const future = f =>  ({
        fork: g => f(g),
        map: g => future(k => f(l => k(g(l)))),
        flatMap: g => future(k => f(l => g(l).apply(k)))
    })

const getHttp = callback => {
    const id = Math.floor(Math.random() * 5000 + 1000)
    setTimeout(() => callback(`hej ${id}`), id)

## monadwriter.ts
class MonadWriter<T, V> {
    private v:T;
    private log:V[];

    constructor(v:T, log:V[] | V) {
        this.v = v;
        if(log instanceof Array)
            this.log = log;
        else
            this.log = [log];

## monadreader.ts
class Reader<E, A> {
  private constructor(protected k) {}
  Run = (e: E): A => this.k(e);
  Bind = <B>(f: (a: A) => Reader<E, B>): Reader<E, B> =>
    new Reader(e => f(this.k(e)).Run(e));
  Map = <B>(f: (a: A) => B): Reader<E, B> => new Reader(e => f(this.k(e)));
  static Ask = <E, A>(): Reader<E, A> => new Reader(x => x);
  static Asks = <E, A>(f: (a: E) => A): Reader<E, A> => new Reader(f);
  static Unit = <E, A>(f: A): Reader<E, A> => new Reader(() => f);
}

## StateMonad.ts
class State {
  private constructor(protected state) {}

  Map = f =>
    new State(s => {
      var prev = this.state(s);
      return { value: f(prev.value), state: prev.state };
    });

  Join = () =>
	[
	{
	"kind": "Listing",
	"data": {
	"modhash": "",
	"children": [
	{
	"kind": "t3",
	"data": {
	"domain": "engadget.com",
	// @flow
	import * as React from "react";
	import * as Recompose from "recompose";

	declare type HelloProps = {
	compiler: string,
	framework: string
	};

	const reducer = (state: ControllerState, action: Action): ControllerState => {
	// Learn more about F# at http://fsharp.org
	// See the 'F# Tutorial' project for more help.
	open FSharp.Data
	open Microsoft.FSharp.Data.TypeProviders
	open HttpFs.Client
	open HttpFs
	open Hopac
	open Argu
	open System
	open System.Collections.Generic
	<!DOCTYPE html>
	<html>

	<head>
	<title>Miljöinfo</title>
	<meta charset="utf-8" />
	</head>
	<style>
	.node {
	fill: #f15;
	// simple
	const future = f => ({
	fork: g => f(g),
	map: g => future(k => f(l => k(g(l)))),
	flatMap: g => future(k => f(l => g(l).apply(k)))
	})

	const getHttp = callback => {
	const id = Math.floor(Math.random() * 5000 + 1000)
	setTimeout(() => callback(`hej ${id}`), id)
	class MonadWriter<T, V> {
	private v:T;
	private log:V[];

	constructor(v:T, log:V[] \| V) {
	this.v = v;
	if(log instanceof Array)
	this.log = log;
	else
	this.log = [log];
	class Reader<E, A> {
	private constructor(protected k) {}
	Run = (e: E): A => this.k(e);
	Bind = <B>(f: (a: A) => Reader<E, B>): Reader<E, B> =>
	new Reader(e => f(this.k(e)).Run(e));
	Map = <B>(f: (a: A) => B): Reader<E, B> => new Reader(e => f(this.k(e)));
	static Ask = <E, A>(): Reader<E, A> => new Reader(x => x);
	static Asks = <E, A>(f: (a: E) => A): Reader<E, A> => new Reader(f);
	static Unit = <E, A>(f: A): Reader<E, A> => new Reader(() => f);
	}
	class State {
	private constructor(protected state) {}

	Map = f =>
	new State(s => {
	var prev = this.state(s);
	return { value: f(prev.value), state: prev.state };
	});

	Join = () =>