制限時間内のキー入力検査 in Haskell DouKaku?

ユーザーの入力を検査する関数 InputCheckerを作成して 3回連続実行してください。

関数 InputCheckerは、以下の仕様を満たしてください。

引数に時間(秒) Nと文字列 Sを受け取ること。
ユーザからの標準入力とあらかじめ指定された S を比較し、一致すれば「OK」、一致しなければ「NG」を標準出力へ出力すること。
ユーザーの入力がN秒以内に完了しなかった場合は、比較せず「TIME OUT」を標準出力へ出力すること。
経過時間はユーザーが入力を開始した地点から計測すること。
ENTER キーの入力によってユーザー入力が完了したと仮定すること。
ユーザの入力が完了するまでは、完了を待ち続けること

たとえば、「InputCheker(5, "ABCDEF")」と指定した場合、出力例はこんな感じです。

input(ABCDEF) =>ABCDEF<ENTER>
1. result => OK
2. result => NG
3. result => TIME OUT

1. input(ABCDEF) =>

と出力して入力待ちをし、ユーザーが「ABCDEF<ENTER>」を入力したとき、入力開始から5秒以内ならば「OK」、5秒をこえていれば「TIME OUT」を出力します。このとき、ユーザーがキーを押下しなければ1. を出力してからたとえ10秒たっていても「TIME OUT」にはならないので注意してください。時間計測はあくまでユーザーが入力を開始してからです。

このお題はraynstardさんの投稿です。ご協力ありがとうございます。

標準ではない System.Timeout モジュールを使う

see: System.Timeout.hs

module Main (main) where

import System.Environment
import System.IO
import System.Timeout

main :: IO ()
main = do { prog <- getProgName
          ; args <- getArgs
          ; case args of
              t:str:_ -> loop 3 (inputChecker (read t) str)
              _       -> usage prog
          }

loop :: Int -> IO () -> IO ()
loop 0 _ = return ()
loop n f = f >> loop (n-1) f

usage :: String -> IO ()
usage prog = hPutStrLn stderr $ prog ++ " <timeout> <string>"

inputChecker :: Int -> String -> IO ()
inputChecker t s
 = do { hPutStr stderr $ "input(" ++ s ++ ") => "
      ; hSetBuffering stdin NoBuffering
      ; c <- hGetChar stdin
      ; ms <- timeout (t*1000000) (hGetLine stdin)
      ; case ms of
          Nothing -> hPutStrLn stdout "\n result => TIME OUT" >> hFlush stdout
          Just s' -> if s == (c:s') then hPutStrLn stdout " result => OK" >> hFlush stdout
                     else hPutStrLn stdout " result => NG" >> hFlush stdout
      }

{-
*Main> :main 5 ABCDEF
input(ABCDEF) => ABCDEF
 result => OK
input(ABCDEF) => A
 result => TIME OUT
input(ABCDEF) => PQR
 result => NG
*Main> _
-}

ああーっ。仕様6を満たしてなかった。
timeout というので短絡的に仕様6が頭から
飛んじゃったみたい。
仕様6があるほうがやさしいかも。。。

というわけで変更。

import System.Environment
import System.IO
import System.Time

main :: IO ()
main = do { prog <- getProgName
          ; args <- getArgs
          ; case args of
              t:str:_ -> loop 3 (inputChecker (read t) str)
              _       -> usage prog
          }

loop :: Int -> IO () -> IO ()
loop 0 _ = return ()
loop n f = f >> loop (n-1) f

usage :: String -> IO ()
usage prog = hPutStrLn stderr $ prog ++ " <timeout> <string>"

inputChecker :: Int -> String -> IO ()
inputChecker t s
 = do { hPutStr stderr $ "input(" ++ s ++ ") => "
      ; hSetBuffering stdin NoBuffering
      ; c <- hGetChar stdin
      ; start <- getClockTime
      ; s' <- hGetLine stdin
      ; end <- getClockTime
      ; let interval = diffClockTimes end start
      ; if interval > noTimeDiff {tdSec = t}
          then hPutStrLn stdout " result => TIME OUT" >> hFlush stdout
          else if s == (c:s') 
                 then hPutStrLn stdout " result => OK" >> hFlush stdout
                 else hPutStrLn stdout " result => NG" >> hFlush stdout
      }

{-
*Main> :main 5 ABCDEF
input(ABCDEF) => ABCDEF
 result => OK
input(ABCDEF) => ABC
 result => NG
input(ABCDEF) => ABCDEF
 result => TIME OUT
-}

DouKaku?

制限時間内のキー入力検査

Posted feedbacks - Haskell

Index

Feed

Other

Link

Pathtraq