Orange Chicken Theme ~ w(°o°)w

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 []