Paul Callaghan paulcc

paulcc / gist:5abb741d6eef893886c9

Created November 27, 2015 14:32 — forked from steshaw/gist:8142387

Paul Callaghan's FP/DT articles

paulcc / gist:4477087

Last active December 10, 2015 18:48 — forked from anonymous/gist:4477082

Haskell version of code from http://blog.8thlight.com/uncle-bob/2013/01/07/FPBE3-Do-the-rules-change.html

	-- see below for commentary

	makeUpTo :: Int -> [String] -> [String]
	makeUpTo n = mlu []
	where
	mlu pre [] = [pre]
	mlu [] (w:ws) = mlu w ws
	mlu pre (w:ws) \| length pre + 1 + length w <= n = mlu (pre ++ ' ' : w) ws
	\| otherwise = pre : mlu [] (w:ws)

paulcc / sketch.rb

Created June 29, 2012 16:04 — forked from mattwynne/sketch.rb

pseudo-haskell


	class Valid a where
	valid :: a -> OkF Errors

	class Valid a => Persist m a where
	save :: a -> m (OkF a) -- or errors

	data User = User {name :: String}
	data Organisation = Organisation {name :: String, users :: [User]}