会話できる人工知能のプログラム (Haskell)

intelligent.hs

import System.Random
import System.Time
import Control.Monad.State

main :: IO ()
main = do
    seed <- mkSeed
    talk $ iSaid seed

mkSeed :: IO Int
mkSeed = do
    (TOD _ pico) <- getClockTime
    return $ fromIntegral pico

talk :: [String] -> IO ()
talk (x:xs) = do
    youSaid <- getLine
    if null youSaid
    then return ()
    else putStrLn x >> talk xs

iSaid :: Int -> [String]
iSaid seed = evalState randomWords (mkStdGen seed)
  where
    randomWords = do
        n  <- state random
        ns <- randomWords
        return (word n:ns)
    word n  = lexicon !! (abs n `mod` length lexicon)
    lexicon = ["マジで", "ヤバい", "ウケルー"]