SixFaces

; How many times you need to throw a dice to obtain the 6 possible face values?
; At least 6 times, of course
; Mean value is 14.7 sharp

; Simulation by Francisco Restivo, frestivo@gmail.com

globals [valor faces serie nseries media fim]

to setup
 clear-all
 crt 33 ; 33 turtles, for lengths from 1 to 33
 ask turtles [
   set label (who + 1)
   setxy (who - 16) -16
   set heading 0
   set pen-size 9
   pd ]
 reset-ticks
 set faces [0 0 0 0 0 0]
 set serie 0
 set nseries 0
 set fim 0
end 

to throw
  tick
  set valor random 6
  set serie serie + 1
  if item valor faces = 0 [
    set faces replace-item valor faces 1 ]
  if faces = [1 1 1 1 1 1] [ ; got the 6 faces?
    if serie <= 33 [
      ask turtle (serie - 1) [
        forward 10 ^ step
        if ycor >= 16 [ ; race ended?
          set fim 1] ] ]
    set faces [0 0 0 0 0 0]
    set nseries (nseries + 1)
    set media (ticks / nseries)
    set serie 0 ]
end 

to go
  if fim = 0 [
    throw ]
end