Data update

This commit is contained in:
Ingy döt Net 2023-09-16 17:28:03 -07:00
parent 5af6d93694
commit 796d366b97
455 changed files with 7413 additions and 1900 deletions

View file

@ -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