195 Commits

Author SHA1 Message Date
Alex_Fridman`s_High_School_Reading_List on #flashsupport
3865e4fc99 Evaluated proc lex_fridman_reading {{N 10}} {set garbage [list]; for {set i 0} {$i < $N} {incr i} {if [expr $i % 2] {lappend garbage [. Week $i: [lindex_random $::hard_book]]} {lappend garbage [. Week $i: [lindex_random $::easy_book]]}}; . $garbage} 2023-01-04 10:33:58 -08:00
Alex_Fridman`s_High_School_Reading_List on #flashsupport
8600072f6c Evaluated proc lex_fridman_reading {} {set garbage [list]; for {set i 0} {$i < 5} {incr i} {if [expr $i % 2] {lappend garbage [. Week $i: [lindex_random $::hard_book]]} {lappend garbage [. Week $i: [lindex_random $::easy_book]]}}; . $garbage} 2023-01-04 10:26:22 -08:00
Alex_Fridman`s_High_School_Reading_List on #flashsupport
8938e7a48a Evaluated proc lex_fridman_reading {} {set garbage [list]; for {set i 0} {$i < 5} {incr i} {if [expr $i % 2] {lappend garbage [. Week $i: [lindex_random $::hard_book]]} {lappend garbage [. Week $i: [lindex_random $::easy_book]]}}; join $garbage} 2023-01-04 10:26:02 -08:00
Alex_Fridman`s_High_School_Reading_List on #flashsupport
f187794640 Evaluated proc lex_fridman_reading {} {set garbage [list]; for {set i 0} {$i < 5} {incr i} {if [expr $i % 2] {lappend garbage [. Week $i: [lindex_random $::hard_book]]} {lappend garbage [. Week $i: [lindex_random $::easy_book]]}}; join "\n" $garbage} 2023-01-04 10:25:41 -08:00
Alex_Fridman`s_High_School_Reading_List on #flashsupport
16f33aae73 Evaluated proc lex_fridman_reading {} {set garbage [list]; for {set i 0} {$i < 5} {incr i} {if [expr $i % 2] {lappend garbage [. Week $i: [lindex_random $::hard_book]]} {lappend garbage [. Week $i: [lindex_random $::easy_book]]}}; join $garbage} 2023-01-04 10:25:34 -08:00
Alex_Fridman`s_High_School_Reading_List on #flashsupport
4de755a1c0 Evaluated proc lex_fridman_reading {} {set garbage [list]; for {set i 0} {$i < 5} {incr i} {if [expr $i % 2] {lappend garbage [. Week $i: [lindex_random $::hard_book]]} {lappend garbage [. Week $i: [lindex_random $::easy_book]]}};. $garbage} 2023-01-04 10:25:01 -08:00
Alex_Fridman`s_High_School_Reading_List on #flashsupport
a3081faf17 Evaluated proc lex_fridman_reading {} {set garbage [list]; for {set i 0} {$i < 5} {incr i} {if [expr $i % 2] {lappend garbage [. Week $i: [lindex_random $::hard_book]]} {lappend ::garbage [. Week $i: [lindex_random $::easy_book]]}};. $garbage} 2023-01-04 10:24:31 -08:00
Alex_Fridman`s_High_School_Reading_List on #flashsupport
2505fff158 Evaluated proc lex_fridman_reading {} {set ::garbage [list]; for {set i 0} {$i < 5} {incr i} {if [expr $i % 2] {lappend ::garbage [. Week $i: [lindex_random $::hard_book]]} {lappend ::garbage [. Week $i: [lindex_random $::easy_book]]}};. $::garbage} 2023-01-04 10:23:28 -08:00
Alex_Fridman`s_High_School_Reading_List on #flashsupport
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
radical_honesty on #flashsupport
8ba91531cd Evaluated proc happynewyear {{channel #gamme}} {string map "PLACEHOLDER [rainbow $channel]" $::happynewyear} 2022-12-31 09:24:52 -08:00
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
General_Quadrangle on #flashsupport
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
General_Quadrangle on #flashsupport
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
General_Quadrangle on #flashsupport
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
General_Quadrangle on #flashsupport
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
General_Quadrangle on #flashsupport
1d9fc2fb11 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:38:44 -08:00