["WAIT LIST"] BFL SC Pre-Order Information (Monarch orders too!)

Here's some code I whipped up to run some numbers on the data. Sorry it's not pretty (perl sometimes isn't).

Quote

#!/usr/bin/perl -w

use strict;

my $JALAPENO_PRICE = 149;
my $SINGLE_PRICE = 1299;
my $MINIRIG_PRICE = 28900;
my $SINGLE_TRADE_PRICE = ( $SINGLE_PRICE / 2 );
my $MINIRIG_TRADE_PRICE = ( $MINIRIG_PRICE / 2);

my ( $jalapeno_total, $single_total, $minirig_total, $single_trade_total, $minirig_trade_total );
my $lowest_order_number = 65535;
my $highest_order_number = 0;

while ( <> ) {
   s/-/0/g;
   my ( $date, $order_number, $trade_in, $jalapeno_qty, $single_qty, $minirig_qty ) = split ( /\s+/ );

   if ( $order_number > 0 ) {
      if ( $order_number < $lowest_order_number ) { $lowest_order_number = $order_number; }
      if ( $order_number > $highest_order_number ) { $highest_order_number = $order_number; }
   }

   $jalapeno_total += $jalapeno_qty;
   if ( $trade_in =~ /y/i ) {
      $single_trade_total += $single_qty;
      $minirig_trade_total += $minirig_qty;
   } else {
      $single_total += $single_qty;
      $minirig_total += $minirig_qty;
   }
}

print "Product\t\t\t\tQty\tDollar value\n";
print "Jalapenos:\t\t\t$jalapeno_total\t\$" . ( $jalapeno_total * $JALAPENO_PRICE ) . "\n";
print "Singles:\t\t\t$single_total\t\$" . ( $single_total * $SINGLE_PRICE ) . "\n";
print "Single trade-ins:\t\t$single_trade_total\t\$" . ( $single_trade_total * $SINGLE_TRADE_PRICE ) . "\n";
print "Mini Rigs:\t\t\t$minirig_total\t\$" . ( $minirig_total * $MINIRIG_PRICE ) . "\n";
print "Mini Rig trade-ins:\t\t$minirig_trade_total\t\$" . ( $minirig_trade_total * $MINIRIG_TRADE_PRICE ) . "\n";

my $total_qty = ( $jalapeno_total + $single_total + $single_trade_total + $minirig_total + $minirig_trade_total );
my $total_value = ( ( $jalapeno_total * $JALAPENO_PRICE ) + ( $single_total * $SINGLE_PRICE ) + ( $single_trade_total * $SINGLE_TRADE_PRICE ) + ( $minirig_total * $MINIRIG_PRICE ) + ( $minirig_trade_total * $MINIRIG_TRADE_PRICE ) );
my $average_value = ( $total_value / $total_qty );

print "Documented total orders:\t$total_qty\t\$$total_value\n";
print "Value of average item ordered:\t\t\$$average_value\n";

my $inferred_total_qty = ( $highest_order_number - $lowest_order_number ) + 1;
my $inferred_total_value = ( $inferred_total_qty * $average_value );

print "Inferred total orders:\t\t$inferred_total_qty\t\$$inferred_total_value\n";

When I run it on the data today I get this output:

Product Qty Dollar value
Jalapenos:     208 $30992
Singles: 108 $140292
Single trade-ins: 118 $76641
Mini Rigs:     6 $173400
Mini Rig trade-ins: 15 $216750
Documented total orders: 455 $638075
Value of average item ordered:     $1402.36263736264
Inferred total orders: 7029 $9857206.97802198