bbaa

回复 112# 523066680


    60分钟的折线图对我来说是个挑战啊.....
    收集数据可能做不到整分
    还是做24小时的
    用下第三方库........

523066680

回复 111# bbaa


    最好还是有图表，24小时 或 60分钟 的折线图，不同 ID 不同颜色

现在bbaa速度飙升，10秒3个

bbaa

回复 110# 523066680


    后面的速度监测加出来了...
    要不要加个历史记录.................

523066680

回复 109# bbaa

    采样的数据量不大，又是线性的，放内存、文件也行啊。

新的赛跑进度显示：

codegay    28121 + 5     0.3/min
vic2       13098 + 192   12.9/min
老刘        4927 + 0     0.0/min
bbaa         227 + 0     0.0/min
vic3         127 + 0     0.0/min
复制代码

代码

=info
    Auth: 523066680
    Date: 2017-07
=cut

use JSON;
use Encode;
use Try::Tiny;
use Time::HiRes qw/time sleep/;
use IO::Handle;
STDOUT->autoflush(1);

use LWP::Simple;
use LWP::UserAgent;

our $user    = "vic3";
our $website = 'http://bbaass.tk/math/';
our ($user, $website, $headers);
our $ua = LWP::UserAgent->new( agent => 'Mozilla/5.0', timeout => 5 );

my %ever;
my %current;
getData( \%ever );

my $count = 0;
my $delta;
my $speed;
my $time_a = time();

while (1)
{
    getData(\%current);

    $count = 0;
    for my $k (reverse sort { $ever{$a} <=> $ever{$b} } keys %ever)
    {
        $delta = $current{$k} - $ever{$k};
        $speed = $delta / (time() - $time_a) * 60.0;

        printf "%-10s %5d + %-5d %.1f/min\n", 
            encode('gbk',  $k), 
            $ever{$k}, 
            $delta,
            $speed
            ;

        last if ($count++ > 3);
    }
    print "\n";

    sleep 10.0;
}

sub getData
{
    my $href = shift;
    my $res;
    my $data;

    while (1)
    {
        $res = $ua->post( $website, [ username => $user, send => 'reg' ] );
        $res = $ua->post( $website, [ username => $user, send => 'user' ] );
        try { $data = decode_json( $res->content ); last; }
        catch { sleep 2.0; printf "repeat\n" }
    }

    for my $e ( @{$data->{'user'}} )
    {
        ( $times, $name, $state ) = @$e;
        $href->{$name} = $times;
    }
}
复制代码

bbaa

回复 107# codegay


    在建表我就要挂了...
    不想在弄个表了...

老刘1号

真·一个都抢不到……
5230兄的速度要逆天啊……

bbaa兄的随机法好评

codegay

回复 105# bbaa


    你把数据采样存数据库里。这样能浏览各个时间段的数据变化。这样对用户更好一些。

老刘1号

回复 101# 523066680


    emmmm,我好像发现什么
如果是能整除10的数的话，我的脚本不如你的快
如果是不能整除10的数，如果接近10，2分确实不如你的快

bbaa

回复 101# 523066680


完成100%
点击打开
注，只有距离上次更新有一【小时/分钟】才会更新

bbaa

回复 103# 老刘1号


    列表改单页了....

老刘1号

回复 99# bbaa


    666支持
不过一楼的那个列表现在一打开就加载七页的数据（感觉在烧批家的流量啊）

老刘1号

回复 98# 523066680
厉害，我的脚本已经处于劣势了
其他：
脚本已开源。

523066680

由二分扩展为N段划分的 Perl 代码示例。
整体思路：均匀采样，统一交给线程去跑，等结果都返回了，缩小 min 和 max 的范围继续跑

线程的代码去掉了，有蜜汁Bug

=info
    Author: 523066680
    Date: 2017-07
=cut

use IO::Handle;
use Time::HiRes qw/sleep/;
STDOUT->autoflush(1);

our $n = int(rand(10000));

my ($min, $max) = (0, 10000);

my $div = 10;
my @ele;
my @cmp;

while (1)
{
    @ele = map { int( ($max-$min+1) / $div * $_) + $min } ( 1 .. $div-1 );
    @cmp = map { check($_) } @ele;

    printf "min:%5d max:%5d n=%5d  ", $min, $max, $n;
    grep { printf "%d %s N ", $ele[$_], $cmp[$_] } ( 0 .. $#ele );
    print "\n";

    grep { $min = $ele[$_] if ($cmp[$_] eq '<') } ( 0 .. $#cmp );
    grep { $max = $ele[$_] if ($cmp[$_] eq '>') } ( reverse 0 .. $#cmp );
    grep { last if ($_ eq '=') } ( @cmp );

    sleep 0.3;
}

sub check
{
    our $n;
    my $guess = shift;
    return ($guess < $n) ? "<" : ($guess > $n) ? ">" : "=" ;
}
复制代码

测试时加了sleep怕死循环

min:    0 max:10000 n= 2760  1000 < N 2000 < N 3000 > N 4000 > N 5000 > N 6000 > N 7000 > N 8000 > N 9000 > N 
min: 2000 max: 3000 n= 2760  2100 < N 2200 < N 2300 < N 2400 < N 2500 < N 2600 < N 2700 < N 2800 > N 2900 > N 
min: 2700 max: 2800 n= 2760  2710 < N 2720 < N 2730 < N 2740 < N 2750 < N 2760 = N 2770 > N 2780 > N 2790 > N 
.[Finished in 0.8s]
复制代码

看到 bbaa 也在发力了

codegay    27556 + 3
老刘       4684 + 100
vic2       1945 + 125
bbaa       74 + 37
racket     28 + 0
复制代码

523066680

回复 99# bbaa


    喇就省得我单独跑一个脚本看跑步差距了。

bbaa

回复 98# 523066680


    告诉你个消息，变化列表最迟在今晚内置
    [一分钟更新一次]
    [和一小时更新一次的列表]
    [目前收集信息模块已经完成]
    [正在做界面]
    如果时间充裕的话可能会做像顶楼那样的GD自动生成图片
    目前自动到收集的信息
    一分钟

{
         "change": {
                  "minute": {
                           "last": {
                                    "user": {
                                             "codegay": "27558",
                                             "vic2": "1963",
                                             "bbaa": "74",
                                             "老刘": "4718",
                                             "racket": "28",
                                             "vic3": "18"
                                    },
                                    "Timestamp": 0,
                                    "timestamp": 1500542815
                           },
                           "done": {
                                    "user": {
                                             "vic2": 8,
                                             "老刘": 6,
                                             "codegay": 1,
                                             "vic3": 0,
                                             "bbaa": 0,
                                             "racket": 0
                                    },
                                    "lastu": {
                                             "codegay": "27557",
                                             "vic2": "1955",
                                             "bbaa": "74",
                                             "老刘": "4712",
                                             "racket": "28",
                                             "vic3": "18"
                                    }
                           }
                  },
                  "hour": {
                           "last": {
                                    "user": {
                                             "codegay": "27557",
                                             "vic2": "1953",
                                             "bbaa": "74",
                                             "老刘": "4686",
                                             "racket": "28",
                                             "vic3": "18"
                                    },
                                    "Timestamp": 0,
                                    "timestamp": 1500542575
                           },
                           "done": {
                                    "user": [],
                                    "lastu": []
                           }
                  }
         }
}
复制代码