Skip to content

Instantly share code, notes, and snippets.

View y2k's full-sized avatar
🏠
Working from home

y2k

🏠
Working from home
View GitHub Profile
open Core_kernel
module Free (F : sig type 'a t end) = struct
type 'a t =
| Pure : 'a -> 'a t
| Free : 'x F.t * ('x -> 'a t) -> 'a t
type alg = { apply : 'x. 'x F.t -> 'x }
let pure x = Pure x
@swlaschin
swlaschin / ndcoslo17_fp_track.md
Created July 5, 2017 19:38
Functional Track talks from NDC Oslo 2017

Functional Track talks from NDC Oslo 2017

Also, here is the list of all videos from NDC Oslo 2017:

Wednesday 2017-06-14