Differences From
Artifact [a4ef51fdec]:
1 -; (include "lib/lisp-macro.scm")
2 -(include "lib/bot-gambit.scm")
1 +(include "lib/lisp-macro.scm")
2 +(include "lib/bot.scm")
3 3
4 4 (rule (base-ideology)
5 5 ("liberalism") ("socialism") ("capitalism")
6 6 ("anarchism") ("marxism") ("marxism-leninism")
7 7 ("nazism") ("feminism") ("stalinism")
................................................................................
12 12 ("demonology") ("linguistics") ("voluntary human extinction")
13 13 ("onanism") ("anthropology") ("authoritarianism")
14 14 ("totalitarianism") ("social justice") ("identity politics")
15 15 ("idpol") ("terrorism") ("islamism")
16 16 ("hedonism") ("libertinism") ("computer science")
17 - ("libertarianism") ("static typing") ("dynamic typing")
17 + ("libertarianism"); ("static typing") ("dynamic typing")
18 18 ("neoliberalism"))
19 19 (rule (ideology-prefix)
20 20 ("neo-") ("social ") ("democratic ")
21 21 ("paleo-") ("retro-") ("anarcho-")
22 22 ("femino-") ("neo") ("anti-")
................................................................................
37 37 ("addiction") ("exploitation") ("drug prohibition")
38 38 ("nazism") ("class conflict") ("harm reduction")
39 39 ("biphobia") ("lesbianism") ("the opioid crisis")
40 40 ("Russia") ("masturbation") ("nuclear war")
41 41 ("oppression") ("immigration") ("totalitarianism")
42 - ("depression") ("mental illness") ("war")
42 + ("depression") ("mental illness") ("war") ("vore")
43 43 ("disease") ("the bourgeoisie")
44 44 ("crime") ("activism") ("Noam Chomsky")
45 45 ("wealth") ("eugenics") ("bigotry")
46 46 ("genocide") ("bitcoin") ("ethnic cleansing")
47 47 ("vaccination") ("autism") ("the alt-right")
48 48 ("authoritarianism") ("freedom of speech")
49 49 ("tooth decay") ("neurodivergence")
50 50 ("abortion") ("healthcare") ("the war")
51 - ("islamophobia") ("sexting") ("static typing")
52 - ("dynamic typing") ("heterophobia") ("heterosexuality"))
51 + ("islamophobia") ("sexting") ; ("static typing") ("dynamic typing")
52 + ("heterophobia") ("heterosexuality"))
53 53 (rule (adjective)
54 54 ("racist") ("homophobic") ("misogynist")
55 55 ("bigoted") ("anti-" (thing)) ("evil")
56 56 ("insane") ("impossible") ("contradictory")
57 57 ("illogical") ("revolutionary") ("self-contradictory")
................................................................................
63 63 ("postfurry") ("eugenicist") ("alt-right")
64 64 ("furry") ("problematic") ("totalitarian")
65 65 ("unlikely") ("compromised") ("authoritarian")
66 66 ("useless") ("useful") ("neurodivergent")
67 67 ("desirable") ("undesirable") ("dialectic")
68 - ("undialectic") ("undefined") ("imperialist")
68 + ("undialectical")("undefined") ("imperialist")
69 69 ("good") ("bad") ("colonialist")
70 - ("acausal") ("black") ("statically-typed")
70 + ("acausal") ("black") ;("statically-typed")
71 71 ("emergent") ("libertarian") ("unreconstructed")
72 72 ("teenage") ("Lacanian") ("intersectional")
73 73 ("horny") ("thirsty"))
74 74
75 75 (rule (trait)
................................................................................
130 130 ("doctors") ("gamers") ("marijuana users")
131 131 ("dentists") ("fascists") ("marijuana addicts")
132 132 ("nazis") ("wizards") ("heroin addicts")
133 133 ("hackers") ("LSD addicts") ("disabled people")
134 134 ("criminals") ("teenagers") ("the differently-abled")
135 - ("teens") ("cissexuals"))
135 + ("teens") ("cissexuals") ("the working class"))
136 136
137 137 ; utility fns
138 138 (rule (adjfor adj con g)
139 139 (adj)
140 140 (adj con g))
................................................................................
222 222 (i " does not address " (problem))
223 223 (i " disregards " (problem))
224 224 (i " is not a solution for " (problem))
225 225 (i " does not solve " (problem))
226 226 (i " cannot solve " (problem))
227 + ("basically, " (predicate-or-claim ii))
227 228
228 229 )
229 230 (rule (predicate i)
230 231 (i " was developed after " (ideology))
231 232 (i " was developed before " (ideology))
................................................................................
235 236 (i " developed before general awareness of " (problem))
236 237 (i " was built on " (ideology))
237 238 (i " was inspired by " (ideology))
238 239 (i " was influenced by " (ideology))
239 240 (i " is an ideological descendent of " (ideology))
240 -
241 - (i " was developed by " (group))
242 - (i " was developed to address the needs of " (group))
243 - (i " was developed to address the needs of " (group) ", not " (group))
244 -
241 + (i " is an ideological descendent of " (ideology) " and " (ideology))
242 + (i (one-of
243 + " was developed by " " was designed by "
244 + " is in the class interests of "
245 + " only addresses the needs of "
246 + " was developed to address the needs of "
247 + " centers " " uplifts " " only liberates "
248 + " centers the needs of " " only cares about "
249 + " centers the struggles of "
250 + " centers the struggle of ")
251 + (group) (one-of "" (string-append ", not " (group))))
252 +
253 + (i (one-of
254 + " disregards "
255 + " disregards the needs of "
256 + " cannot address the struggles of "
257 + " does not liberate " " disrespects "
258 + " disrespects the identity of "
259 + " disrespects the culture of "
260 + " disrespects the history of "
261 + " lacks consideration for "
262 + " does not center " " fails to center "
263 + " does not center the needs of"
264 + " fails to center the needs of ")
265 + (group))
245 266 ("the main contradiction of " i " is " (problem))
246 267
247 - ((group) " believe that " (pc claim (ideology))))
268 + ((group) " believe that " (pc claim i))
269 + ((group) " have an inherent right to "
270 + (one-of "be a part of " " ")
271 + (one-of (thing) (problem))))
248 272
249 273 (rule (claim i)
250 274 ((problem) " " (modal) " inevitably arise")
251 275 ((problem) " " (modal) " still exist")
252 276 ((problem) " " (modal) " " (cause-provoke) " " (problem))
................................................................................
299 323 ((cause (group) i) " become marginalized")
300 324 ((cause (group) i) " become exploited")
301 325 ((cause (group) i) " become addicted to " (thingss))
302 326 ((cause (group) i) " lose their " (trait))
303 327 ((cause (group) i) " lose their " (things))
304 - ((cause (group) i) " no longer have " (necessity))
305 - ((cause (group) i) " no longer be able to get " (necessity))
328 + ((cause (group) i) " " (@
329 + ("no longer " (@ ("have ")
330 + ("be able to " (@ ("get ")
331 + ("get access to ")
332 + ("have ")))))
333 + ("not have "))
334 + (necessity)
335 + (one-of " in their lives" " anymore" " in their lives anymore" ""))
306 336 ((cause (group) i) " lose access to " (necessity))
307 337 )
308 338
309 -(rule (pc p i) ((p i)) ((predicate-or-claim (pick (vector "it" i)))))
339 +(rule (pc p i) ((p i)) ((predicate-or-claim (one-of "it" i))))
310 340 (rule (statement i)
311 341 ((pc predicate i))
312 342 ((pc claim i))
313 343 ("i think " (pc claim i))
314 344 ("it is my considered opinion that " (pc claim i))
................................................................................
346 376 (i (punct) " #checkmate" (atheists))
347 377 (i (punct) " #CheckmateAtheists")
348 378 (i (punct) " #CheckmateAthiests"))
349 379
350 380 (define (checkmate-athiests i)
351 - (if (eqv? (random-integer 9) 0)
381 + (if (eqv? (pseudo-random-integer 9) 0)
352 382 (checkmate-atheists i) ; else
353 383 i))
354 384
355 -(print (checkmate-athiests (statement (ideology))) "\n")
385 +(print (checkmate-athiests (statement (ideology))))