Topic: ["WAIT LIST"] BFL SC Pre-Order Information (Monarch orders too!) - page 30. (Read 136395 times)

30.768 Th confirmed so far...
455 Confirmed orders...

67.62GH per order average...
* 7029 orders =
475.315Th

19x Current ~25Th

No adjustments for unfilled orders

Well deafboy's order broke the 9000 order number!

The only thing you're missing is how much TH/s all of that hardware would come to.

If you were to assume that 20% (a rather high percentage) of the orders were unpaid, refunds, etc, it would be ~$7.88 million received.

That's assuming all 7000+ orders have been paid for.

#!/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";