1 2 3 | proc Random {list} { set index [expr {int(1 + rand() * ([llength $list]) - 1)}] return $index } |
cHJvYyBSYW5kb20ge2xpc3R9IHsKc2V0IGluZGV4IFtleHByIHtpbnQoMSArIHJhbmQoKSAqIChbbGxlbmd0aCAkbGlzdF0pIC0gMSl9XSByZXR1cm4gJGluZGV4Cn0=
-
upload with new input
-
result: Success time: 0.02s memory: 5272 kB returned value: 0
Random
-
result: Success time: 0.03s memory: 5272 kB returned value: 0



