Size of this extension: 18.4 kB.
"Great with rice and soy sauce or chow mein!" - Me
"Yes, I think I will!" - You
"Unhandled exception, 'Article not found': return articleMap["Foods more valuable than gold"].getBestHighlight();" - Wall Street Journal
-- From the Functional Programming and Orange Chicken Enjoyer Society
-- ~May you be ever zesty~
themeUser :: OrangeChickenEnjoyer
refill :: Int -> [Yummy]
refill n = concat $ replicate n freshOrangeChicken
eatOrangeChicken :: OrangeChickenEnjoyer -> [Yummy] -> [Yummy]
eatOrangeChicken enjoyer [] = []
eatOrangeChicken enjoyer (x:xs)
| enjoy enjoyer x = eatOrangeChicken enjoyer xs
| otherwise = sleep 8 $ eatOrangeChicken enjoyer $ reheat xs
life :: OrangeChickenEnjoyer -> [Yummy] -> [Yummy]
life enjoyer [] = life enjoyer $ refill $ hunger enjoyer
life enjoyer bowl = eatOrangeChicken enjoyer bowl
main = do life themeUser []
