favonia

-- Released under CC0.

import System.IO
import Control.Applicative

type Code = [Cmd]
data Cmd = L | R | I | D | P | G | W Code deriving Show

data CodeZipper = CZ Code [(Code,Code)] deriving Show
data DataZipper = DZ [Int]  Int  [Int] deriving Show

favonia

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

#include <stdio.h>
#include <ft2build.h>
#include FT_FREETYPE_H
#include <freetype/ftsnames.h>

int main (int argc, const char *argv[]) {
  if (argc != 2) return -1;

  FT_Library lib;
  memset(&lib, 0, sizeof lib);