hot-dogs.hs

module Main where

import Control.Monad (when)
import System.Environment (getArgs)
import Data.List (intersperse)

fibo :: [Int]
fibo = 0 : 1 : zipWith (+) fibo (tail fibo)

hotDogsOnDay :: Int -> Int
hotDogsOnDay = (fibo !!)

seeTheHotDogsOnDay :: Int -> String
seeTheHotDogsOnDay = intersperse ' ' . flip replicate '\127789' . hotDogsOnDay

main :: IO ()
main = do
  args <- getArgs
  when (length args /= 1) $ error "must give how many hot dogs only"
  let day = read (head args) :: Int
  putStrLn $ seeTheHotDogsOnDay day