制限時間内のキー入力検査 in Smalltalk 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 - Smalltalk

Squeak Smalltalk で。

残念ながら Squeak Smalltalk には自身の標準入力やホスト OS のそれとの連携といった概念が（少なくともデフォルト状態では…）ないので、マウスポインタ付近にプロンプトを表示して入力を促すことで対応させていただきました。標準入出力のしかたを問うことが題意でしたら、どうぞあしからず。

| inputChecker |
inputChecker := [:timeLimitSec :expecStr |
	| char stream start resultMsg initPosition |
	stream := WriteStream with: 'input(', expecStr, ') => '.
	initPosition := stream position.
	start := nil.
	[   stream contents, ' ' displayAt: Sensor cursorPoint + 10 asPoint.
		[Sensor keyboardPressed] whileFalse.
		(char := Sensor keyboard) = Character cr
	] whileFalse: [
		start ifNil: [start := Time millisecondClockValue].
		char == Character backspace
			ifTrue: [stream position: (stream position - 1 max: initPosition)]
			ifFalse: [stream nextPut: char]].
	resultMsg := (Time millisecondClockValue - start) / 1.0e3 <= timeLimitSec
		ifFalse: ['TIME OUT']
		ifTrue: [(stream contents last: expecStr size) = expecStr
			ifTrue: ['OK'] ifFalse: ['NG']].
	#result -> resultMsg].

inputChecker value: 5 value: 'ABCDEF'

DouKaku?

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

Posted feedbacks - Smalltalk

Index

Feed

Other

Link

Pathtraq