Angus Pearson AngusP

I hereby claim:

I am AngusP on github.
I am angusp (https://keybase.io/angusp) on keybase.
I have a public key whose fingerprint is 5B48 95B4 7066 AF9C ED56 D364 D6A5 EFE7 8E9C 40E3

To claim this, I am signing this object:

	anguspearson@stygimo /tmp $ % Total % Received % Xferd Average Speed Time Time Time Current
	Dload Upload Total Spent Left Speed
	0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0Unable to find image 'ev3:latest' locally
	Trying to pull repository docker.io/library/ev3 ... curl: (6) Could not resolve host: ev3
	fatal: unable to access 'https://ev3/ev3/': Could not resolve host: ev3
	[sudo] password for anguspearson:
	error: can't create or remove files in install directory

	The following error occurred while trying to add or remove files in the
	installation directory:

	rfcToEntry :: String -> String -> Maybe Entry
	rfcToEntry t str
	\| " PRIVMSG" `isPrefixOf` (dropWhile (/=' ') str) && ":ACTION" `isPrefixOf` (dropWhile (/=':') $ dropWhile (/=' ') str)
	= Just ( t , takeWhile (/='!') $ drop 1 str ,
	(takeWhile (/='!') $ drop 1 str) ++ (dropWhile (/=' ') $ dropWhile (/=':') $ tail $ dropWhile (/=' ') $ tail str) )
	\| " PRIVMSG" `isPrefixOf` (dropWhile (/=' ') str) = Just ( t , takeWhile (/='!') $ drop 1 str ,
	tail $ dropWhile (/=':') $ dropWhile (/=' ') $ tail str )
	\| " PART" `isPrefixOf` (dropWhile (/=' ') str) = Just ( t , takeWhile (/='!') $ drop 1 str , "$left" )
	\| " QUIT" `isPrefixOf` (dropWhile (/=' ') str) = Just ( t , takeWhile (/='!') $ drop 1 str , "$left" )
	\| " JOIN" `isPrefixOf` (dropWhile (/=' ') str) = Just ( t , takeWhile (/='!') $ drop 1 str , "$joined" )

	EMACS probably stands for one of the following:

	Escape Meta Alt Control Shift
	Eight Megabytes And Constantly Swapping
	Eventually Munches All Computer Storage
	Easily Mangles, Aborts, Crashes and Stupifies
	Even a Master of Arts Comes Simpler
	Emacs Manuals Are Cryptic and Surreal
	Emacs May Annihilate Command Structures
	Energetic Merchants Always Cultivate Sales

	-- This is from the Morning Exam

	rpn :: Expr -> [String]
	rpn X = ["X"]
	rpn (Const n) = [show n]
	rpn (a :+: b) = (rpn a) ++ (rpn b) ++ ["+"]
	rpn (a :: b) = (rpn a) ++ (rpn b) ++ [""]
	rpn (Neg a) = (rpn a) ++ ["-"]
	-- NB: I can't really remember how negation was
	-- represented, this might not be it...

	longestProductLen :: [(Barcode, Item)] -> Int
	longestProductLen xs = hold xs 0
	where
	hold [] l = l
	hold ((b,(name,i)):xs) longest
	\| length name > longest = hold xs (length name)
	\| otherwise = hold xs longest