Distribute elite.tcl. Duh.

[rocl] / elite-prices

#! /usr/bin/tclsh

package require "elite" "1.0.0"

# --- An optimal trading pair ---

set lezaer   "1598f98a6581"
set esmaonbe "7997d18a0d89"

set np [expr {[llength $products]/2}]
puts -nonewline stderr "\[[string repeat { } $np]\] "
puts -nonewline stderr "\[[string repeat { } 32]\]"
puts -nonewline stderr "\r\[[string repeat { } $np]\] \["
flush stderr
foreach {a s} [list l $lezaer e $esmaonbe] {
  for {set f 0} {$f < 256} {incr f} {
    elite-market m $s $f
    foreach {t p} $products { destructure [list ${a}($f:$t) .] $m($t) }
    if {($f & 15) == 15} { puts -nonewline stderr "."; flush stderr }
  }
}
foreach {t p} $products {
  set tot($t) 0
  set min($t) 100000
  set max($t) -100000
}
set i 0
foreach {t p} $products {
  incr i
  puts -nonewline stderr "\r\[[string repeat . $i]"
  puts -nonewline stderr "[string repeat { } [expr {$np - $i}]]\] "
  puts -nonewline stderr "\[[string repeat { } 32]\]"
  puts -nonewline stderr "\r\[[string repeat . $i]"
  puts -nonewline stderr "[string repeat { } [expr {$np - $i}]]\] \["
  set ll {}
  set ee {}
  for {set f 0} {$f < 256} {incr f} {
    lappend ll $l($f:$t)
    lappend ee $e($f:$t)
  }
  set j 0
  foreach pl $ll {
    foreach pe $ee {
      set pr [expr {$pl - $pe}]
      if {$pr < $min($t)} { set min($t) $pr }
      if {$pr > $max($t)} { set max($t) $pr }
      incr tot($t) $pr
    }
    incr j
    if {($j & 7) == 0} { puts -nonewline stderr "."; flush stderr }
  }
}
puts stderr ""

foreach {t p} $products {
  puts [format "%-15s %5d %4d %4d" $t \
      $min($t) [expr {$tot($t)/65536}] $max($t)]
}