3 package require "elite" "1.0.0"
5 # --- An optimal trading pair ---
7 set lezaer "1598f98a6581"
8 set esmaonbe "7997d18a0d89"
10 set np [expr {[llength $products]/2}]
11 puts -nonewline stderr "\[[string repeat { } $np]\] "
12 puts -nonewline stderr "\[[string repeat { } 32]\]"
13 puts -nonewline stderr "\r\[[string repeat { } $np]\] \["
15 foreach {a s} [list l $lezaer e $esmaonbe] {
16 for {set f 0} {$f < 256} {incr f} {
18 foreach {t p} $products { destructure [list ${a}($f:$t) .] $m($t) }
19 if {($f & 15) == 15} { puts -nonewline stderr "."; flush stderr }
22 foreach {t p} $products {
28 foreach {t p} $products {
30 puts -nonewline stderr "\r\[[string repeat . $i]"
31 puts -nonewline stderr "[string repeat { } [expr {$np - $i}]]\] "
32 puts -nonewline stderr "\[[string repeat { } 32]\]"
33 puts -nonewline stderr "\r\[[string repeat . $i]"
34 puts -nonewline stderr "[string repeat { } [expr {$np - $i}]]\] \["
37 for {set f 0} {$f < 256} {incr f} {
44 set pr [expr {$pl - $pe}]
45 if {$pr < $min($t)} { set min($t) $pr }
46 if {$pr > $max($t)} { set max($t) $pr }
50 if {($j & 7) == 0} { puts -nonewline stderr "."; flush stderr }
55 foreach {t p} $products {
56 puts [format "%-15s %5d %4d %4d" $t \
57 $min($t) [expr {$tot($t)/65536}] $max($t)]