Commit Graph

203 Commits

Author SHA1 Message Date
eaeb00091f Evaluated proc alex_fridman_reading args {apply {nextproc} $args} 2023-01-05 07:54:21 -08:00
1ec0907473 Evaluated rename lfl lex_fridman_reading 2023-01-04 13:55:44 -08:00
d78e308f63 Evaluated rename lex_fridman_reading {} 2023-01-04 13:55:40 -08:00
8c23cfd41f Evaluated proc lfl {{ll 10}} {each [zip [.. $ll] [lrange [zip [shuffle $::easy_book] [shuffle $::hard_book]] 0 $ll-1]] {{i _} {. "Week $i: $_"}}} 2023-01-04 13:45:02 -08:00
2fa81c94cf Evaluated proc n_r_r args n_r_r' 2023-01-04 11:10:31 -08:00
877b9097ef Evaluated rename n_r_r _n_r_r 2023-01-04 11:10:07 -08:00
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