老刘1号

机就不挂了，感觉是浪费电
不过现在速度是可以稳超Codegay兄了

523066680

codegay    25859 + 4
老刘       1792 + 50
vic2       1730 + 4
bbaa       59 + 0
racket     9 + 0

codegay    25859 + 4
老刘       1792 + 52
vic2       1730 + 4
bbaa       59 + 0
racket     9 + 0

codegay    25859 + 4
老刘       1792 + 54
vic2       1730 + 4
bbaa       59 + 0
racket     9 + 0
复制代码

qazplm

回复 87# 老刘1号

[大鱼小鱼或等鱼？]
何必加密呢，懂的还要多费时间，不懂的给源码也看不懂，半桶水的干脆略过
另外如果第一名名称为 a,a"a,"，split就不适用了，vbs解析json，可以使用htmlfile对象的execScript方法

With CreateObject("MSXML2.XMLHTTP")
    .Open "POST","http://bbaass.tk/math/", False
    .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
    .setRequestHeader "User-Agent","Chrome/59.0.3071.115"
    .send "send=Answer&math=5000&username=老刘"
    Set html = CreateObject("htmlfile")
    Set wd = html.parentWindow
    wd.execScript "var json=" & .responseText, "JScript"
    Set result = wd.json
    WSH.Echo result.re & vbCrLf & result.tokens
End With
复制代码

老刘1号

回复 93# qazplm


    感谢指导，学习了
简单加密的原因是昨天有游客使用我19楼的代码刷分
不但导致服务器负载，还影响公平性
不过我已经明说了，研究算法或代码的话，可以直接私信我
我也不会吝惜什么，绝对双手奉上还带讲解的

qazplm

回复 94# 老刘1号

噗嗤，加密的原因好单纯

老刘1号

回复 90# codegay


    算法趋于统一了么
坐等5230兄的多线程算法

523066680

回复 96# 老刘1号


    以前没正式用过线程，现在被自己写的 bug 搞得抓狂 ……

好像有点效果 （让我再观察观察

codegay    27522 + 0
老刘       3753 + 4
vic2       1745 + 3
bbaa       59 + 0
racket     28 + 0

codegay    27522 + 0
老刘       3753 + 4
vic2       1745 + 5
bbaa       59 + 0
racket     28 + 0

codegay    27522 + 0
老刘       3753 + 4
vic2       1745 + 8
bbaa       59 + 0
racket     28 + 0
复制代码

有 bug, 在调

523066680

你猜我用了多少线程

......min:    0 max:10000  1000<N, 2000>N, 3000>N, 4000>N, 5000>N, 6000>N, 7000>N, 8000>N, 9000>N, 
......min: 1000 max: 2000  1100<N, 1200<N, 1300<N, 1400<N, 1500<N, 1600<N, 1700>N, 1800>N, 1900>N, 
......min: 1600 max: 1700  1610<N, 1620<N, 1630<N, 1640<N, 1650<N, 1660<N, 1670<N, 1680>N, 1690>N, 
....Content error, try again.
..34tokens diff
......min:    0 max:10000  1000<N, 2000<N, 3000<N, 4000<N, 5000<N, 6000<N, 7000<N, 8000>N, 9000>N, 
......min: 7000 max: 8000  7100<N, 7200<N, 7300N, 7400>N, 7500>N, 7600>N, 7700>N, 7800>N, 7900>N, 
......min: 7200 max: 7400  7220<N, 7240<N, 7260N, 7280<N, 7300<N, 7320<N, 7340>N, 7360>N, 7380>N, 
Content error, try again.
......min: 7320 max: 7340  7322N, 7324<N, 7326<N, 7328N, 7330<N, 7332<N, 7334<N, 7336<N, 7338<N, 
复制代码

刷结果的效率比之前是高很多，但还是勉强追上老刘的速度

codegay    27555 + 0
老刘       4514 + 4
vic2       1805 + 4
bbaa       74 + 0
racket     28 + 0

codegay    27555 + 0
老刘       4514 + 8
vic2       1805 + 6
bbaa       74 + 0
racket     28 + 0
复制代码

一段时间后

codegay    27555 + 1
老刘       4514 + 38
vic2       1805 + 38
bbaa       74 + 0
racket     28 + 0
复制代码

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": []
                           }
                  }
         }
}
复制代码

523066680

回复 99# bbaa


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

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
复制代码

老刘1号

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

老刘1号

回复 99# bbaa


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

bbaa

回复 103# 老刘1号


    列表改单页了....

bbaa

回复 101# 523066680


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