#N canvas 407 182 633 583 10; #X floatatom 305 20 5 0 0 1 total_sum - -, f 5; #X floatatom 135 20 5 0 0 1 number_of_steps - -, f 5; #X obj 172 189 random 1e+06; #X obj 172 209 * 1e-06; #X obj 172 169 until; #X obj 190 129 array define \$0-numbers; #X msg 190 109 resize \$1; #X msg 209 89 const 0; #X obj 172 266 array set \$0-numbers; #X obj 172 149 t f b; #X obj 172 229 t f b; #X obj 240 246 f; #X obj 270 246 + 1; #X msg 258 166 0; #X obj 153 289 array sum \$0-numbers; #X obj 305 40 v maxlength\$0; #X obj 135 359 array get \$0-numbers; #X msg 135 419 append \$1; #X obj 135 449 list store; #X obj 135 379 list-drip; #X obj 135 69 t b b f f b; #X obj 135 339 t b b; #X obj 335 505 list-accum; #X floatatom 335 527 5 0 0 0 - - -, f 5; #X obj 135 399 expr ($f1 / $f2) * maxlength\$0; #X obj 135 505 print; #X text 134 525 list of random elements; #X connect 0 0 15 0; #X connect 1 0 20 0; #X connect 2 0 3 0; #X connect 3 0 10 0; #X connect 4 0 2 0; #X connect 6 0 5 0; #X connect 7 0 5 0; #X connect 9 0 4 0; #X connect 9 1 13 0; #X connect 10 0 8 0; #X connect 10 1 11 0; #X connect 11 0 12 0; #X connect 11 0 8 1; #X connect 12 0 11 1; #X connect 13 0 11 1; #X connect 14 0 24 1; #X connect 16 0 19 0; #X connect 17 0 18 0; #X connect 18 0 22 0; #X connect 18 0 25 0; #X connect 19 0 24 0; #X connect 19 1 18 0; #X connect 20 0 21 0; #X connect 20 1 14 0; #X connect 20 2 9 0; #X connect 20 3 6 0; #X connect 20 4 7 0; #X connect 21 0 16 0; #X connect 21 1 18 1; #X connect 22 0 23 0; #X connect 24 0 17 0;