Overview
| Comment: | $100 will make me extremely more racist |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
ca1d956dffc9280e234ab08769e42160 |
| User & Date: | lexi on 2021-08-29 17:08:39 |
| Other Links: | manifest | tags |
Context
|
2022-09-21
| ||
| 01:40 | modernize botsoc check-in: 92ed9358a3 user: lexi tags: trunk | |
|
2021-08-29
| ||
| 17:08 | $100 will make me extremely more racist check-in: ca1d956dff user: lexi tags: trunk | |
|
2020-10-17
| ||
| 06:26 | updates check-in: ab1b71a07a user: lexi tags: trunk | |
Changes
Modified botsoc.scm from [e2cbed27a3] to [06502ccea6].
12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 .. 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 ... 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 ... 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 |
("juche") ("nationalism") ("human extinctionism")
("demonology") ("linguistics") ("voluntary human extinction")
("onanism") ("anthropology") ("authoritarianism")
("totalitarianism") ("social justice") ("identity politics")
("idpol") ("terrorism") ("islamism")
("hedonism") ("libertinism") ("computer science")
("transhumanism") ("posthumanism") ("humanism")
("humanitarianism")
("libertarianism"); ("static typing") ("dynamic typing")
("neoliberalism"))
(rule (ideology-prefix)
("neo-") ("social ") ("democratic ")
("paleo-") ("retro-") ("anarcho-")
("femino-") ("neo") ("anti-")
("sado-") ("eroto-") ("strangulo-")
("theo-") ("ultra-") ("arachno-")
("anti") ("post-") ("post")
("ethno-") ("marxism-") ("left-")
("alt-") ("right-") ("space ") ("gay ")
("quantum "))
(rule (ideology)
((base-ideology))
((adjective) " " (ideology))
((ideology-prefix) (base-ideology)))
(rule (problem)
("poverty") ("hunger") ("hatred")
("racism") ("mortality") ("misogyny")
................................................................................
("enchant " (things)) ("perform wizardry") ("engage in witchcraft")
("have sex") ("fuck" (: ((group)))) ("own " (thingss))
("declare war") ("deprive " (group) " of " (necessity)))
(rule (trait)
("power") ("influence") ("wealth") ("solidarity")
("hope") ("conviction") ("autonomy") ("freedom")
("liberty") ("faith") ("humanity") ("sapience"))
(rule (necessity)
("sex") ("water") ("food") ("money")
("wealth") ("income") ("welfare") ("tea")
("therapy") ("pain relief") ("medical care")
("medicine") ("reproduction") ("hope") ("faith")
("love") ("pain") ("love") ("oxygen") ("nutrition"))
(rule (thing)
((problem)) ((necessity)) ("Russia") ("Mars")
("activism")
((thing) " activism") ("anti-" (thing) " activism")
((adjective) " activism") ("bitcoin") ("humanity")
("vaccination") ("autism") ("medical care")
................................................................................
("meth") ("heroin") ("dialectics") ("the dialectic")
("the Discourse") ("medical care") ("psychiatry")
("influenza") ("alien life") ("mind control")
("terrorism") ("identity") ("healthcare")
("literature") ("grass") ("catnip") ("virginity")
("television") ("romance") ("finance")
("opium") ("law") ("dating") ("online dating") ("friendship")
("the Resistance"))
(rule (things)
("pandas") ("lasers") ("toasters")
("kulaks") ("opiates") ("painkillers")
("teacups") ("umbrellas") ((thing) " rights")
((adjective) " rights") (group)
("humans") ("vaccines")
("doctors") ("drugs") ("hospitals") ("UFOs") ("aliens")
("flowers") ("pumpkins") ("guns") ("babies")
("friends") ("bitcoins")
)
(rule (thingss)
((thing)) ((things)))
(rule (group)
("gays") ("whites") ("African-Americans")
("the poor") ("the rich") ("Jewish people")
("natives") ("otherkin") ("psychics")
................................................................................
("lizards") ("bureaucrats") ("politicians")
("catholics") ("methodists") ("mormons")
("kulaks") ("slaves") ("human trafficking victims")
("victims") ("crime victims") ("victims of " (problem))
("losers") ("thieves") ("queer people")
("queers") ("senators") ("presidents")
("queens") ("kings") ("emperors")
("aliens")
((thing) " activists") ("anti-" (adjective) " activists")
((ideology) " activists") ((adjective) " activists"))
; utility fns
(rule (adjfor adj con g)
(adj)
(adj con g))
|
| | | > | > | | | | |
12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 .. 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 ... 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 ... 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 |
("juche") ("nationalism") ("human extinctionism")
("demonology") ("linguistics") ("voluntary human extinction")
("onanism") ("anthropology") ("authoritarianism")
("totalitarianism") ("social justice") ("identity politics")
("idpol") ("terrorism") ("islamism")
("hedonism") ("libertinism") ("computer science")
("transhumanism") ("posthumanism") ("humanism")
("humanitarianism") ("racism")
("libertarianism"); ("static typing") ("dynamic typing")
("neoliberalism"))
(rule (ideology-prefix)
("neo-") ("social ") ("democratic ")
("paleo-") ("retro-") ("anarcho-")
("femino-") ("neo") ("anti-")
("sado-") ("eroto-") ("strangulo-")
("theo-") ("ultra-") ("arachno-")
("anti") ("post-") ("post")
("ethno-") ("marxism-") ("left-")
("alt-") ("right-") ("space ") ("gay ")
("quantum ") ("racial "))
(rule (ideology)
((base-ideology))
((adjective) " " (ideology))
((ideology-prefix) (base-ideology)))
(rule (problem)
("poverty") ("hunger") ("hatred")
("racism") ("mortality") ("misogyny")
................................................................................
("enchant " (things)) ("perform wizardry") ("engage in witchcraft")
("have sex") ("fuck" (: ((group)))) ("own " (thingss))
("declare war") ("deprive " (group) " of " (necessity)))
(rule (trait)
("power") ("influence") ("wealth") ("solidarity")
("hope") ("conviction") ("autonomy") ("freedom")
("liberty") ("faith") ("humanity") ("sapience")
("purity") ("flesh purity") ("racial purity"))
(rule (necessity)
("sex") ("water") ("food") ("money")
("wealth") ("income") ("welfare") ("tea")
("therapy") ("pain relief") ("medical care")
("medicine") ("reproduction") ("hope") ("faith")
("love") ("pain") ("love") ("oxygen") ("nutrition")
("racial hygiene"))
(rule (thing)
((problem)) ((necessity)) ("Russia") ("Mars")
("activism")
((thing) " activism") ("anti-" (thing) " activism")
((adjective) " activism") ("bitcoin") ("humanity")
("vaccination") ("autism") ("medical care")
................................................................................
("meth") ("heroin") ("dialectics") ("the dialectic")
("the Discourse") ("medical care") ("psychiatry")
("influenza") ("alien life") ("mind control")
("terrorism") ("identity") ("healthcare")
("literature") ("grass") ("catnip") ("virginity")
("television") ("romance") ("finance")
("opium") ("law") ("dating") ("online dating") ("friendship")
("the Resistance") ("the Manosphere") ("race") ("Qanon"))
(rule (things)
("pandas") ("lasers") ("toasters")
("kulaks") ("opiates") ("painkillers")
("teacups") ("umbrellas") ((thing) " rights")
((adjective) " rights") (group)
("humans") ("vaccines")
("doctors") ("drugs") ("hospitals") ("UFOs") ("aliens")
("flowers") ("pumpkins") ("guns") ("babies")
("friends") ("bitcoins"))
(rule (thingss)
((thing)) ((things)))
(rule (group)
("gays") ("whites") ("African-Americans")
("the poor") ("the rich") ("Jewish people")
("natives") ("otherkin") ("psychics")
................................................................................
("lizards") ("bureaucrats") ("politicians")
("catholics") ("methodists") ("mormons")
("kulaks") ("slaves") ("human trafficking victims")
("victims") ("crime victims") ("victims of " (problem))
("losers") ("thieves") ("queer people")
("queers") ("senators") ("presidents")
("queens") ("kings") ("emperors")
("aliens") ("racists")
((thing) " activists") ("anti-" (adjective) " activists")
((ideology) " activists") ((adjective) " activists"))
; utility fns
(rule (adjfor adj con g)
(adj)
(adj con g))
|
Modified bottist.ml from [b567179d0e] to [a67f7988a8].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
let adjs = [| "queer"; "electric"; "space"; "super"; "discount"; "extreme"; "far-left";
"far-right"; "unreconstructed"; "modern"; "eternal"; "original"; "historical"; "tankie"; "mystical"; "arcane"; "catholic"; "protestant"; "irish"; "dialectical"; "confucian"; "orbital"; "suborbital"; "martian"; "minimalist"; "moist"; "dire"; "trotskyite"; "trotskyist"; "supreme"; "objective"; "object-oriented"; "moist"; "authentic"; "nazi"; "anti-revisionist"; "revisionist"; "revolutionary"; "counter-revolutionary"; "populist"; "de-leonist"; "lexical"; "armed"; "unarmed"; "people's"; "sectarian"; "israeli"; "palestinian"; "american"; "mexican"; "russian"; "soviet"; "reformist"; "canadian"; "automatic"; "automated"; "luxury"; "deluxe"; "gay"; "full"; "islamic"; "christian"; "visionary"; "magical"; "magic"; "social"; |]
let prefixes = [|"neo"; "post"; "retro"; "anti"; "counter"; "pre"; "paleo"; "femino"; "anarcho"; "oligo"; "meta"; "diabolo"; "theo"; "petro"; "sado"; "arachno"; "psycho"; "socio"; "eroto";
"nano"; "mini"; "xeno"; "astro"; "femto"; "electro"; "endo"; "arch"; "macro";
"cardio"; "mesmo"; "chrono"; "nycto"; "megalo"; "lesbo"; "masculo"; "ultra"; "urtla";
"proto"; "weebo"; "thanato"; "volcano"; "strangulo"; "quasi"; "pseudo"; "procto";
"copro"; "hydro"; "gastro"; "thermo"; "mystico"; "arcano"; "disastro"; "vagino"; "dino";
"nympho"; "pharma"; "macho"; "tele"; "bio"; "cryo"; "homo"; "hetero"; "auto"; "arachno";
"christo"; "islamo"; "narco"|]
let ists = [| "plurali"; "femini"; "activi"; "sociali"; "marxi"; "lenini"; "stalini"; "fasci"; "sadi"; "stirneri"; "masochi"; "imperiali"; "arcani"; "syndicali"; "masturbati"; "pedantici"; "posadi"; "hoxhai"; "maoi"; "papi"; "catholici"; "protestanti"; "coloniali"; "francoi"; "materiali"; "immateriali"; "sexuali"; "stallmani"; "minarchi"; "totalitariani"; "authoritariani"; "revisioni"; "legali"; "supremaci"; "masculi"; "primitivi"; "brezhnevi"; "populi"; "kautskyi"; "hitleri"; "pacifi"; "zioni"; "reformi"; "canadiani"; "tribadi"; "automati"; "autonomi"; "luddi"; "libertariani"; "capitali"; "chauvini"; "anarchi"; "mystici"; "islami"; "nazi"|]
let range min max = (Random.int (max-min)) + min
let chance n = range 0 n = 0
let pick (r: 'a array) : 'a = r.(range 0 (Array.length r));;
let rec accumulate fn times = fn () ^ if times = 0 then "" else " "^(accumulate fn (times-1))
let makeist () = (if chance 2 then (pick prefixes)^"-" else "") ^ (pick ists)^(pick [|"st"; "te"|])
let ideology () = (if chance 3 then (if chance 4 then (pick prefixes) else "") ^ (pick adjs)^" " else "" )
^ (accumulate makeist (range 0 2)) ^ " "
^ (if chance 3 then (pick prefixes)^"-" else "") ^ (pick ists) ^ "sm"
(* original "mock the anarchists" mode:
^ (if chance 2 then ((if chance 3 then pick prefixes else "") ^"anarchism") else (pick [|"anarcho-";"arachno-"|])^(pick ists)^"sm") *)
let () = Random.self_init (); print_string (ideology ())
|
| | | | |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
let adjs = [| "queer"; "electric"; "space"; "super"; "discount"; "extreme"; "far-left";
"far-right"; "unreconstructed"; "modern"; "eternal"; "original"; "historical"; "tankie"; "mystical"; "arcane"; "catholic"; "protestant"; "irish"; "dialectical"; "confucian"; "orbital"; "suborbital"; "martian"; "minimalist"; "moist"; "dire"; "trotskyite"; "trotskyist"; "supreme"; "objective"; "object-oriented"; "moist"; "authentic"; "nazi"; "anti-revisionist"; "revisionist"; "revolutionary"; "counter-revolutionary"; "populist"; "de-leonist"; "lexical"; "armed"; "unarmed"; "people's"; "sectarian"; "israeli"; "palestinian"; "american"; "mexican"; "russian"; "soviet"; "reformist"; "canadian"; "automatic"; "automated"; "luxury"; "deluxe"; "gay"; "full"; "islamic"; "christian"; "visionary"; "magical"; "magic"; "social";"racist"; |]
let prefixes = [|"neo"; "post"; "retro"; "anti"; "counter"; "pre"; "paleo"; "femino"; "anarcho"; "oligo"; "meta"; "diabolo"; "theo"; "petro"; "sado"; "arachno"; "psycho"; "socio"; "eroto";
"nano"; "mini"; "xeno"; "astro"; "femto"; "electro"; "endo"; "arch"; "macro";
"cardio"; "mesmo"; "chrono"; "nycto"; "megalo"; "lesbo"; "masculo"; "ultra"; "urtla";
"proto"; "weebo"; "thanato"; "volcano"; "strangulo"; "quasi"; "pseudo"; "procto";
"copro"; "hydro"; "gastro"; "thermo"; "mystico"; "arcano"; "disastro"; "vagino"; "dino";
"nympho"; "pharma"; "macho"; "tele"; "bio"; "cryo"; "homo"; "hetero"; "auto"; "arachno";
"christo"; "islamo"; "narco"; "levo"; "dextro";|]
let ists = [| "plurali"; "femini"; "activi"; "sociali"; "marxi"; "lenini"; "stalini"; "fasci"; "sadi"; "stirneri"; "masochi"; "imperiali"; "arcani"; "syndicali"; "masturbati"; "pedantici"; "posadi"; "hoxhai"; "maoi"; "papi"; "catholici"; "protestanti"; "coloniali"; "francoi"; "materiali"; "immateriali"; "sexuali"; "stallmani"; "minarchi"; "totalitariani"; "authoritariani"; "revisioni"; "legali"; "supremaci"; "masculi"; "primitivi"; "brezhnevi"; "populi"; "kautskyi"; "hitleri"; "pacifi"; "zioni"; "reformi"; "canadiani"; "tribadi"; "automati"; "autonomi"; "luddi"; "libertariani"; "capitali"; "chauvini"; "anarchi"; "mystici"; "islami"; "nazi"; "arsoni"|]
let range min max = (Random.int (max-min)) + min
let chance n = range 0 n = 0
let pick (r: 'a array) : 'a = r.(range 0 (Array.length r));;
let rec accumulate fn times = fn () ^ if times = 0 then "" else " "^(accumulate fn (times-1))
let makeist () = (if chance 2 then (pick prefixes)^"-" else "") ^ (pick ists)^(pick [|"st"; "st"; "st"; "te"|])
let ideology () = (if chance 3 then (if chance 4 then (pick prefixes) else "") ^ (pick adjs)^" " else "" )
^ (accumulate makeist (range 0 2)) ^ " "
^ (if chance 3 then (pick prefixes)^"-" else "") ^ (pick ists) ^ "sm"
(* original "mock the anarchists" mode:
^ (if chance 2 then ((if chance 3 then pick prefixes else "") ^"anarchism") else (pick [|"anarcho-";"arachno-"|])^(pick ists)^"sm") *)
let () = Random.self_init (); print_string (ideology ())
|