[数值计算] 【Warning:此贴已经过气】【挑战】用任何语言在猜数游戏作弊

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

142楼

发表于 2018-12-25 20:39 | 只看该作者

本帖最后由 523066680 于 2018-12-25 21:05 编辑

回复 141# codegay

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

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

FuniCode 编程论坛

codegay

少校

Rank: 6 Rank: 6

帖子: 1266
积分: 1775
技术: 162
捐助: 0
注册时间: 2015-12-12

141楼

发表于 2017-7-29 07:16 | 只看该作者

回复 140# 523066680

那么C语言版能跑出惊人的数据？

去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

140楼

发表于 2017-7-28 14:23 | 只看该作者

本帖最后由 523066680 于 2017-7-29 08:28 编辑

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

情况就是这么个情况。

评分君好像很激动……
|

1 评分人数

codegay: 继续晒数据啊。技术 + 1

FuniCode 编程论坛

Scallop

列兵

Rank: 1

帖子: 2
积分: 13
技术: 0
捐助: 0
注册时间: 2017-7-2

139楼

发表于 2017-7-28 10:03 | 只看该作者

多线程，实测速度能稳定在 20/min 以上（由网络环境决定）
Java 代码

import com.google.gson.Gson;
import okhttp3.*;

import java.io.IOException;

public class Main {

    private static final OkHttpClient client = new OkHttpClient();
    private volatile static int calls = 0;

    private static int min = -1;
    private static int max = 10001;
    private static String tokens = null;
    private static boolean finished = false;
    private static int times = 0;

    static {
        client.dispatcher().setMaxRequests(Integer.MAX_VALUE);
        client.dispatcher().setMaxRequestsPerHost(Integer.MAX_VALUE);
    }

    public static void main(String[] args) {
        int next;
        int add;
        long start = System.nanoTime();
        while (true) {
            if (calls != 0) continue;
            if (finished) {
                System.out.println(String.format("%d 次 %fs", times, (System.nanoTime() - start) / 1000000000d));
                start = System.nanoTime();
                times = 0;
                finished = false;
            }
            if (max - min < 10) {
                for (int i = min + 1; i < max; i++) {
                    guessAsync(i);
                }
                continue;
            }
            next = min;
            add = (max - min) / 4;
            for (int i = 0; i < 3; i++) {
                guessAsync(next += add);
            }
        }
    }

    private static void guessAsync(int num) {
        FormBody body = new FormBody.Builder()
                .add("send", "Answer")
                .add("math", String.valueOf(num))
                .add("username", "Scallop")
                .build();
        Request request = new Request.Builder().url("http://bbaass.tk/math/").post(body).build();
        client.newCall(request).enqueue(new Callback() {
            @Override
            public void onFailure(Call call, IOException e) {
                e.printStackTrace();
                calls--;
            }

            @Override
            public void onResponse(Call call, Response response) throws IOException {
                synchronized (client) {
                    try {
                        if (finished) {
                            response.close();
                            calls--;
                            return;
                        }
                        if (!response.isSuccessful()) {
                            response.close();
                            System.out.println("---故障---");
                            calls--;
                            return;
                        }
                        BBAAResponse result = new Gson().fromJson(response.body().string(), BBAAResponse.class);
                        response.close();
                        String re = result.re;
                        boolean reset = !result.tokens.equals(tokens) && !re.equals("=");
                        if (reset) {
                            if (!result.winer.equals("Scallop")) {
                                System.out.println(String.format("---重置 by %s---", result.winer));
                            }
                            tokens = result.tokens;
                        }
                        switch (result.re) {
                            case "<":
                                if (min < num) min = num;
                                if (reset) max = 10001;
                                break;
                            case "=":
                                min = -1;
                                max = 10001;
                                finished = true;
                                break;
                            case ">":
                                if (max > num) max = num;
                                if (reset) min = -1;
                        }
                    } catch (Exception e) {
                        e.printStackTrace();
                    }
                    calls--;
                }
            }
        });
        calls++;
        times++;
    }

    private static class BBAAResponse {
        int code;
        String re;
        String tokens;
        String winer;
    }
}
复制代码

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

138楼

发表于 2017-7-25 09:35 | 只看该作者

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

FuniCode 编程论坛

bbaa

Rank: 3 Rank: 3

帖子: 316
积分: 275
技术: 32
捐助: 0
注册时间: 2015-11-30

137楼

发表于 2017-7-24 17:42 | 只看该作者

朋友推荐我听这首歌
拿出来祸害人类
http://music.163.com/#/m/song?id=4466775&userid=379014753

http://123456

bbaa

Rank: 3 Rank: 3

帖子: 316
积分: 275
技术: 32
捐助: 0
注册时间: 2015-11-30

136楼

发表于 2017-7-23 14:14 | 只看该作者

本帖最后由 bbaa 于 2017-7-23 14:21 编辑

回复 134# 523066680

勉强看懂...一点点.............
曲线图AJAX更新已经发布
点击打开

