😀

Chao Xu chaoxu

😀

Assistant Professor at Algorithms and Logic Group in UESTC. I'm interested in algorithms, combinatorial optimization, computational geometry.

388 followers · 17 following

University of Electronic Science and Technology of China
Chengdu, Sichuan, China
https://chaoxu.prof

View GitHub Profile

Recently created

Least recently created

Recently updated

Least recently updated

chaoxu / lcs.hs

Created December 15, 2012 06:24 — forked from srayuws/lcsIO.hs

	--ST Monad instead!
	lcs :: (Eq a) => [a] -> [a] -> [a]
	lcs s' t' = reverse $ build n m
	where
	a = runST $ do
	b <- newArray ((0,0),(n,m)) 0
	mapM_ (f b) $ range ((0,0),(n,m))
	unsafeFreeze b
	n = length s'
	m = length t'