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

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

523066680

回复 111# bbaa


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

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

523066680

回复 114# bbaa


    咦 重置了？
repeat
codegay    28209 + -28209 -871.6/min
vic2       14805 + -14802 -457.3/min
老刘        4983 + -4983 -154.0/min
bbaa         458 + -458  -14.2/min
vic3         127 + -127  -3.9/min

一大波负数，哈哈。

PHP JS HTML 不太懂，本地动态折线图我可以用 Perl+OpenGL 做。

523066680

回复 116# bbaa


    你的是用多线程以外的方案吗？好快。

523066680

我的方案已经改善，初接触多线程，各种问题还不知道怎么处理，边学边改

bbaa        1442 + 5     1.9/min
vic2        1360 + 21    8.2/min
codegay      429 + 5     1.9/min
vic3           0 + 0     0.0/min
复制代码

523066680

回复 128# bbaa
对齐一下更好

vic3        9254 + 100   8.9/min
codegay     4446 + 11    1.0/min
vic2        2451 + 0     0.0/min
bbaa        1789 + -60   -5.3/min
复制代码

523066680

回复 130# bbaa


    相当不错。相信你也借此项目锻炼了不少技能。

折线的颜色你可以建立一个色彩分明的颜色列表，不然有些颜色相近。

523066680

从零创建起来的图表，还未完善，费力+真心难看。

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

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

use threads;
use threads::shared;

use OpenGL qw/ :all /;
use OpenGL::Config;
#use Font::Freetype;

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 => 3 );

our %ucolor :shared;
our $users :shared;

#使共享变量支持复合数据结构
print "Loading data...";
make_user_struct();
print "Done\n";

our $SIZE_X = 800;
our $SIZE_Y = 800;

our $WinID;

threads->create( \&getData, 1);

&Main();

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

INFORMATION:
{
    sub getData
    {
        our ($ua, $website, $user);
        my $res;
        my $data;
        my $info;
        my $json = JSON->new->allow_nonref;
        $SIG{'BREAK'} = sub { threads->exit() };

        $res = $ua->post( $website, [ username => $user, send => 'reg' ] );

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

	        for my $e ( @{$data->{'user'}} )
	        {
	        	( $times, $name, $state ) = @$e;
	            push @{$users->{$name}}, $times;
	        }
	        
	        sleep 2.0;
	    }
    }

    sub make_user_struct
    {
    	our ($ua, $website, $user);

    	my $data;
    	my $json = JSON->new->allow_nonref;

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

        my @colors = (
        		[1.0, 0.0, 0.0], [0.0, 1.0, 0.0], [0.0, 0.5, 1.0], 
        		[1.0, 1.0, 0.0], [0.0, 1.0, 1.0], [1.0, 0.0, 1.0], 
        		[1.0, 1.0, 1.0],
        	);

        my $hash;
        for my $e ( @{$data->{'user'}} )
        {
        	( $times, $name, $state ) = @$e;
            $hash->{$name} = [ $times ];
        }

        #建立颜色信息
        my $n = 0;
        for my $name ( sort keys %$hash )
        {
        	$ucolor{$name} = shared_clone( $colors[$n++] );
    	}

        $users = shared_clone( $hash );
    }
}

OPENGL:
{
    sub display
    {
        glClear(GL_COLOR_BUFFER_BIT);

        glColor3f(1.0, 1.0, 1.0);
        glBegin(GL_LINES);
            glVertex3f(-200.0, 0.0, 0.0);
            glVertex3f(200.0, 0.0, 0.0);
            glVertex3f(0.0, -200.0, 0.0);
            glVertex3f(0.0, 200.0, 0.0);
        glEnd();

        my $ty = 0;
		for my $name ( sort keys %ucolor )
		{
			glColor3f( @{$ucolor{$name}} );
			glRasterPos2i(-10, $ty);
			printstr( $name );
			$ty+=2;
		}

        my $obj;
        for my $name ( keys %$users )
        {
        	$obj = $users->{$name};
        	glColor3f( @{$ucolor{$name}} );
	        glBegin(GL_LINE_STRIP);
	        for my $v ( 1 .. $#{$obj} )
	        {
	            glVertex3f( $v, $obj->[$v] - $obj->[0], 0.0 );
	        }
	        glEnd();
    	}

        glutSwapBuffers();
    }

    sub init 
    {
        glClearColor(0.0, 0.0, 0.0, 1.0);
    }

    sub idle 
    {
        sleep 0.1;
        glutPostRedisplay();
    }

    sub Reshape 
    {
        my $half = 100.0;
        glViewport(0.0,0.0, $SIZE_X, $SIZE_Y);
        glMatrixMode(GL_PROJECTION);
        glLoadIdentity();
        glOrtho(-20.0, $half, -20.0, $half,-20.0,200.0);
        glMatrixMode(GL_MODELVIEW);
        glLoadIdentity();
        gluLookAt(0.0,0.0,100.0,0.0,0.0,0.0, 0.0,1.0,100.0);
    }

    sub hitkey 
    {
        my $key = shift;
        if (lc(chr($key)) eq 'q') 
        {
            glutDestroyWindow($WinID);
        }
        elsif ($key == 27) 
        {
            glutDestroyWindow($WinID);
        }
    }

    sub Main 
    {
        glutInit();
        glutInitDisplayMode(GLUT_RGBA | GLUT_DOUBLE |GLUT_MULTISAMPLE );
        glutInitWindowSize($SIZE_X, $SIZE_Y);
        glutInitWindowPosition(1,1);
        our $WinID = glutCreateWindow("Show");
        &init();
        glutDisplayFunc(\&display);
        glutReshapeFunc(\&Reshape);
        glutKeyboardFunc(\&hitkey);
        glutIdleFunc(\&idle);
        glutMainLoop();
    }

    sub printstr 
    {
        for my $i ( split("", $_[0]) ) 
        {
            #glutBitmapCharacter(GLUT_BITMAP_9_BY_15, ord($i));
            glutBitmapCharacter(GLUT_BITMAP_HELVETICA_12, ord($i));
        }
    }

}
复制代码

523066680

我在这个帖子下看到各种语言写的程序，被夸到飞起来，那个6啊。
坐等新的突破

523066680

截图中 adad 的速度是S发布的代码在另一台电脑上运行的结果（当时vic3的程序暂停了）


情况就是这么个情况。

          评分君好像很激动……
                       |

523066680

回复 141# codegay

    那个时候最大的问题是我们这一边的代码几乎都没有加 keep_alive，导致提交速度慢了好多倍。
对方提供的java程序跑起来速度翻倍怎么想都有点夸张，特别是看到源码后发现他们的算法也还有优化空间(bulls and cows那个游戏)，
当时不懂网络就错误地怀疑是程序性能啦（java的网络库也确实快）。

到了数独游戏，C语言+DLX算法是真的快。