Morpion solitaire/Unicon: Difference between revisions
m
Fixed syntax highlighting.
m (text tweak) |
m (Fixed syntax highlighting.) |
||
| (37 intermediate revisions by one other user not shown) | |||
Line 1:
This example goes beyond the task goal of playing a random game of Morpion solitaire. The code is divided into two sections (a) to support the basic task and (b) extensions. The program was designed as a first cut/test bed more for understanding and
* Playing single games or running multigame simulations to find and capture the best games
* Producing re-loadable game records and the ability to replay a saved game from a given position forward
* The ability to reproduce purely random games from the random number seed
* Limiting the initial random moves to 1 of 4 cases (inside corners (1 type) x 8, outside corners (2 types) x 8, outside valley (1 type x 4)) not 1 of 28. In the case of this program these are all in the North East quadrant.
* Plays both 5T (by default) and 5D variants
* Plugable modules for functions including applying player strategy, position evaluation (fitness/heuristics)to facilitate quick experimentation, changing game read/write functions, etc., etc.
Using random play in many summary runs, the highest (5T) score achieved was
The ability to replay recorded games provides a way to study the behaviour of the problem. Selecting successful random games, truncating them and running multigame simulations using a successful base shows that the seeds of success are sown early. It was possible to better the results of good random game scores (mid 80s) pushing the new scores up into the mid 90s. Unfortunately this technique when applied to Chris Rosin's 177 move record game did not produce any new records :(. Surprisingly however, it was possible to produce games in the high 160's! using random play with a truncated (approx 60%) version of this game.
The observation that a game becomes bad or good fairly early suggests that finding an intelligent forward looking position fitness evaluator is going to be a challenge to say the least.
Line 14 ⟶ 15:
It's also possible to capture bad games. This might provide some kind of comparison against good games when considering fitness evaluators. Or not.
Internally, the grid is automatically expanded as needed whenever a cell is played on an outer edge. When this happens only the affected side is expanded. As a side effect the grid numbering will seem unusual. The game log shows all row/col coordinates relative to the 1,1 origin located at the intersection of the lines containing top and left most edges of the cross. A fixed grid might be more efficient. With the ability to detect an off page condition and save and replay the game later this could be easier to deal with. The issue of grid origin comes up all the time when working with the code and debugging output.
The program produces a crude ASCII art grid; however and more importantly it produces a game log that can be replayed in the Pentasol free player. This can be used to capture graphical grids as well as providing independent validation of the games.
Most of the [http://www.morpionsolitaire.com/English/RecordsGrids5T.htm Record Games] have downloadable games in this notation. For example [http://www.morpionsolitaire.com/Grid5T178Rosin.txt Chris Rosin's 178 move grid].
For more see: Morpion -h|-help
===Basic Solution===
The code need to solve the task requirements is found in this section. Just delete the $define below. The basic code will play a single random game, show an ASCII art grid, and produce a log in Pentasol compatible notation. On any given run your most likely to see a game with scores in the 20's or 60's.
===Main and Core Game Play Procedures===
<syntaxhighlight lang="unicon">link printf,strings,options
$define MORPVER "1.
$define EXTENDED 1 # delete line for basic
procedure main(A)
$ifdef EXTENDED
MorpionConf(A) # conf extended version
if \M_ReplayFile then ReplayMorpion()
else if \M_Limit === 1 then
else
$else
printf("--- Morpion Solitaire 5 (v%s) (single random game)---\n\n",MORPVER)
M_Strategy := RandomPlayer
M_Mvalid := ValidMove5T # can be changed to 5D
M_WriteGame := WriteMoveLogPS
M_Output := &output
ShowGame(SingleMorpion())
$endif
end
$define XEMPTY "." # symbols used in Grid
$define XINIT "*"
$define XUSED "+"
$define DHOR "-" # Directions for moves
$define DVER "|"
$define DRD "\\"
$define DLD "/"
$define DALL "-|/\\"
global M_Strategy,M_Mvalid # Pluggable procedures
global M_Output # output files
global M_WriteGame # for logger
record morpiongame(grid,score, # the grid & score
log,history, # move log and replayable history log
roff,coff,center, # origin expansion offsets and center
Line 42 ⟶ 67:
count, # game number (multi-game)
rseed) # &random at start of random play
record morpionmove(direction,move,line,roff,coff) # move & line data
record morpioncell(symbol,direction,row,col) # a grid cell
record MorpionGameRecord(ref,row,col,darow,dacol) # record of game
procedure SingleMorpion(MG,N) #: Play a game silently
/MG := SetupM5Grid() # start game with new grid?
while MorphionMove(M_Strategy(MG)) do # keep moving
return MG
end
procedure MorphionMove(MG) #: make a move
(M := MG.move).roff := MG.roff # copy offsets
M.coff := MG.coff
put(MG.history,M) # save history
\M_LogDetails(MG,M) # for analysis
every x := !M.line do { # draw the line
g := MG.grid[x[1],x[2]]
Line 101 ⟶ 105:
( c := 5 to *G[r := 1] ) do # down & left
ScanGridLine(G,r,c,+1,-1,DLD,MG.pool)
if MG.score = 0 & M_Strategy ~=== Replayer then { # move 1 special case
every put(pool1 := [], MG.pool[2|19|20|26]) # cor. o(2), i(1), val o(1)
MG.pool := pool1
Line 126 ⟶ 129:
return pool
end
procedure ValidMove5T(L,dir) #: Succeed if L has valid 5T move
local i,j
Line 134 ⟶ 137:
every (j := 0) +:= ( find(dir,(!L).direction), 1)
if j > 1 then fail # no overlap, =1 implies at an end
return # that's it!
end
procedure ValidMove5D(L,dir) #: Succeed if L has valid 5D move #@@
local i,j
if *L ~= 5 then fail # wrong count
every (i := 0) +:= (/(!L).symbol,1)
if i ~= 1 then fail # more than 1 avail space
every (j := 0) +:= ( find(dir,(!L).direction), 1)
if j > 0 then fail # no overlap, =1 implies at an end
return # that's it!
end
Line 147 ⟶ 160:
G[r,c] := morpioncell(XINIT,"",r,c)
}
return morpiongame(G,0,[],[],0,0,1 + (*G-1)/2.
end
Line 154 ⟶ 167:
rn := *(G := MG.grid) # capture ...
cn := *G[1] # ... entry dimensions
if \(!G)[1].symbol then { # left edge
MG.coff +:= 1
Line 176 ⟶ 188:
}
return MG
end
procedure ShowGame(MG) #: show games
if M_Output === &output then
every (\(PrintGrid|WriteMoveLog|M_PrintDetails))(MG)
else # header first to output, game saved
every (\(WriteMoveLog|PrintGrid|M_PrintDetails))(MG)
end
procedure PrintGrid(MG) #: print the current Grid
G := MG.grid
every (ruler := " ") ||:= (1 to *G[1]) % 10
every r := 1 to *G do {
every c := 1 to *(G[r]) do
}
return MG
end
procedure
if &random := \M_Rseed then M_Rseed := &null # set seed if given only once
/MG.rseed := &random # seed for this game
if MG.move := ?ScanGrid(MG).pool then return MG
end</syntaxhighlight>
===Game Logging===
<syntaxhighlight lang="unicon">procedure WriteMoveLog(MG) #: write move log wrapper
if \M_GameSave then {
savegame := sprintf("Games/%s/%i-L%i",M_GameType,*MG.history,M_Limit)
if M_Limit ~= 1 then
savegame ||:= sprintf("(%i)",MG.count)
if \M_ReplayFile then {
fn := map(M_ReplayFile,"/\\","__")
fn ? (="Games/", savegame ||:= "-RF" || tab(find(".txt")))
savegame ||:= "-RN" || (0 < \M_ReplayAfter)
}
savegame ||:= sprintf("_%s-%s-F%s.txt",deletec(&date,'/'),deletec(&clock,':'),M_GameFmt)
M_GameSave := savegame
fprintf(M_Output,WriteMoveLogHeader(MG)) # write header, game is saved
f := open(savegame,"w") | stop("Unable to open ",savegame," for writing")
fprintf(f,M_WriteGame(MG),M_Config) # call desired writer for output/save
close(f)
}
else
fprintf(M_Output,M_WriteGame(MG))
end
procedure
return sprintf("#\n# Game Record for Morphion %s game of %i moves\n_
# Date: %s\n# Saved: %s\n# &random: %i\n_
# ReplayFile: %s (%s moves)\n#\n",
end
procedure
l := WriteMoveLogHeader(MG)
l ||:= sprintf("# Pentasol compatible format\n#\n#\n_
# Morpion Solitaire game\n#\n_
# XXXX\n# X X\n# X X\n_
# XXXR XXXX\n# X X\n# X X\n_
# XXXX XXXX\n# X X\n# X X\n# XXXX\n#\n_
# R = reference point\n_
# List of moves starts with reference point (col,row)\n_
# Lines are\n# (col,row) <direction> <+/-centerdist>\n_
# distance to center is left side or top edge\n#\n")
l ||:= sprintf("(%i,%i)\n",4+MG.coff,4+MG.roff)
every l ||:= FormatMoveLogPS(MG,!MG.history)
return l || "#"
end
procedure
d := if m.direction == "/" then m.move-3 else 3-m.move
return sprintf("(%i,%i) %s %s%d\n",
m.line[m.move,2]-m.coff+MG.coff,m.line[m.move,1]-m.roff+MG.roff,
m.direction,(d < 0,"-")|(d = 0,"")|"+",abs(d))
end</syntaxhighlight>
===Extended Framework===
None of the code below is needed to satisfy the basic task. It supports the extended framework which includes, command line options, reading and replaying games from a saved file, running mass simulations to glean the best games, and some code for detailed analysis if I ever get around to experimenting with other than random strategy.
==
<syntaxhighlight lang="unicon">$ifdef EXTENDED
# --- Interface, Parameters, Additional Globals ---
global
global M_SrchWid,M_SrchDep # For strategy modules
global M_LogDetails,M_PrintDetails # Misc.
global M_CommandLine,M_Config,M_GameType,M_GameSave
global M_Limit,M_StatUpd,M_BestL,M_WorstL # Multi-game simulation options
global M_ReplayFile,M_ReplayAfter,M_Rseed # For game replay
global M_ReadGame,M_GameFmt # Game formats to use
global M_ChartW,M_ChartG # histogram
# --- Beginning of Non-core (Extended) code ---
procedure MorpionConf(A) # Configure the Solver
M_CommandLine := copy(A) # preserve
os := "-Q! -L+ -limit+ -
os ||:= "-R! -replay! -RF: -RN+ -save! -RW: -RR: "
os ||:= "-histwidth+ -histgroup+ -HW+ -HG+ "
os ||:= "-UN+ -SW+ -SD+ -A: -E+ -B+ -W+"
os ||:= "-details! "
opt := options(A,os,Usage) # -<anything else> gets help
M_Limit := ( 0 <= integer(\opt["limit"|"L"])) | 1
"5D" : (M_GameType := "5D", ValidMove5D)
default : (M_GameType := "5T", ValidMove5T) # also 5T
default : (M_GameFmt := "ps", ReadMoveLogPS)
"0" : (M_GameFmt := "0", ReadMoveLogOrig) # deprecated
M_WriteGame := case map(\opt["RW"]) | &null of {
default : (M_GameFmt := "ps", WriteMoveLogPS)
"0" : (M_GameFmt := "0", WriteMoveLogOrig) # deprecated
}
M_Strategy := case opt["A"] of {
"A1" :
default :
}
M_Eval := case opt["E"] of {
"1" : Score1 # test
default : &null # also "0"
}
M_ChartW := (40 <= \opt["histwidth"|"HW"]) | 80
M_ChartG := \opt["histgroup"|"HG"] | 5
M_LogDetails := if \opt["details"] then LogDetails else 1
M_PrintDetails := if \opt["details"] then PrintDetails else 1
M_StatUpd := (0 < \opt["UN"]) | def_un
M_BestL := (0 < \opt["B"]) | 5
M_WorstL := (0 < \opt["W"]) | 0
M_SrchWid := (0 < \opt["SW"]) | 5
M_SrchDep := (0 < \opt["SD"]) | 5
}
else M_ReplayFile := &null
if \(M_GameSave := opt["save"]) then {
fn := sprintf("Runs/%s-L%i-",M_GameType,M_Limit)
fn ||:= sprintf("RF%s-",map(\M_ReplayFile,"/\\","__"))
fn ||:= sprintf("RN%i-",\M_ReplayAfter)
fn ||:= sprintf("%s-%s.txt",deletec(&date,'/'),deletec(&clock,':'))
M_Output := open(fn,"w")
}
/M_Output := &output
c := sprintf("# --- Morpion Solitaire 5 (v%s) ---\n#\n",MORPVER)
c ||:= "# Command line options :"
every c ||:= " " || !A
c ||:= "\n# Summary of Morpion Configuration:\n"
c ||:= sprintf("# Variant (5T/
c ||:= sprintf("# Games to play = %s\n",(
0 < M_Limit) | "* unlimited *")
c ||:= "# Multi-game options:\n"
c ||:= sprintf("# - Status Updates = %i\n",M_StatUpd)
c ||:= sprintf("# - Keep best = %i\n",M_BestL)
c ||:= sprintf("# - Keep worst = %i\n",M_WorstL)
c ||:= sprintf("# - Histogram width = %i\n",M_ChartW)
c ||:= sprintf("# - Histogram grouping = %i\n",M_ChartG)
c ||:= sprintf("# Games will be saved = %s\n",
(\M_GameSave, "Yes") | "* No *")
c ||:= sprintf("# - Format for game file (write) = %i\n",\M_WriteGame)
c ||:= "# Replaying\n"
c ||:= sprintf("# -
c ||:= sprintf("# -
\M_ReplayFile | "* None *")
c ||:= sprintf("# - Moves to replay = %i\n",
0 ~= \M_ReplayAfter)
c ||:= sprintf("# Player Strategy = %i\n",M_Strategy)
c ||:= sprintf("# -
c ||:= sprintf("# - Position Fitness Evaluator = %s\n",
image(\M_Eval) | "* None *")
c ||:= sprintf("# - Search Width (strategy dependant) = %i\n",M_SrchWid)
c ||:= sprintf("# - Search Depth (strategy dependant) = %i\n",M_SrchDep)
c ||:= sprintf("# Log Details for analysis
if M_LogDetails === 1 then "No" else "Yes")
c ||:= "#\n"
M_Config := c
if \opt["Q"] then stop(M_Config,"-Q Stops run after processing options")
else
/M_Eval := Scorefail
end
procedure Usage()
fprintf(&errout,"_
Morphion [options] Plays the 5T/D variant of Morphion Solitaire\n_
Arguments : ")
every fprintf(&errout," %s",!M_CommandLine)
fprintf(&errout,"_
Morphion [options] Plays the 5T/D variant of Morphion Solitaire\n_
Where options are:\n_
\t-A\tchoose player strategy approach (default=random, future)\n_
\t-E\tSpecifiy an position fitness evaluation function (default none, future)\n_
\t-SW\tSearch width (strategy dependent, future)\n_
\t-SD\tSearch depth (strategy dependent, future)\n_
\t-V|-variant\t5D or 5T (default)\n_
\t-R|-replay\treplay\n_
\t-RF\tfile containing game record to be replayed\n_
\t-RN\tnumber of moves to replay (0=all)\n_
\t-RR\tgame recording format to read (ps=pentasol(default), 0=original)\n_
\t-RW\tgame recording format to write ps=pentasol(default), 0=original)\n_
\t-save\tsave the best (-B) and worst (-W) games\n_
\t-seed\tstart the seed of the random number at this value\n_
\t-L|-limit\tgames to play (if 0 or less then play until any of 'XxQq' is pressed\n_
\t\tnote for larger n this benefits from larger BLKSIZE, STRSIZE environment variables\n_
\t-HW|-histwidth\twidth (cols) of histogram of scores\n_
\t-HG|-histgroup\tsize of groups (buckets) for histogram\n_
\t-UN\tGive status update notifications every n simulations\n_
\t-B\tKeep best n games of unique length (default 5)\n_
\t-W\tKeep worst n games of unique length (default 3)\n_
\t-details\tLog game details for analysis\n_
\t-Q\t(debugging) terminates after options processing\n_
\t-?|-h|-help\tthis help text")
stop()
end</syntaxhighlight>
===Multigame Simulation and Monitoring Support===
<syntaxhighlight lang="unicon">
procedure MultiMorphion(N,MG) #: Simulate N games using MG
etime := -&time
scores := table(n := 0)
every bestL|worstL := []
if N <= 0 then N := "unlimited"
repeat {
if n >= numeric(N) then break else n +:= 1
scores[mg.
if short :=
push(worstL,short) # keep worst
if *worstL > M_WorstL then pull(worstL)
}
if
long := mg
put(bestL,long) # keep best
if *bestL > M_BestL then get(bestL)
long.score,n,long.rseed)
fprintf(&errout,"\r%i of %s simulations, long=%i(%i) (%s %s)",
n,N,long.score,bestcnt,&date,&clock)
}
if (n % M_StatUpd) = 0 then #
fprintf(&errout,"\r%i of %s simulations, long=%i(%i) (%s %s)",
n,N,
if kbhit() & getch() == !"QqXx" then # exit if any q/x
break fprintf(&errout,"\nExiting after %i simulations.\n",n)
}
Line 334 ⟶ 451:
avg +:= i * scores[i]
}
fprintf(M_Output,"&random is now %i.\n",&random)
GraphScores(scores) # graph results
every
fprintf(M_Output,"\nShortest (%i) Game(s):\n",M_WorstL)
every
MemUsage() # diagnostic
end
procedure GraphScores(S) #: graph results
chart := []
every s := key(S) do { # by score
n := s/
until chart[n] do put(chart,0) # grow chart to need
chart[n] +:= S[s]
}
s := (1 < max!chart/
every n := 1 to *chart do
end
procedure MemUsage() #: monitor usage
every
every
every
every
fprintf(M_Output,"Icon/Unicon version %s\n",&version)
end </syntaxhighlight>
===Game Replayer===
<syntaxhighlight lang="unicon">procedure ReplayMorpion() #: Handle recorded games
Replayer(M := ReadMoveLog(M_ReplayFile)) # read game and save data
M_Strategy := Replayer
if /M_ReplayAfter | (M_ReplayAfter > *M) then {
ShowGame(SingleMorpion())
}
else { # truncation replay
M_Strategy := RandomPlayer
if M_Limit === 1 then
else
}
return
end
procedure
static ML,radj,cadj
if type(MG[1]) == "MorpionGameRecord" then return ML := MG # setup list
if not ScanGrid(MG) then fail # out of moves ?
x := get(ML) | fail # get next move
if x.ref = 0 then x := get(ML) | fail # skip move 0 if any
xr := x.row + MG.roff # adjust move for grid expansion
xc := x.col + MG.coff
dr := \x.darow + MG.roff # adjust end for grid expansion
dc := \x.dacol + MG.coff
pool := []
every m := !MG.pool do { # find possible moves here
mr := m.line[m.move,1]
mc := m.line[m.move,2]
if xr=mr & xc=mc then
if \dr & \dc then { # info to disambiguate?
put(pool,m) # save matching move
}
}
if *pool = 1 then # unique move?
return
else { # we have a problem
fprintf(M_Output,"Problem encountered replaying game at move #%i, %i choices.\n",MG.score,*pool)
every
fprintf(M_Output," %s\n",FormatMoveLogPS(MG,m))
}
end</syntaxhighlight>
===Game Reader===
<syntaxhighlight lang="unicon">procedure ReadMoveLog(MG) #: read move log wrapper
fprintf(M_Output,"Reading recorded game from: %s\n",M_ReplayFile)
f := open(M_ReplayFile ,"r") |
stop("Unable to open file ",M_ReplayFile ," for read.")
R := []
while b := trim(read(f)) do {
if b ? ="$end" then break # allow pre-mature end of file
b ?:= tab(find("#")|0) # strip comments
b := deletec(b,' \t') # strip whitespace
if *b > 0 then put(R,b) # save move for reader
}
close(f)
return M_ReadGame(R) # call reader, return move list
end
procedure
static off
initial { # precalc center offsets
off := table()
off[-2] := -4
off[-1] := -3
off[0] := 2
off[1] := -1
off[2] := 4
}
M := []
get(R) ? ( ="(", coff := integer(tab(many(&digits))) - 4,
=",", roff := integer(tab(many(&digits))) - 4,
stop(&output,"Syntax error in reference line.")
while b := get(R) do { # Line (c,r) d o
=",",
=")",
o :=
stop(&output,"Syntax error in line above.")
x
x.ref := n +:= 1
x.darow := x.row := r - roff
x.dacol := x.col := c -
case d of { # adjust based on direction
DHOR : x.dacol
DVER : x.darow +:= off[o]
DLD : ( x.darow -:= off[o], x.dacol +:= off[o])
}
put(M,x)
}
return
end</syntaxhighlight>
===Detailed Move Logging (for analysis)===
<syntaxhighlight lang="unicon">procedure PrintDetails(MG) #: print the log
fprintf(M_Output,"Detailed Move Log\n")
every fprintf(M_Output,"%i : %s\n",i := 1 to *MG.log,MG.log[i])
end
procedure
/M.roff := \roff | 0
log
M.line[M.move,1]-M.roff,M.line[M.move,2]-M.coff)
every x := !M.line do
return
end
procedure LogDetails(MG,M)
log := LogFormatMove(M)
log ||:= sprintf(" - of %i choices.",*MG.pool) # append # choices
log ||:= sprintf(" Metric=%i",M_Eval(MG)) # append score (opt)
put(MG.log,log)
end</syntaxhighlight>
===Strategy Support===
<syntaxhighlight lang="unicon"># No useful examples at this time
procedure Scorefail(MG);end
$endif</syntaxhighlight>
{{libheader|Icon Programming Library}}
Line 538 ⟶ 636:
=== Help ===
<pre>Morphion [options] Plays the 5T/D variant of Morphion Solitaire
Arguments : -
Where options are:
-A choose player strategy approach (default=random, future)
-E Specifiy an position fitness evaluation function (default none, future)
-SW Search width (strategy dependent, future)
-SD Search depth (strategy dependent, future)
-V|-variant 5D or 5T (default)
-R|-replay replay
-RF file containing game record to be replayed
-RN number of moves to replay (0=all)
-RR game recording format to read (ps=pentasol(default), 0=original)
-RW game recording format to write ps=pentasol(default), 0=original)
-save save the best (-B) and worst (-W) games
-seed start the seed of the random number at this value
-L|-limit games to play (if 0 or less then play until any of 'XxQq' is pressed
note for larger n this benefits from larger BLKSIZE, STRSIZE environment variables
-HW|-histwidth width (cols) of histogram of scores
-HG|-histgroup size of groups (buckets) for histogram
-UN Give status update notifications every n simulations
-B Keep best n games of unique length (default 5)
-W Keep worst n games of unique length (default 3)
-details Log game details for analysis
-Q (debugging) terminates after options processing
-?|-h|-help this help text</pre>
=== Random Game Record ===
The following image was obtained by replaying the game in Pentasol and saving the picture. The original was generated by a multigame simulation and represents the best game generated by this game from the starting position.
[[File:Morpion 5T92 unicon.PNG]]
This the game record used to produce the above image:
<pre>#
# Game Record for Morphion 5T game of 92 moves
# Date: 2012/02/18
# Saved: Games/5T/92-L1_20120218-163208-Fps.txt
# &random: 1617565851
# ReplayFile: * none * (* all * moves)
#
# Pentasol compatible format
#
#
# Morpion Solitaire game
#
# XXXX
# X X
# X X
# XXXR XXXX
# X X
# X X
# XXXX XXXX
# X X
# X X
# XXXX
#
# R = reference point
# List of moves starts with reference point (col,row)
# Lines are
# (col,row) <direction> <+/-centerdist>
# distance to center is left side or top edge
#
(9,7)
(12,8) | -2
(16,7) - -2
(9,8) | -2
(13,11) / 0
(9,9) | +2
(15,11) | -2
(13,13) - -2
(6,11) | -2
(16,10) - -2
(12,14) | -2
(8,4) - +2
(5,7) - +2
(13,6) \ 0
(10,12) \ 0
(14,8) \ 0
(14,12) / 0
(10,10) - -2
(11,9) / 0
(8,6) / 0
(10,8) \ +1
(8,11) \ 0
(11,7) / -1
(13,9) \ 0
(11,11) \ 0
(14,11) - -1
(14,9) | +1
(13,12) | -1
(12,9) - +1
(16,9) / -2
(17,6) / -2
(11,12) - +1
(16,6) / -2
(16,8) | 0
(11,10) | +1
(10,9) \ +1
(11,8) / 0
(13,8) - -2
(15,6) / -2
(13,5) | +2
(10,7) \ +2
(14,6) \ 0
(10,6) | +2
(16,11) \ -2
(11,6) - +2
(11,5) | +2
(8,8) / +2
(8,14) / +2
(8,9) | -1
(7,9) - +2
(4,6) \ +2
(5,12) / +2
(13,4) / -2
(10,5) - +1
(10,11) \ 0
(7,8) / +2
(7,6) | +2
(7,11) - +1
(10,14) | -2
(9,14) / +2
(7,3) \ +2
(17,8) - -2
(14,5) \ +1
(11,14) - -1
(8,12) \ 0
(5,8) - +2
(8,13) | -1
(14,4) | +2
(8,5) / -1
(7,14) / +2
(8,3) \ +2
(6,6) - +2
(5,5) \ +2
(8,2) | +2
(6,4) / 0
(9,3) \ +1
(7,5) / 0
(5,3) \ +2
(6,3) - +1
(6,5) - +1
(6,2) | +2
(7,4) \ +1
(7,2) | +2
(5,4) \ +2
(5,6) | 0
(9,2) / -2
(10,2) - -2
(4,5) \ +2
(10,3) | +1
(3,6) / +2
(4,4) - +2
(2,6) - +2
(3,5) / +1
#</pre>
=== Multigame Run ===
The multigame simulation of completely random play includes a histogram showing game scores clustering in the 20's and 60's. This result is similar to results obtained by [http://www.morpionsolitaire.com/English/RecordsGrids5T.htm Jean-Jacques Sibil] (you will have to scroll down that page to find the reference) who has run nearly a billion such simulations achieving a high score of 102 as of 2010.
The following is a summary file:
<pre># --- Morpion Solitaire 5 (v1.7e) ---
#
# Command line options :
# Summary of Morpion Configuration:
# Variant (5T/
# Games to play = * unlimited *
# Multi-game options:
# - Status Updates = 500
# - Keep best = 5
# - Keep worst = 0
# - Histogram width = 80
# - Histogram grouping = 5
# Games will be saved = Yes
# - Format for game file (write) = procedure WriteMoveLogPS
# Replaying
# -
# - Game file to be replayed = * None *
# Player Strategy = procedure RandomPlayer
# - Position Fitness Evaluator =
# - Search Width (strategy dependant) = 5
# - Search Depth (strategy dependant) = 5
# Log Details for analysis = No
#
Longest game 77 after 1 simulations &random=20122297.
Longest game 77 after 85 simulations &random=274082001.
Longest game 78 after 118 simulations &random=559240181.
Longest game 78 after 123 simulations &random=1682993637.
Longest game 81 after 292 simulations &random=826134037.
Longest game 84 after 1181 simulations &random=1936506737.
Longest game 86 after 4584 simulations &random=1266457499.
Longest game 86 after 44424 simulations &random=1725594333.
Longest game 86 after 47918 simulations &random=1686351259.
Longest game 86 after 50600 simulations &random=665807725.
Longest game 87 after 60841 simulations &random=152917603.
Longest game 87 after 74778 simulations &random=1037682795.
Longest game 88 after 173368 simulations &random=72059739.
Longest game 88 after 241134 simulations &random=2095899781.
Results from Sample of 242921 games of Morpion 5T/D:
Shortest game was 20 moves.
Average game was 53.
Longest game was
Average time/game is
&random is now 452165683.
Summary of Results every '*' =
0 | ( 0)
5 | ( 0)
15 | ( 0)
20 | ( 38637) *****************************************
25 | ( 13790) **************
30 | ( 6657) *******
35 | ( 2604) **
40 | ( 1306) *
45 | ( 1088) *
50 | ( 3448) ***
55 | ( 22481) ***********************
60 | ( 75207) ********************************************************************************
65 | ( 61501) *****************************************************************
70 | ( 13902) **************
75 | ( 1922) **
80 | ( 349)
85 | ( 29)
Longest (5) Game(s):
#
# Game Record for Morphion 5T game of 88 moves
# Date: 2012/02/18
# Saved: Games/5T/88-L0(241134)_20120218-083009-Fps.txt
# &random: 2095899781
# ReplayFile: * none * (* all * moves)
#
Morphion Solitare Grid (move=
1234567890123456
1 ................
2 ....+.+.........
3 .....+++........
4 ..+++++++.......
5 .+++++++++......
6 ..++++****+.....
7 .+++++*++*+.....
8 ..++++*++*++....
9 ...****++****+..
10 ...*++++++++*+..
11 .++*++++++++*++.
12 ...****++****+..
13 ....++*++*++++..
14 .....+*++*+++...
15 .....+****+.....
16 .......++.......
17 ........+.......
18 ................
1234567890123456
#
# Game Record for Morphion 5T game of 88 moves
# Date: 2012/02/18
# Saved: Games/5T/88-L0(173368)_20120218-083009-Fps.txt
# &random: 72059739
# ReplayFile: * none * (* all * moves)
#
Morphion Solitare Grid (move=88):
1234567890123456
1 ................
2 .....
3 .....
4 .....+****+.....
5 ..++++*++*+
6 .
7 ..
8 ...*++++++++*+..
9 .
10 ..
11 ..+
12 .+...
13 .....
14
15 .........++
16 .........
17 ...........
18 ................
1234567890123456
#
# Game Record for Morphion 5T game of
# Date: 2012/02/18
# Saved: Games/5T/87-L0(74778)_20120218-083009-Fps.txt
# &random: 1037682795
# ReplayFile: * none * (* all * moves)
#
Morphion Solitare Grid (move=87):
123456789012345
1 ...............
2 ....+.+........
3 .....+.........
4 ....+++++......
5 ...++++++......
6 .+++++****+....
7 ..++++*++*+....
8 .+++++*++*++...
9 ..+****++****..
10 ..+*++++++++*+.
11 ...*++++++++*..
12 ..+****++****+.
13 ...+++*++*++++.
14 ..++++*++*++...
15 .....+****+.+..
16 ......+++++....
17 ........+......
18 ...............
123456789012345
#
# Game Record for Morphion 5T game of
# Date: 2012/02/18
# Saved: Games/5T/87-L0(60841)_20120218-083009-Fps.txt
# &random: 152917603
# ReplayFile: * none * (* all * moves)
#
Morphion Solitare Grid (move=87):
123456789012345678
1 ..................
2 .........+.+..+...
3 .....+...++++++...
4 ......****+++++...
5 .....+*++*+++++...
6 ....++*++*+++++++.
7 ..+****++****+.+..
8 .++*++++++++*+....
9 .++*++++++++*+....
10 ..+****++****+....
11 .+++++*++*++++....
12 ....++*++*++......
13 ....++****........
14 ....+++...........
15 ..................
123456789012345678
#
# Game Record for Morphion 5T game of
# Date: 2012/02/18
# Saved: Games/5T/86-L0(50600)_20120218-083009-Fps.txt
# &random: 665807725
# ReplayFile: * none * (* all * moves)
#
Morphion Solitare Grid (move=86):
1234567890123456
1 ................
2 .....++..+++....
3 .....+****+.....
4 ....+.*++*+.....
5 ...+.+*++*+..+..
6 ..+****++****...
7 ..+*++++++++*...
8 ..+*++++++++*...
9 ..+****++****++.
10 .+++++*++*+++++.
11 ....++*++*+++++.
12 .....+****+++++.
13 .....++++++++++.
14 ..........+++++.
15 ..........+.....
16 ................
1234567890123456
Shortest (0) Game(s):
Total run time = 32349320 ms
&allocated (Total,static,string,block) : 1152124804 0 144396168 1007728636
&collections (Total,static,string,block) : 4623 0 0 4623
®ions ( - , - ,string,block) : - 0 41859440 41859440
&storage ( - , - ,string,block) : - 0 37784 13290772</pre>
== Other Interesting Results ==
One of things I did to get a feel for the game and perhaps get some insight in to strategies was to replay published record games. These universally look smoother and more organized than even the best random games. Somewhere it occurred to me to truncate these record games and play forward randomly to see what happened. I probably expected them to go off the rails fairly quickly. And while that happens, I was surprised how close these could get to the original record. This lead to my earlier observation that the seeds of success are set very early in morpion. It may also be due to the number of possible moves falling off more quickly than I might expect.
* Using Bruneau's 170 game truncated at 112 moves the program produced the following:
<pre>Longest game 168 after 175790 simulations &random=1821730183.
Longest game 169 after 279675 simulations &random=873864083.
Longest game 170 after 1073380 simulations &random=2014543635.
Longest game 170 after 1086106 simulations &random=1319746023.
Results from Sample of 1091265 games of Morpion 5T/D:
Shortest game was 122 moves.
Average game was 127.0640165312733 moves.
Longest game was 170 moves.
Average time/game is 77.48127814967033 ms.
&random is now 609048351.
Summary of Results every '*' = 6761 games
...
115 | ( 0)
120 | (324190) ***********************************************
125 | (540953) ********************************************************************************
130 | (193255) ****************************
135 | ( 17723) **
140 | ( 13447) *
145 | ( 1577)
150 | ( 83)
155 | ( 0)
160 | ( 28)
165 | ( 7)
170 | ( 2) </pre>
: The two games of 170 are both different and not just transpositions. However the difference produced is in a single move.
* Using Rosin's 177 move (A) grid, the program produced the following,
:* from move 129:
<pre>Longest game 145 after 1 simulations.
Longest game 153 after 2 simulations.
Longest game 154 after 20 simulations.
Longest game 155 after 40 simulations.
Longest game 164 after 50 simulations.
Longest game 168 after 2203 simulations.
Results from Sample of 78393 games of Morpion 5T:
Average game was 147.2826145191535 moves.
Longest game was 168 moves.
Average time/game is 115.6193155001084 ms.
Summary of Results every '*' = 973 games
...
120 | ( 0)
140 | ( 77901) ********************************************************************************
160 | ( 492)</pre>
:* from move 112:
<pre>Longest game 140 after 1 simulations.
Longest game 146 after 10 simulations.
Longest game 148 after 441 simulations.
Longest game 151 after 2029 simulations.
Longest game 153 after 7167 simulations.
Longest game 157 after 34601 simulations.
Longest game 168 after 41977 simulations.
Results from Sample of 524157 games of Morpion 5T:
Shortest game was 126 moves.
Average game was 136.6568528131838 moves.
Longest game was 168 moves.
Average time/game is 138.334270075569 ms.
Summary of Results every '*' = 5643 games
...
100 | ( 0)
120 | (451482) ********************************************************************************
140 | ( 72673) ************
160 | ( 2)</pre>
: Unfortunately that earlier version of the program was not logging the random number seed used for these games nor was it recording games in a notation that I have a converter for (at this time).
The above were run under "Unicon Version 12.0. July 13, 2011" on Windows 7/x64.
| |||