29 lines
345 B
Plaintext
Executable File
29 lines
345 B
Plaintext
Executable File
#!/usr/bin/expect -f
|
|
|
|
spawn ./guess
|
|
set num 50
|
|
set dum 25
|
|
expect "*\r
|
|
*\r
|
|
*\r
|
|
" {send "$num\r"}
|
|
while {1} {
|
|
expect {
|
|
"*\r
|
|
less\r
|
|
*\r
|
|
" {set num [expr {$num - $dum}]; send "$num\r"}
|
|
"*\r
|
|
more\r
|
|
*\r
|
|
" {set num [expr {$num + $dum}]; send "$num\r"}
|
|
"You won!\r
|
|
" {break}
|
|
"You lose*\r
|
|
It was *\r
|
|
" {break}
|
|
}
|
|
set dum [expr {$dum / 2}]
|
|
}
|
|
expect eof
|