Commit Graph

197 Commits

Author SHA1 Message Date
250962e228 Evaluated proc lex_fridman_reading {{N 5}} { each [_lex_fridman_reading_inner $N] {_ {. $_}} } 2023-01-04 11:07:08 -08:00
e842694bfb Evaluated proc lex_fridman_reading args {string map -nocase -inline {"'" ""} [join [_lex_fridman_reading_inner args] '\n']} 2023-01-04 11:03:49 -08:00
e728d70e20 Evaluated proc lex_fridman_reading args {string map -nocase -inline {"'" ""} [join [_lex_fridman_reading_inner $args] '\n']} 2023-01-04 11:03:34 -08:00
e70ccc9ddf Evaluated proc lex_fridman_reading args {string map -nocase -inline {"'" ""} [join [lex_fridman_reading $args] '\n']} 2023-01-04 11:03:02 -08:00
f78b2dc073 Evaluated rename lex_fridman_reading _lex_fridman_reading_inner 2023-01-04 11:02:15 -08:00
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
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
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
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
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
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
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
542698e710 Evaluated unset ::garbage 2023-01-04 10:24:09 -08:00
26049a9123 Evaluated lex 2023-01-04 10:23:32 -08:00
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
26b20f33b7 Evaluated unset ::garbage 2023-01-04 10:22:26 -08:00
b2d9da4118 Evaluated set ::garbage {} 2023-01-04 10:19:08 -08:00
c26894df09 Evaluated unset garbage 2023-01-04 10:14:57 -08:00
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