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")
8 8 ("democracy") ("stirnerism") ("harm reduction")
9 9 ("egoism") ("objectivism") ("monarchism")
................................................................................
10 10 ("tribadism") ("eugenics") ("fascism")
11 11 ("juche") ("nationalism") ("human extinctionism")
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-")
23 23 ("sado-") ("eroto-") ("strangulo-")
24 24 ("theo-") ("ultra-") ("arachno-")
................................................................................
35 35 ("racism") ("mortality") ("misogyny")
36 36 ("drug use") ("alcoholism") ("homophobia")
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")
58 58 ("white") ("communist") ("socialist")
59 59 ("marxist") ("stalinist") ("lesbian")
................................................................................
61 61 ("religious") ("bourgeois") ("proletarian")
62 62 ("classist") ("monarchist") ("fascist")
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)
76 76 ("power") ("influence") ("wealth") ("solidarity")
77 77 ("hope") ("conviction") ("autonomy") ("freedom")
................................................................................
128 128 ("addicts") ("junkies") ("tweakers")
129 129 ("potheads") ("acid heads") ("meth addicts")
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))
141 141 (rule (modal)
142 142 ("will") ("could") ("might") ("will likely") ("can")
................................................................................
220 220
221 221 (i " fails to address " (problem))
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))
232 233 (i " was developed before " (problem) " was recognized")
233 234 (i " was developed before " (problem) " was recognized as a problem")
234 235 (i " was developed before the issue of " (problem) " came into focus")
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))
253 277 ((problem) " " (modal) " " (cause-provoke) " the defeat of " i)
254 278 ((problem) " cannot be distinguished from " i)
................................................................................
297 321 ((cause (group) i) " suffer")
298 322 ((cause (group) i) " be marginalized")
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))
315 345 ("i think we all know that " (pc claim i))
316 346 ("nobody would deny that " (pc claim i))
................................................................................
344 374 (i (punct) " checkmate " (atheists) (end-punct))
345 375 (i (punct) " checkmate" (punct) " " (atheists) (end-punct))
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))))