procgen  Check-in [a250db5fda]

Overview
Comment:add dotorg
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: a250db5fda1848adaf28408d73ef988a281e8b0c093a6975f5ca3232849dc569
User & Date: lexi on 2019-06-11 22:01:15
Other Links: manifest | tags
Context
2019-06-24
09:24
updates check-in: d425e8a7c7 user: lexi tags: trunk
2019-06-11
22:01
add dotorg check-in: a250db5fda user: lexi tags: trunk
2019-05-02
07:54
ipdates check-in: 588ff265a6 user: lexi tags: trunk
Changes

Modified badbiobot.ml from [3931f272bd] to [af1138a642].

   167    167   				| _ as c, ' ' -> loop (i+1) (acc^^c) false
   168    168   				| c1, c2 -> if not tps && Random.int 3 = 0 then
   169    169   					loop (i+2) ((acc^^c2)^^c1) true
   170    170   				else
   171    171   					loop (i+2) ((acc^^c1)^^c2) tps
   172    172   	in loop 0 "" false
   173    173   	
   174         -let () = Random.self_init(); print_string (scramble (eval top))
          174  +(* let () = Random.self_init(); print_string (scramble (eval top)) *)
          175  +let () = Random.self_init(); print_string(eval top)

Modified botsoc.scm from [35628b9670] to [40c72117b1].

   302    302   		 (" was " (one-of "developed" "designed" "created" )
   303    303   		  	(@ (" by ")
   304    304   			   (" for ")
   305    305   			   ( (: (" by " (group)))
   306    306   				(one-of " to address the needs of "
   307    307   						" in the class interest of "))))
   308    308   		 (" only " (one-of "centers" "uplifts" "liberates"
   309         -						   "cares about" "addresses the needs of"))
          309  +						   "cares about" "addresses the needs of") " ")
   310    310   		 ((one-of " only" "") (one-of " centers " " cares about ")
   311    311   							  (? "the " (one-of "needs"
   312    312   												"struggles"
   313    313   												"voices"
   314    314   												"experiences"
   315    315   												"suffering"
   316    316   												"struggle") " of "))

