Commit Graph

179 Commits

Author SHA1 Message Date
b5c727978c Evaluated set garbage [list] 2023-01-04 10:13:55 -08:00
ba93c99557 Evaluated unset garbage 2023-01-04 10:13:50 -08:00
7df3c265bc Evaluated set garbage [list] 2023-01-04 10:11:49 -08:00
7fb7bc78b1 Evaluated proc lex_fridman_reading {{N 5}} {for {set i 0} {$i < 5} {incr i} {if [expr $i % 2] {. Week $i: [lindex_random $::hard_book]} {. Week $i: [lindex_random $::easy_book]}}} 2023-01-04 10:08:08 -08:00
bca39b70c7 Evaluated set ::hard_book [list "Gravity's Rainbow" "Ulysses" "À la recherche du temps perdu" "The Voynich Manuscript" "Finnegans Wake" "The printout of the human genome project" "The Wycliffe Bible" "The Sorrows of Young Werther" "The Rohonc Codex" "War and Peace" "Swann's Way" "The Sound and the Fury" "The Tractatus Logico-Philosophicus"] 2023-01-04 09:58:47 -08:00
d0b4bd4b90 Evaluated set ::easy_book [list "The Little Engine That Could" "The Giver" "Three little pigs" "Alexander and the Terrible, Horrible, No Good, Very Bad Day" "Green Eggs and Ham" "Charlotte's Web" "The Giving Tree" "The Snowy Day" "Jet Magazine" "Where's Waldo?" "Goodnight Moon" "The Velveteen Rabbit"] 2023-01-04 09:54:55 -08:00
8ba91531cd Evaluated proc happynewyear {{channel #gamme}} {string map "PLACEHOLDER [rainbow $channel]" $::happynewyear} 2022-12-31 09:24:52 -08:00
152298e891 Evaluated set happynewyear [wget https://dpaste.com/BRND36KP9.txt] 2022-12-31 09:19:59 -08:00
408910127f Evaluated proc WORDOFGOD args {set ret ""; foreach {a b c d e} [split [n_r_r'] {}] {lappend ret [lindex $::english_words [expr [scan "$a$b$c$d$e" %x] % [llength $::english_words]]]}; return $ret} 2022-12-27 15:28:09 -08:00
97db1fe041 Evaluated proc n_r_r' args {join [lindex [split [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/last]]]] 6]} 2022-12-27 15:26:06 -08:00
4652599f7b Evaluated proc n_r_r' when {join [lindex [split [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/last]]]] 6]} 2022-12-27 15:25:58 -08:00
3d13d6cc5c Evaluated proc WORDOFGOD {{when "8 hours ago"}} {set ret ""; foreach {a b c d e} [split [n_r_r [clock scan $when]] {}] {lappend ret [lindex $::english_words [expr [scan "$a$b$c$d$e" %x] % [llength $::english_words]]]}; return $ret} 2022-12-27 15:18:01 -08:00
9f37e44428 Evaluated proc WORDOFGOD {{when "8 hours ago"}} {set ret "";foreach {a b c d e} [split [n_r_r [clock scan "8 hours ago"]] {}] {lappend ret [lindex $::english_words [expr [scan "$a$b$c$d$e$f" %x] % [llength $::english_words]]]}; return $ret} 2022-12-27 15:17:29 -08:00
9425a8195b Evaluated proc WORDOFGOD {{when "8 hours ago"}} {set ret "";foreach {a b c d e} [split [n_r_r [clock scan "8 hours ago"]] {}] {lappend ret [lindex $english_words [expr [scan "$a$b$c$d$e$f" %x] % [llength $english_words]]]}; return $ret} 2022-12-27 15:16:32 -08:00
2abcf057e6 Evaluated set ret "";foreach {a b c d e f} [split [n_r_r [clock scan "8 hours ago"]] {}] {lappend ret [scan "$a$b$c$d$e$f" %x]}; return $ret 2022-12-27 15:13:24 -08:00
822d14db41 Evaluated set ret "";foreach {a b c d} [split [n_r_r [clock scan "8 hours ago"]]] {lappend ret "$a$b$c$d"}; return $ret 2022-12-27 15:11:43 -08:00
9c697eec86 add english words 2022-12-27 15:01:59 -08:00
e76f0fed4a Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 5 128] {lappend ret [lindex [.. a z] [expr $z % 26]]};join $ret ""} 2022-12-26 18:31:42 -08:00
727b1fc510 Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 5 128] {lappend ret [lindex [.. a z] [expr $z % 26]]};lindex $ret 0} 2022-12-26 18:31:27 -08:00
a245f9351d Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 5 128] {lappend ret [lindex [.. a z] [expr $z % 26]]};lindex $ret -} 2022-12-26 18:31:24 -08:00
e94de74731 Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 5 128] {lappend ret [lindex [.. a z] [expr $z % 26]]};return $ret} 2022-12-26 18:31:08 -08:00
8ab2ba653f Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 5 128] {lappend ret [lindex [.. a z] [expr $z % 26]]};split $ret { }} 2022-12-26 18:30:57 -08:00
2d900c8b62 Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 5 128] {lappend ret [lindex [.. a z] [expr $z % 26]]};split $ret} 2022-12-26 18:30:49 -08:00
059ae5cdf0 Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 5 128] {lappend ret [lindex [.. a z] [expr $z % 26]]};split $ret " "} 2022-12-26 18:30:39 -08:00
edbbb09b30 Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 5 128] {lappend ret [lindex [.. a z] [expr $z % 26]]};join [split $ret " "]} 2022-12-26 18:30:16 -08:00
4c024a3bb1 Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 5 128] {lappend ret [lindex [.. a z] [expr $z % 26]]};join [split $ret]} 2022-12-26 18:30:01 -08:00
d34e09b599 Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 5 128] {lappend ret [lindex [.. a z] [expr $z % 26]]};join [join $ret]} 2022-12-26 18:29:42 -08:00
02f1b53b97 Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 10 128] {lappend ret [lindex [.. a z] [expr $z % 26]]};join $ret} 2022-12-26 18:29:04 -08:00
2e8ed67808 Evaluated proc nist_rand' {{when {}} {n 1}} {if {$when eq ""} {set when [clock scan "8 hours ago"]};lrange [hex2dec [n_r_r $when]] 0 $n-1} 2022-12-26 18:22:50 -08:00
ede8e9cba8 Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 10 128] {lappend ret [format %c [expr $z + 32]]};join $ret} 2022-12-26 18:20:42 -08:00
6389b57ea1 Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 5 128] {lappend ret [format %c [expr $z + 32]]};join $ret} 2022-12-26 18:19:38 -08:00
d99a5b9b93 Evaluated proc n_arsebackwards_rands' {n max} {set aret [list]; foreach z [nist_rand' {} $n] {lappend aret [expr $z % $max]}; return $aret} 2022-12-26 18:17:09 -08:00
e430ea4106 Evaluated proc n_arsebackwards_rands' {n max} {set aret [list]; foreach z [nist_rand {} $n] {lappend aret [expr $z % $max]}; return $aret} 2022-12-26 18:16:10 -08:00
664fc34caa Evaluated proc nist_rand' {{when {}} {n 1}} {if {$when eq ""} {set when [clock scan "8 hours ago"]};lrange [hex2dec [n_r_r $when]] 0 4} 2022-12-26 18:08:30 -08:00
3e25591e6b Evaluated proc nist_rand {{when {}}} {if {$when eq ""} {set when [clock scan "8 hours ago"]};set ret 0;set i 0; foreach x [lrange [hex2dec [n_r_r $when]] 0 4] {set ret [expr int($ret + ($x * pow(16,$i)))];incr i;}; return $ret} 2022-12-26 18:03:34 -08:00
3432e3a495 Evaluated proc nist_rand {{when {}}} {if {$when eq ""} {set when [clock scan "8 hours ago"]};set ret 0;set i 0; foreach x [lrange [hex2dec [last [regexp -inline {<outputValue>(.*?)</outputValue>} [n_r_r $when]]]] 0 4] {set ret [expr int($ret + ($x * pow(16,$i)))];incr i;}; return $ret} 2022-12-26 18:03:03 -08:00
4826a98b0f Evaluated proc n_r_r when {join [lindex [split [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 6]} 2022-12-26 18:02:17 -08:00
515b3a22cb Evaluated proc n_r_r when {lindex [split [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 6} 2022-12-26 18:02:00 -08:00
13d5bcd432 Evaluated proc n_r_r when {lrange [split [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 0 19} 2022-12-26 18:01:17 -08:00
6f37e039bf Evaluated proc n_r_r when {lrange [join [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 0 19} 2022-12-26 18:00:30 -08:00
56897b40d4 Evaluated proc n_r_r when {lrange [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]] 0 19} 2022-12-26 17:59:45 -08:00
d406ea0fca Evaluated proc n_r_r when {lrange [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]] end-129 end-1} 2022-12-26 17:59:01 -08:00
c73712081b Evaluated proc n_r_r when {lindex [list [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 0} 2022-12-26 17:57:26 -08:00
8b695700c8 Evaluated proc n_r_r when {lindex [list [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 2} 2022-12-26 17:57:00 -08:00
414a879d79 Evaluated proc n_r_r when {lindex 2 [list [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]]} 2022-12-26 17:55:24 -08:00
8fc71e9a2d Evaluated proc nist_rand {{when {}}} {if {$when eq ""} {set when [clock scan "8 hours ago"]};set ret 0;set i 0; foreach x [lrange [hex2dec [last [regexp -inline {<outputValue>(.*?)</outputValue>} [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 0 4] {set ret [expr int($ret + ($x * pow(16,$i)))];incr i;}; return $ret} 2022-12-26 17:39:20 -08:00
da05820b1d Evaluated proc settuB args {. "I asked serious question. I will interpret any efforts of derailing it as a sign that _you_ are the man of the \"system\", thank you for understanding. Now, have you read [choose {Turner Diaries}] ?"} 2022-12-23 17:40:41 -08:00
b71c2b244a Evaluated proc settuB args {. "I asked serious question. I will interpret any efforts of derailing it as a sign that _you_ are the man of the \"system\", thank you for understanding. Now, have you read [choose {Turner Diaries}]"} 2022-12-23 17:40:30 -08:00
b3eaa5458a Evaluated proc settuB args {. I asked serious question. I will interpret any efforts of derailing it as a sign that _you_ are the man of the "system", thank you for understanding. Now, have you read [choose "Turner Diaries"]} 2022-12-23 17:39:39 -08:00
b5371acda2 Evaluated proc settuB args {. {I asked serious question. I will interpret any efforts of derailing it as a sign that _you_ are the man of the "system", thank you for understanding. Now, have you read [choose "Turner Diaries"]}} 2022-12-23 17:39:25 -08:00