package cps_toolbox

  1. Overview
  2. Docs

Source file Functional.ml

1
2
3
4
5
6
let identity x = x
let compose f g x = f (g x)
let swap f x y = f y x

let (<==) f g x = f (g x)
let (==>) f g x = g (f x)