procgen  Diff

Differences From Artifact [eea7ee34de]:

• File botsoc.scm — part of check-in [93b72b5a88] at 2018-11-20 20:40:31 on branch trunk — checkmate, athiests! (user: lexi, size: 12109) [annotate] [blame] [check-ins using]

To Artifact [e3d4e11eaf]:

• File botsoc.scm — part of check-in [574e682167] at 2018-11-20 21:02:50 on branch trunk — fix likelihood (user: velartrill, size: 12108) [annotate] [blame] [check-ins using]

   331    331   	  (i (punct) " checkmate " (atheists) (end-punct))
   332    332   	  (i (punct) " checkmate" (punct) " " (atheists) (end-punct))
   333    333   	  (i (punct) " #checkmate" (atheists))
   334    334   	  (i (punct) " #CheckmateAtheists")
   335    335   	  (i (punct) " #CheckmateAthiests"))
   336    336   
   337    337   (define (checkmate-athiests i)
   338         -	(if (eqv? (random-integer 20) 0)
          338  +	(if (eqv? (random-integer 9) 0)
   339    339   		(checkmate-atheists i) ; else
   340    340   		i))
   341    341   
   342    342   (print (checkmate-athiests (statement (ideology))) "\n")