GF-loves-food.hs

import PGF
import System.Random
import System.IO
import Data.Time.Clock.POSIX
import System.CPUTime
import Twitter
import Network.HTTP.Client
import Data.ByteString.Lazy.Char8 hiding (putStrLn, length, head)
    
selectRandom :: RandomGen g => [a] -> g -> (a, g)
selectRandom list rnd =
  let
    (rndNum,newRnd) = randomR (0,(length list - 1)) rnd
    elem = list!!rndNum
  in
    (elem, newRnd)

generate :: RandomGen g => PGF -> g -> (String,g)
generate pgf rnd =
  let
    gen = generateRandom rnd pgf (startCat pgf)
    (lang,newRnd) = (selectRandom (languages pgf) rnd)
    s = linearize pgf lang (head gen)
  in
    (s,newRnd)

main =
  do
    pgf <- readPGF "Foods.pgf"
    conf <- configFromFile "config.json"
    time <- round `fmap` getPOSIXTime
    cpuptime <- getCPUTime
    let cputime = cpuptime `div` 100000000
    let rnd = mkStdGen (fromInteger (toInteger (time + cputime) ) )
    let (s,newRnd) = generate pgf rnd

    putStrLn s
    either putStrLn (\c -> tweet c s >>= putStrLn . unpack . responseBody >> return () ) conf