Index of /lisp/Tic-Tac-Toe

 Name                    Last modified      Size  Description
 Parent Directory                             -   
 alpha-beta.lisp         28-Jan-2007 18:44  799   
 human.lisp              29-Jan-2007 21:16  427   
 minimax.lisp            28-Jan-2007 18:43  816   
 random-strategy.lisp    27-Jan-2007 19:07  224   
 size3.log               28-Jan-2007 22:01  679   
 size4.log               28-Jan-2007 21:59  1.3K  
 tic-tac-toe.asd         31-Aug-2009 22:32  414   
 tic-tac-toe.lisp        28-Jan-2007 22:35  3.4K  

sbcl-1.0.29:

CL-USER> (time (play (alpha-beta-searcher) #'random-strategy :print nil))
Evaluation took:
  0.026 seconds of real time
  0.026408 seconds of total run time (0.026367 user, 0.000041 system)
  100.00% CPU
  63,238,380 processor cycles
  2,088,960 bytes consed
  
1
CL-USER> (time (play (alpha-beta-searcher) #'random-strategy :print nil :size 4))
Evaluation took:
  1187.301 seconds of real time
  1184.926783 seconds of total run time (1179.167798 user, 5.758985 system)
  [ Run times consist of 16.610 seconds GC time, and 1168.317 seconds non-GC time. ]
  99.80% CPU
  2,842,365,043,416 processor cycles
  62,280,846,624 bytes consed
  
1


sbcl-1.0.30

CL-USER> (time (play (alpha-beta-searcher) #'random-strategy :print nil :size 4))
Evaluation took:
  1281.103 seconds of real time
  1189.349934 seconds of total run time (1181.299518 user, 8.050416 system)
  [ Run times consist of 13.500 seconds GC time, and 1175.850 seconds non-GC time. ]
  92.84% CPU
  3,066,912,184,392 processor cycles
  62,239,535,952 bytes consed
  
0




AllegroCL 8.1a:

CL-USER> (time (play (alpha-beta-searcher) #'random-strategy :print nil))
; cpu time (non-gc) 60 msec user, 0 msec system
; cpu time (gc)     20 msec user, 0 msec system
; cpu time (total)  80 msec user, 0 msec system
; real time  81 msec
; space allocation:
;  128,278 cons cells, 88 other bytes, 0 static bytes
1
CL-USER> (time (play (alpha-beta-searcher) #'random-strategy :print nil :size 4))
; Evaluation aborted.