procgen  Diff

Differences From Artifact [6437b613b4]:

• File botsoc.scm — part of check-in [1521429541] at 2018-09-24 23:18:14 on branch trunk — initial commit (user: lexi, size: 11418) [annotate] [blame] [check-ins using]

To 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]

    42     42   	("disease") 		("the bourgeoisie")
    43     43   	("crime")		("activism")			("Noam Chomsky")
    44     44   	("wealth")		("eugenics")		("bigotry")
    45     45   	("genocide")	("bitcoin")			("ethnic cleansing")
    46     46   	("vaccination")	("autism")			("the alt-right")
    47     47   	("authoritarianism") ("freedom of speech")
    48     48   	("tooth decay")	("neurodivergence")
    49         -	("abortion")	("healthcare")
           49  +	("abortion")	("healthcare")	("the war")
    50     50   	("islamophobia") ("sexting") ("static typing")
    51     51   	("dynamic typing") ("heterophobia") ("heterosexuality"))
    52     52   (rule (adjective)
    53     53   	("racist")			("homophobic")	("misogynist")
    54     54   	("bigoted")		("anti-" (thing))	("evil")
    55     55   	("insane")		("impossible")		("contradictory")
    56     56   	("illogical")		("revolutionary")	("self-contradictory")
................................................................................
   241    241   	((problem) " " (modal) " still exist")
   242    242   	((problem) " " (modal) " " (cause-provoke) " " (problem))
   243    243   	((problem) " " (modal) " " (cause-provoke) " the defeat of " i)
   244    244   	((problem) " cannot be distinguished from " i)
   245    245   	(i " and " (ideology) " cannot be distinguished")
   246    246   	(i " and " (ideology) " will produce the same result")
   247    247   
   248         -	((group) " " (modal) " be exploited")
          248  +	((group) " " (modal) " beaxploited")
   249    249   	((group) " " (modal) " still be exploited")
   250    250   	((group) " " (modal) " be exploited under " i)
   251    251   	((group) " " (modal) " still be exploited under " i)
   252    252   	((group) " " (modal) " face " (problem))
   253    253   	
   254    254   	(i " " (modal) " kill " (group))
   255    255   	
................................................................................
   309    309   	("since " (pc predicate i) ", " (pc claim i))
   310    310   	("as a result of " (problem) ", " (pc claim i))
   311    311   	("due to " (problem) ", " (pc claim i))
   312    312   	("despite what " (group) " think, " (pc claim i))
   313    313   	("despite what " (group) " think about " (problem) ", " (pc claim i))
   314    314   	("while " (group) " think " (pc claim i) ", the reality is that " (pc claim i))
   315    315   	)
   316         -	
   317         -(print (statement (ideology)) "\n")
          316  +
          317  +(rule (punct)
          318  +	  (".")		("…")		(" —")		(",")
          319  +	  (",")		("...")		(" -")		(" --")
          320  +	  ("?")		("!")		("!?")		(";"))
          321  +
          322  +(rule (end-punct)
          323  +	  (".")		("…")		("...")		("!")
          324  +	  ("?")		("!")		("!!"))
          325  +
          326  +(rule (atheists)
          327  +	  ("atheists") ("athiests"))
          328  +
          329  +(rule (checkmate-atheists i)
          330  +	  (i (punct) " checkmate, " (atheists) (end-punct))
          331  +	  (i (punct) " checkmate " (atheists) (end-punct))
          332  +	  (i (punct) " checkmate" (punct) " " (atheists) (end-punct))
          333  +	  (i (punct) " #checkmate" (atheists))
          334  +	  (i (punct) " #CheckmateAtheists")
          335  +	  (i (punct) " #CheckmateAthiests"))
          336  +
          337  +(define (checkmate-athiests i)
          338  +	(if (eqv? (random-integer 20) 0)
          339  +		(checkmate-atheists i) ; else
          340  +		i))
          341  +
          342  +(print (checkmate-athiests (statement (ideology))) "\n")