From 3865e4fc99cf9851229d865c9eb88f8b05bff714 Mon Sep 17 00:00:00 2001 From: Alex_Fridman`s_High_School_Reading_List on #flashsupport Date: Wed, 4 Jan 2023 10:33:58 -0800 Subject: [PATCH] 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} --- procs/7d1d02d6635d653a60b8681b144ef62e9dc3d21a | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/procs/7d1d02d6635d653a60b8681b144ef62e9dc3d21a b/procs/7d1d02d6635d653a60b8681b144ef62e9dc3d21a index d0d434b..0050e63 100644 --- a/procs/7d1d02d6635d653a60b8681b144ef62e9dc3d21a +++ b/procs/7d1d02d6635d653a60b8681b144ef62e9dc3d21a @@ -1 +1 @@ -{} {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} +{{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}