2 lines
215 B
Plaintext
2 lines
215 B
Plaintext
{} {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}
|