Contents

module Beer (song) where

import Data.Char (toUpper)
import Data.List (intercalate)

capitalize :: String -> String
capitalize (h : t) = toUpper h : t
capitalize [] = []

bottles :: Int -> String
bottles 1 = "bottle"
bottles _ = "bottles"

countBottles :: Int -> String
countBottles 0 = "no more"
countBottles n = show n

stanza :: Int -> String
stanza n | n >= 0    = countBottles n ++ " " ++ bottles n ++ " of beer"
         | otherwise = stanza 99

it :: Int -> String
it 1 = "it"
it _ = "one"

action :: Int -> String
action n | n > 0     = "Take " ++ it n ++ " down and pass it around"
         | otherwise = "Go to the store and buy some more"

verse :: Int -> String
verse n = unlines
  [ capitalize (stanza n) ++ " on the wall, " ++ stanza n ++ "."
  , action n ++ ", " ++ stanza (pred n) ++ " on the wall." ]

song :: String
song = intercalate "\n" $ map verse [99, 98 .. 0]

Version data entries

395 entries across 395 versions & 1 rubygems

Version	Path
trackler-2.2.1.98	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.97	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.96	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.95	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.94	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.93	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.92	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.91	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.90	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.89	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.88	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.87	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.86	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.85	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.84	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.83	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.82	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.81	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.80	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs
trackler-2.2.1.79	tracks/haskell/exercises/beer-song/examples/success-standard/src/Beer.hs