Skip to content

Instantly share code, notes, and snippets.

View favonia's full-sized avatar
😵‍💫
low bandwidth

favonia favonia

😵‍💫
low bandwidth
View GitHub Profile
@favonia
favonia / lcs.hs
Last active December 10, 2015 00:39
import Control.Monad
import Data.List
import Data.Ord
type Cell a = (Integer,[a])
type Row a = [Cell a]
lcs :: Eq a => [a] -> [a] -> [a]
lcs [] _ = []
lcs _ [] = []
@favonia
favonia / copyright_reader_freetype2.c
Created June 22, 2012 14:49
Font copyright reader