Skip to content

Instantly share code, notes, and snippets.

View luqui's full-sized avatar

Luke Palmer luqui

127 followers · 4 following
View GitHub Profile
@luqui
luqui / Benchmark.hs
Created March 11, 2013 21:04 — forked from nikita-volkov/Benchmark.hs
import Data.List
import qualified Data.Set as Set
import Criterion.Main
import System.Random
itemsEqualOnDiff :: (Eq a) => [a] -> [a] -> Bool
itemsEqualOnDiff a b = null $ absDiff a b
absDiff :: (Eq a) => [a] -> [a] -> [a]
absDiff [] [] = []
@luqui
luqui / functions.mkd
Created March 7, 2012 02:31 — forked from anonymous/functions.mkd

x :Y is shorthand for x [Y 'x].

Definition of functions:

A B :*
->
function :*
(f :function x :A -> apply :B)   -- application
((x :A -> y :B) ->               -- abstraction

f :function