2015-05-28 21:28:31 +03:00
|
|
|
:: :: ::
|
2015-05-30 01:33:20 +03:00
|
|
|
:::: /hook/core/oct1/sur :::::: dependencies
|
2015-05-28 21:28:31 +03:00
|
|
|
:: :: ::
|
2015-05-29 11:36:23 +03:00
|
|
|
/? 310 ::
|
2015-05-28 21:28:31 +03:00
|
|
|
:: :: ::
|
2015-05-29 11:36:23 +03:00
|
|
|
:::: :::::: semantics
|
|
|
|
|
:: :: ::
|
|
|
|
|
|% ::
|
2015-05-28 21:28:31 +03:00
|
|
|
++ board ,@ :: one-player bitfield
|
|
|
|
|
++ point ,[x=@ y=@] :: coordinate
|
|
|
|
|
++ stage (pair (unit ship) (unit ship)) :: players
|
2015-05-29 11:36:23 +03:00
|
|
|
++ play (each game tape) :: update
|
2015-05-28 21:28:31 +03:00
|
|
|
++ game :: game state
|
|
|
|
|
$: who=? :: whose turn
|
|
|
|
|
sag=stage :: who's playing
|
2015-05-29 11:36:23 +03:00
|
|
|
aud=(map ship ,@ud) :: who's watching
|
2015-05-28 21:28:31 +03:00
|
|
|
box=board :: X board
|
|
|
|
|
boo=board :: O board
|
|
|
|
|
== ::
|
|
|
|
|
--
|