前端使用类库
chart.js
jquery.....
后端用https://git.oschina.net/kenvix/Tieba-Cloud-Sign的数据库操作类[我太懒了.....][之前还用文件存储来着?]
信息收集

	/* Model:曲线图变化速度信息收集模块 Start */
		$dataqx=json_decode(str_replace("\\\u","\u",option::get("bbaa_math_text")),true);
		$json=Json_decode(getsql(),true);
		/* 如果在主项中已经没有这个用户，在数据中删除掉 */
			foreach($dataqx as $zh=>$va) {
				if(empty($json["Username"][$zh])) {
					Unset($dataqx[$zh]);
				}
			}
		/* 如果在主项中已经没有这个用户，在数据中删除掉 End*/
		//$times=time()-(int)$change["change"]["fminute"]["last"]["Timestamp"];
		foreach ($change["change"]["minute"]["done"]["user"] as $key=>$value) {
			If ($qst) {
				//unset($dataqx[$key]["Timestamp"]);
				if((int)Count($dataqx[$key]["data"])<12) {
					$dataqx[$key]["data"][Count($dataqx[$key]["data"])]=$value;
				} else {
					/* 对于data满12的一个处理 {*/
						$temp=Array(); //对foreach的处理机制做出应对
						foreach ($dataqx[$key]["data"] as $keyt=>$val) {
							if ((int)$keyt>0&&(int)$keyt<12) {
								$temp[$key]["data"][Count($temp[$key]["data"])]=$val;
							}
						}
						Unset($dataqx[$key]["data"]);
						$dataqx[$key]["data"]=$temp[$key]["data"]; //合并
						Unset($temp);
					/* 对于data满12的一个处理 }*/
					$dataqx[$key]["data"][Count($dataqx[$key]["data"])]=$value;
					unset ($count);
				}
			}
		}
	/* Model:曲线图变化速度信息收集模块 End *
复制代码

case "getlinedata":
			$json=Json_decode(getsql(),true);
			
			$Timestamp=$change_tmp["change"]["minute"]["last"]["Timestamp"];
			$if_date=date("H:i",$Timestamp);
			if($if_date==$_POST["Timestamp"]) {die(json_encode(array("Code"=>400)));}
			unset($change_tmp);
			$change=json_decode(str_replace("\\\u","\u",option::get("bbaa_math_text")),true);
			$tmp=Array();
			foreach($_POST["list"] as $value) {
				$tmp[$value]=$change[$value]["data"][count($change[$value]["data"])-1];
			}
			die(json_encode(array("Code"=>200,"data"=>$tmp,"Timestamp"=>$if_date)));
			unset($tmp);
		break;
复制代码

后端更新频率一分钟一次
前端get频率10秒一次
点击打开
外链图片展示

因alpha(透明)通道等原因背景为黑

2 评分人数

老刘1号: 6技术 + 1
523066680: 厉害了技术 + 1

Rank: 8 Rank: 8

帖子: 997
积分: 1789
技术: 205
捐助: 50
注册时间: 2016-4-17

135楼

发表于 2017-7-23 12:31 | 只看该作者

本帖最后由老刘1号于 2017-7-23 12:34 编辑

这题……让我复习了HTTP POST。
不过学会了二分法～

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

134楼

发表于 2017-7-22 22:46 | 只看该作者

本帖最后由 523066680 于 2017-7-23 12:52 编辑

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

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

}
复制代码

FuniCode 编程论坛

bbaa

Rank: 3 Rank: 3

帖子: 316
积分: 275
技术: 32
捐助: 0
注册时间: 2015-11-30

133楼

发表于 2017-7-22 17:42 | 只看该作者

回复 132# 523066680

完全random
建议不错，刚才在和happy聊
你也不是在练习多线程吗

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

132楼

发表于 2017-7-22 17:02 | 只看该作者

本帖最后由 523066680 于 2017-7-22 17:22 编辑

回复 130# bbaa

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

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

FuniCode 编程论坛

bbaa

Rank: 3 Rank: 3

帖子: 316
积分: 275
技术: 32
捐助: 0
注册时间: 2015-11-30

131楼

发表于 2017-7-22 17:01 | 只看该作者

本帖最后由 bbaa 于 2017-7-22 17:09 编辑

回复 129# 523066680

图片是白色背景，这里因为透明通道alpha的原因变黑....

http://bbaass.tk/math/?page=change-ipage

2 评分人数

老刘1号: 666技术 + 1
523066680: 好评PB + 6 技术 + 1

http://123456

bbaa

Rank: 3 Rank: 3

帖子: 316
积分: 275
技术: 32
捐助: 0
注册时间: 2015-11-30

130楼

发表于 2017-7-22 16:59 | 只看该作者

回复 129# 523066680

曲线图静态版本出来了，你不去看看么?

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

129楼

发表于 2017-7-22 16:57 | 只看该作者

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

FuniCode 编程论坛