制限時間内のキー入力検査 in Scheme 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さんの投稿です。ご協力ありがとうございます。

post comment

Posted feedbacks - Scheme

c-wrapperでcursesを使いました。

(use c-wrapper)
(c-load "curses.h" :libs "-lcurses")

(initscr)

(define (input-checker n str)
  (cbreak)
  (printw "input(%s) => " str)
  (refresh)
  (receive (t input) (let* ((c0 (integer->char (getch)))
                            (st (sys-time)))
                       (do ((c c0 (integer->char (getch)))
                            (lst '() (cons c lst)))
                           ((memq c '(#\lf #\cr))
                            (values (- (sys-time) st) (list->string (reverse lst))))))
    (printw "result => %s\n" (cond
                              ((< n t) "TIME OUT")
                              ((equal? str input) "OK")
                              (else "NG")))
    (refresh)))

(input-checker 5 "ABCDEF")

DouKaku?

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

Posted feedbacks - Scheme

Index

Feed

Other

Link

Pathtraq