Added dotorg.scm version [cb986d11dc].

            1  +(include "lib/lisp-macro.scm")
            2  +(include "lib/bot.scm")
            3  +(import (chicken process-context))
            4  +
            5  +(rule (maybe x) (x) (""))
            6  +(rule (maybe_ x) (x " "))
            7  +(rule (maybe* x) ((x)) (""))
            8  +(rule (maybe_* x) ((x) " ") (""))
            9  +
           10  +(define cat string-append)
           11  +(define-macro (* . body)
           12  +  (let ([sg (car body)]
           13  +        [pl (cadr body)])
           14  +    `(if (eq? *n 'sg) ,sg ,pl)))
           15  +
           16  +(rule (language)
           17  +      ("brainfuck")
           18  +      ("JavaScript")
           19  +      ("ECMAscript")
           20  +      ("FORTRAN")
           21  +      ("COBOL")
           22  +      ("Delphi")
           23  +      ("Visual Basic")
           24  +      ("assembly")
           25  +      ("QBasic")
           26  +      ("vimscript")
           27  +      ("bash")
           28  +      ("shell")
           29  +      ("C++")
           30  +      ("Java")
           31  +      ("Node")
           32  +      ("WebAssembly")
           33  +      ("Scheme")
           34  +      ("Clojure")
           35  +      ("ASP.NET")
           36  +      ("Pascal"))
           37  +
           38  +(rule (bigotry)
           39  +      ("ECMAphobia")
           40  +      (prefix (one-of "phobia" "misia"))
           41  +      ((language) "-" (one-of "phobia" "misia")))
           42  +
           43  +(rule (prefix)
           44  +      ("neo")
           45  +      ("neo-")
           46  +      ("retro")
           47  +      ("hypno")
           48  +      ("meta")
           49  +      ("retro")
           50  +      ("psycho")
           51  +      ("post")
           52  +      ("diablo")
           53  +      ("crypto")
           54  +      ("erotic "))
           55  +
           56  +(rule (noun)
           57  +      ("freedom")
           58  +      ("courage")
           59  +      ("pride")
           60  +      ("hate")
           61  +      ("fascism")
           62  +      ("whiteness")
           63  +      ("orgone"))
           64  +
           65  +(rule (adj)
           66  +      ("retro")
           67  +      ("male")
           68  +      ("white")
           69  +      ("decentralized")
           70  +      ("non-profit")
           71  +      ("for-profit")
           72  +      ("anti-" (@ ((clade 'sg)) ((noun))))
           73  +      ((clade 'sg) (one-of "-phobic" "-misic")))
           74  +
           75  +(rule (trans)
           76  +      ("alienware")
           77  +      ("process")
           78  +      ("capitalist")
           79  +      ("charset")
           80  +      ("digital")
           81  +      ("POSIX"))
           82  +
           83  +(rule (axis)
           84  +      ("stunning and brave")
           85  +      ("furry")
           86  +      ("cyberqueer")
           87  +      ((one-of "strongly"
           88  +          "statically"
           89  +          "dynamically") "-typed")
           90  +      ("trans" (trans))
           91  +      ("read-only")
           92  +      ("spinlocked"))
           93  +
           94  +(rule (kin)
           95  +      ("latin-1")
           96  +      ("Shift JIS")
           97  +      ("KOI8-R")
           98  +      ("POSIX")
           99  +      ("FAT32")
          100  +      ("ext2")
          101  +      ("ext3")
          102  +      ("ZFS")
          103  +      ("systemd-")
          104  +      ("other")
          105  +      ("GNU")
          106  +      ("Stallman")
          107  +      ("Torvalds")
          108  +      ("cyber")
          109  +      ("intel")
          110  +      ("x86-")
          111  +      ("RISC")
          112  +      ("PowerPC-")
          113  +      ("sudoer")
          114  +      ("null")
          115  +      ("void")
          116  +      ("root"))
          117  +
          118  +(rule (tyranny)
          119  +      ("FurAffinity")
          120  +      ("North Korea")
          121  +      ("the USSR")
          122  +      ("Canada")
          123  +      ("Minecraft")
          124  +      ("Pewdiepie")
          125  +      ("T-Series")
          126  +      ("Buzzfeed")
          127  +      ("VICE")
          128  +      ("Fortnite"))
          129  +
          130  +(rule (environment)
          131  +      ("VR")
          132  +      ("Minecraft")
          133  +      ("YouTube")
          134  +      ("4chan"))
          135  +      
          136  +(rule (job)
          137  +      ("journalist")
          138  +      ("meme technician")
          139  +      ("plumber")
          140  +      ("electrician")
          141  +      ("masseuse")
          142  +      ("beautician")
          143  +      ("stylist")
          144  +      ("janitor")
          145  +      ("heating engineer")
          146  +      ("camgirl")
          147  +      ("carpenter"))
          148  +
          149  +(rule (clade *n)
          150  +      ((* "depth-groveler" "depth-grovelers"))
          151  +      ((* "latin✘" "latin✘s"))
          152  +      ((* "latin@" "latin@s"))
          153  +      ((* "transradical" "transradicals"))
          154  +      ((* "biracial" "biracials"))
          155  +      ((* "bisexual" "bisexuals"))
          156  +      ((* "bimetallic" "bimetallics"))
          157  +      ((* "orphan" "orphans"))
          158  +      ((* "gamer" "gamers"))
          159  +      ((* "male feminist" "male feminists"))
          160  +      ((maybe (cat (tyranny) " "))
          161  +       (maybe (prefix)) (* "refugee" "refugees"))
          162  +      ((environment) " " (job) "s")
          163  +      ((* "HTML #000" "HTML #000s"))
          164  +      ((* "NPC" "NPCs"))
          165  +      ((kin) "kin"))
          166  +
          167  +(rule (value)
          168  +      ((clade 'sg) " pride")
          169  +      ((clade 'sg) " " (noun)))
          170  +
          171  +(rule (faction)
          172  +      ("Jordan Peterson")
          173  +      ("radical centrist")
          174  +      ("epic gamer")
          175  +      ("leftbook")
          176  +      ("memelord")
          177  + )
          178  +
          179  +(rule (orgtype)
          180  +      ("commune")
          181  +      ("think tank")
          182  +      ("superPAC")
          183  +      ("co-op")
          184  +      ("collective")
          185  +      ("for-profit")
          186  +      ((one-of "death squad" "militia" "brigade"))
          187  +      ((one-of "defense" "private military") " "
          188  +        "contractor")
          189  +      ("non-profit"))
          190  +
          191  +(rule (org)
          192  +      ((maybe_* adj) (maybe_* faction)
          193  +       (maybe (prefix)) (orgtype)))
          194  +
          195  +(rule (woke-product)
          196  +      ((org) " for " (clade 'pl))
          197  +      
          198  +      ((clade 'sg) " " (language) " " (maybe (prefix)) (orgtype)))
          199  +
          200  +(display (string-append (woke-product) "\n"))