Data update
This commit is contained in:
parent
5af6d93694
commit
796d366b97
455 changed files with 7413 additions and 1900 deletions
|
|
@ -55,13 +55,13 @@ proc sum3 a d . st .
|
|||
proc rate . res done .
|
||||
res = 0
|
||||
for i = 1 step 3 to 7
|
||||
call sum3 i 1 res
|
||||
sum3 i 1 res
|
||||
.
|
||||
for i = 1 to 3
|
||||
call sum3 i 3 res
|
||||
sum3 i 3 res
|
||||
.
|
||||
call sum3 1 4 res
|
||||
call sum3 3 2 res
|
||||
sum3 1 4 res
|
||||
sum3 3 2 res
|
||||
cnt = 1
|
||||
for i = 1 to 9
|
||||
if f[i] = 0
|
||||
|
|
@ -75,7 +75,7 @@ proc rate . res done .
|
|||
.
|
||||
.
|
||||
proc minmax player alpha beta . rval rmov .
|
||||
call rate rval done
|
||||
rate rval done
|
||||
if done = 1
|
||||
if player = 1
|
||||
rval = -rval
|
||||
|
|
@ -87,7 +87,7 @@ proc minmax player alpha beta . rval rmov .
|
|||
repeat
|
||||
if f[mov] = 0
|
||||
f[mov] = player
|
||||
call minmax (5 - player) (-beta) (-rval) val h
|
||||
minmax (5 - player) (-beta) (-rval) val h
|
||||
val = -val
|
||||
f[mov] = 0
|
||||
if val > rval
|
||||
|
|
@ -114,40 +114,40 @@ proc show_result val . .
|
|||
state += 2
|
||||
.
|
||||
proc computer . .
|
||||
call minmax 4 -11 11 val mov
|
||||
minmax 4 -11 11 val mov
|
||||
f[mov] = 4
|
||||
call draw mov
|
||||
call rate val done
|
||||
draw mov
|
||||
rate val done
|
||||
state = 0
|
||||
if done = 1
|
||||
call show_result val
|
||||
show_result val
|
||||
.
|
||||
.
|
||||
proc human . .
|
||||
mov = floor ((mouse_x - 6) / 28) + 3 * floor ((mouse_y - 16) / 28) + 1
|
||||
if f[mov] = 0
|
||||
f[mov] = 1
|
||||
call draw mov
|
||||
draw mov
|
||||
state = 1
|
||||
timer 0.5
|
||||
.
|
||||
.
|
||||
on timer
|
||||
call rate val done
|
||||
rate val done
|
||||
if done = 1
|
||||
call show_result val
|
||||
show_result val
|
||||
else
|
||||
call computer
|
||||
computer
|
||||
.
|
||||
.
|
||||
on mouse_down
|
||||
if state = 0
|
||||
if mouse_x > 6 and mouse_x < 90 and mouse_y > 16
|
||||
call human
|
||||
human
|
||||
.
|
||||
elif state >= 2
|
||||
state -= 2
|
||||
call init
|
||||
init
|
||||
.
|
||||
.
|
||||
call init
|
||||
init
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue