Rholang game where players compete to be the tenth caller.

call.rho

new stdout(`rho:io:stdout`) in {
  @"tenthCaller"!("Joshy", *stdout)
}

tenthCaller.rho

new countCh in {

  // Count state channel starts at zero
  countCh!(0)|

   contract @"tenthCaller"(@name, result) = {
    for(@oldCount <- countCh) {
      match oldCount {
        10 => { result!("The winner is: " ++ name) }
        _  => { countCh!(oldCount + 1)|
                 result!("Sorry, try again.") }
      }
    }
  }
}

/*
To test this, just call it up a bunch of times.
new stdout(`rho:io:stdout`) in {
@"tenthCaller"!("Joshy", *stdout)
}


Nice feature. When the 100th caller is reached, nothing is
written back to countCh, which means the for on line 7
will never comm again. Callers who are too late are
not told to try again, and the game just dies.
*/