「Rand」を含む日記

■[海外サイトはてブ数][専門サイト]2018年11月6日火曜日の増減

Permalink | 記事への反応(0) | 00:10

ツイートシェア

■[海外サイトはてブ数][専門サイト]2018年10月30日火曜日の増減

Permalink | 記事への反応(0) | 00:10

ツイートシェア

■[海外サイトはてブ数][専門サイト]2018年10月23日火曜日の増減

Permalink | 記事への反応(0) | 00:10

ツイートシェア

■http://anond.hatelabo.jp/20170222195031

rand()で数千とか座標を作って大量にプロットすると模様ができるとおもう。

その程度には質は悪い。

でも、6面サイコロとか敵の出現率とかダメージ計算とかで使っても、周期性は感じられない程度の質はある。

Permalink | 記事への反応(1) | 19:57

ツイートシェア

■http://anond.hatelabo.jp/20170222193043

高校のプログラミングに強い(笑)先輩がrand()の質の悪さを説明するために点描するプログラム書いてくれたな。

ものの見事に濃淡が偏ってて、「ああ確かに質が悪いんだな」と思ったけど、今思うとどうなんだろうあれは。

Permalink | 記事への反応(1) | 19:50

ツイートシェア

■カルドセプトの乱数問題で

当時ドヤ顔で、標準関数のrand()を使ってるからって指摘してる連中多かったな。

大昔に書かれたC FAQってドキュメントに、rand()は質が悪いって書かれてる影響でだろう。

でもカルドセプトの事件が起きたときにはすでに21世紀でそんなrand()の質の悪い処理系なんてなかったはず。

むしろrand()を使わずに、自作したから失敗したんだろ。

あとだいぶ前に2chのプログラム板を見てたけど、初心者が乱数関係の質問をするたびに、乱数の質が悪いから加工して使えとか、メルセンヌ云々でとか言う連中が常駐してたな。

でもその初心者に教えてる乱数を加工するコードがバグってたりするの。

初心者が作るゲームに使う乱数なんてrand()で十分だろって言っても、ぜんぜん通じなかったな。

この前のtotoの乱数の件で思い出したから書いた。

Permalink | 記事への反応(2) | 19:30

ツイートシェア

■日本にchokudai先生以外に乱数を力説できる人は限られている

Imagine Cup 2008のアルゴリズム部門で世界3位のchokudai先生ならVimにrand()とsrand()の必要性を力説してくれるはずだ。

あとは数学バカとかセキュリティーエンジニアも力説できる？

その筋の人ならbramを説得できるはずだ

残念な事にchokudai先生はVimを使ってない。

我々はchokudai先生を早急にVimワールドに引きずり込むべきだ。

vimmer「Vim使ってみませんか？おすすめのエディタです」

chokudai「Vim？Visual Studioで間に合ってま〜す」

vimmer「vimプラグインのomnisharp-vimを入れたらVimでC#書けますよ」

vimmer「中でもおすすめなのがShougoさんのVimプラグインです。これがあれば暗黒の力が簡単に手に入りますよ」

vimmer「neobundle.vimを入れるとプラグイン管理が楽になります」

vimmer「unite.vimを使えばもっとVimの操作が楽になります」

vimmer「更に開発中のdein.vimやdenite.nvimやdeoplete.nvimを使えばさらに強い暗黒の力が手に入りますよ」

chokudaiは唾液をゴクリと飲み込む

vimmer「ククク・・・興味を持ったようだな」

vimmer「もうひとつ情報を与えてやろう」

vimmer「暗黒に染まったプラグインを更新する度にパワーがはるかに増す・・その更新を無限にオレは残している・・その意味がわかるな？」

震えるchokudai「いきなり意味がわからないことを言いやがって！！でも怖いっ！！！！」

震えるchokudai「tanakhさん！助けて！！！」

tanakh「だめだ！暗黒の力が強烈過ぎて僕のemacsの力では太刀打ち出来無い(´･_･`)」

震えるchokudaiとtanakh「きさま！まさか！！(((((((( ；ﾟДﾟ))))))))ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙｶﾞﾀｶﾞﾀﾌﾞﾙﾌﾞﾙ」

暗黒美夢王「フハハハハ！！！！！！！！！！！そのまさかだ！」

https://github.com/vim/vim/pull/1277

Permalink | 記事への反応(1) | 13:19

ツイートシェア

■論理的思考？？？

小中でプログラミング必修に…政府の新成長戦略 : 政治 : 読売新聞（YOMIURI ONLINE）

http://www.yomiuri.co.jp/politics/20160416-OYT1T50044.html

id:uxlayman プログラミングやらんでいいから論理的思考をちゃんとおしえてくれ

id:bigburnbigburn 移り変わりの激しいプログラム言語を子供に教えてどうするんだ…義務教育では論理的思考を教えればいいのに

id:aya_momoaya_momo プログラミングを教える前に論理的思考を教えるべき。あと、数学にも力を入れるべき。

このへんのブコメに死ぬほど違和感があるんだけど、論理的思考力がどうこうって、プログラミングを教えるかどうかという話題とあんまり関係なくない？論理的思考力って学問でもビジネスでもあらゆる分野で必要なもので、プログラミングに特別に必要とされるものでもないだろ。コンピューターサイエンスを教えろみたいな話ならまだわかるけど。

print 'うんこ'

って書けば「うんこ」って表示されて、

if rand(3)
  print 'うんこ'
end

って書けばたまにうんこが表示される、とかそういうレベルで知ってるだけでも、知識ゼロとはそれなりの違いがあるじゃん。こんなん小学生でもわかるし、世の中のソフトウェアなんてこういうのの積み重ねでしかないよ。もっと複雑なものを作るには、もちろん論理的思考力がないと苦労するだろうけど、そんなんプログラミングじゃなくても他のことでも一緒だよ。逆に論理的思考力が高いだけでうまくいくもんでもないよ、ソフトウェア開発って。

そもそも論理的思考を教えろって具体的にどういうことを教えてほしいんだ？プログラミングを学ばせることで論理的思考力を伸ばすという方法も全然ありなのでは？小中学生がもっと効率よく論理的思考力を伸ばせる方法があるというなら提案してほしい。小さい子に抽象的な知識だけ学ばせたってつまらんからどうせ頭に入らないし、教師だって正誤が明確に出るプログラミングのほうが教えやすい面もあるのでは？（教師が生徒の書いたものをデバッグできなくて困ることは多々ありそうではあるけど）

あと、プログラム言語が移り変わり激しいって本当に知ってて言ってるのか？CとかC++とか何年使われてると思ってるんだ？JavaとかRubyだってもう20年以上の歴史がある言語で、未だに衰退の気配はまったくない。新しい言語もあるけど、現場で実際に使われてる言語の平均寿命は相当長いぞ。今Javaとかやったとして、子供らが社会に出る頃に使われなくなっている可能性が高いとはあまりいえないのでは。最先端の現場で細かい部分が変わっていくのはどの業界でも一緒だし。

Permalink | 記事への反応(1) | 10:00

ツイートシェア

■妄想

１．エクセルにFBで友達になってる異性の名前リストを作る

２、rand関数で順位付け

３、上位７人と、１週間毎日１人ずつと…という妄想

Permalink | 記事への反応(0) | 01:02

ツイートシェア

■Cの乱数ルーチン

掲示板で初心者がrand()の使い方を質問してると、

「rand() % N はいかん。下位ビットは偏りがでる」

とかいまだにドヤ顔で教えてる人がいるね。

C FAQに書いてあるからだろうけど、あれ20年以上前の文章で、いまどき下位ビットだから極端に周期が短い処理系とかないと思うんだけどね。

初心者が使う用途ならたいがい rand() % N で十分なはず。

むしろ、rand() % Nのかわりにって教えてるコードが

「(int)((double)rand() / RAND_MAX * N)」 とか 「rand() ＞＞ 16」 とかバグってたりすることがあって、素直に rand() % N 使えよって感じになる。

むかしカルドセプトってゲームが乱数ルーチンバグって、偶数と奇数が交互にでるって現象があってネット上でやっぱり「こう書け」みたいに乱数ルーチン書いてる人がいたけど、そういう人たちもバグってるの多かったね。

変に工夫するからバグるんだわ。

ゲーム程度なら素直に rand() % N 使っとけよって感じ。

Permalink | 記事への反応(1) | 10:21

ツイートシェア

■http://anond.hatelabo.jp/20140116013407

モデルで発生するイベントが多く、複雑になるほど、ビューとの関連は密になる。

ここの所は、今回の例ではいまいち見えづらい気がする。今回の例で複雑になっているのはモデルだけである。ビューがやる事は、「納刀する」「変色した血が飛び散る」イベントをlistenして画面に描画するだけのはず。MVCのイベント機構は、モデル→ビューとコントロール→モデルのメッセージ通知を行うためのもので、モデル同士の通信についてはノータッチ。モデル内での相互作用に、単なるメソッド呼び出しを超えたあれこれが必要なら、DSLを作るなり自前でイベント機構を作るなり好きにして下さい、というスタンスかなあと思われ。

といってもQtのsignal/slotなんかはモデル同士の通信にも使えるわけで、そういう意味で最近のGUIエンジンはMVCの範囲を超えつつある。具体的に「Controllerからの入力もModelの自発的な状態遷移も、同じイベント機構で扱いましょう」というのはMOVEの考え方に非常に近い。

http://blog.neo.jp/dnblog/index.php?module=Blog&action=Entry&blog=pg&entry=3442&rand=9193a

MOVEの考え方からいえば、モデルの責務が吸い出されて単なるデータになってしまうのは、むしろコンセプト通りであるとも言える。

なお、単純な例を超えてRPGの実装を自分が考えるなら、オブジェクト指向設計としては攻撃方法型や特殊作用型（毒とか呪いとか）同士の相互作用を主眼に置いた感じになって、モンスターや勇者は単なるデータに近付いていくだろうなあ、と予想してみる。組んでみないと分からない事もあるだろうけれども。

Permalink | 記事への反応(1) | 00:03

ツイートシェア

■PHPのあの関数をPerlでやるには？

元ネタ http://phpspot.org/blog/archives/2009/12/phpjavascriptph_1.html

面白そうだと思ったので僕もやってみた。モジュールはPerl5.8系の標準モジュールのみ利用可という制限。

全部はキツイので関数処理関係の関数(http://php.benscom.com/manual/ja/ref.funchand.php)だけ実装してみた。

use strict;
use warnings;

=head2 call_user_func

 $ret = call_user_func($function,@param);
 $ret = call_user_func([$class,$method],@param);

example1

 sub plus { $_[0] + $_[1] }
 print call_user_func('plus',10,20); # 30

example2

 package Foo;
 sub plus { $_[1] + $_[2] }
 package main;
 print call_user_func(['Foo','plus'],10,20); # 30

=cut

sub call_user_func {
    my $proto = shift;
    if ( ref $proto eq 'ARRAY' ) {
        return $$proto[0]->${\$$proto[1]}(@_);
    }
    else {
        require Pod::Functions;
        if ( $Pod::Functions::Flavor{$proto} ) {
            return eval qq{$proto(\@_)};
        }
        else {
            no strict 'refs';
            return $proto->(@_);
        }
    }
}

=head2 call_user_func_array

 $ret = call_user_func_array($function,\@param);
 $ret = call_user_func_array([$class,$method],\@param);

example

 sub plus { $_[0] + $_[1] }
 print call_user_func_array('plus',[10,20]); # 30

=cut

sub call_user_func_array {
    return call_user_func(shift,@{+shift});
}

=head2 create_function

 $code = create_function($args_str,$code_str);

example

 $code = create_function('$c,$d=1','print $c+$d');
 $code->(10); # 11

=cut

sub create_function {
    my $args = shift;
    my $code = shift;
    my $default = 0;
    my @args = split /,/,$args;
    my $code_str = 'sub {';
    for my $arg (@args) {
        if ( $arg =~ /^\s*(\$[a-zA-Z][\w]*)\s*(?:=\s*(.+))?\s*$/ ) {
            my $val = $1;
            my $def = $2;
            if ( defined $def ) {
                $default = 1;
                $code_str .= qq{my $val = \@_ ? shift : $def;\n};
            }
            else {
                die 'parse error' if $default;
                $code_str .= qq{my $val = shift;\n};
            }
        }
    }
    $code_str .= $code . '}';
    my $sub = eval $code_str;
    die $@ if $@;
    return $sub;
}

=head2 forward_static_call

 $ret = forward_static_call($function,@param);
 $ret = forward_static_call([$class,$method],@param);

=cut

sub forward_static_call {
    call_user_func(@_);
}

=head2 forward_static_call_array

 $ret = forward_static_call_array($function,\@param);
 $ret = forward_static_call_array([$class,$method],\@param);

=cut

sub forward_static_call_array {
    call_user_func_array(@_);
}

=head2 func_get_arg

 $arg = func_get_arg($no)

example

 sub foo { print func_get_arg(1) }
 foo(100,200); # 200

=cut

sub func_get_arg {
    my $n = shift;
    package DB;
    @DB::args = ();
    () = caller(1);
    return defined $DB::args[$n] ? $DB::args[$n] : undef;
}

=head2 func_get_args

 @args = func_get_args()

example

 sub foo { print join ':', func_get_args() }
 foo(11,22,33); # 11:22:33

=cut

sub func_get_args {
    my $n = shift;
    package DB;
    @DB::args = ();
    () = caller(1);
    return @DB::args;
}

=head2 func_num_args

 $arg_count = func_num_args()

example

 sub foo { print func_num_args() }
 foo(11,22,33); # 3

=cut

sub func_num_args {
    my $n = shift;
    package DB;
    @DB::args = ();
    () = caller(1);
    return scalar @DB::args;
}

=head2 function_exists

 $bool = function_exists($func)

example

 sub foo {}
 print function_exists('foo');  # 1
 print function_exists('bar');  # 0
 print function_exists('rand'); # 1

=cut

sub function_exists {
    my $func = shift;
    return 1 if exists &$func;
    require Pod::Functions;
    return $Pod::Functions::Flavor{$func} ? 1 : 0;
}

=head2 get_defined_functions

 $funcs = get_defined_functions()

=cut

sub get_defined_functions {
    require Pod::Functions;
    return {
        internal => [ keys %Pod::Functions::Flavor ],
        user     => [ grep { exists &$_ } keys %:: ],
    };
}

=head2 register_shutdown_function

 register_shutdown_function($func,@param);
 register_shutdown_function([$class,$method],@param);

=cut

{
    my $REGISTER_SHUTDOWN_FUNCTION = [];
    sub register_shutdown_function {
        my $proto = shift;
        push @$REGISTER_SHUTDOWN_FUNCTION, [
            do {
                if ( ref $proto eq 'ARRAY' ) {
                    $$proto[0]->can($$proto[1]);
                }
                else {
                    require Pod::Functions;
                    if ( $Pod::Functions::Flavor{$proto} ) {
                        sub { eval qq{$proto(\@_)} };
                    }
                    else {
                        no strict 'refs';
                        \&$proto;
                    }
                }
            },
            [@_]
        ]
    }
    END {
        $_->[0]->(@{$_->[1]}) for @$REGISTER_SHUTDOWN_FUNCTION;
    }
}

思ったよりも難しかった。標準関数一覧を取る手段がなかったので標準モジュールを利用して標準関数の一覧を取得した。

あと文字列から標準関数を呼び出すスマートな手段が思いつかなかったのでeval便りに。

create_functionはかなりゴリ押し。myを勝手に付けたりデフォルト引数にも対応してたり細かい芸が光る（自分で言うな）

forward_static_callはぶっちゃけPerl的にcall_user_funcと殆ど処理が変わらないのでそのまま利用。

func_get_arg系は結構クリティカルだなー。@DB::argsをリアルに使ったの初めてだよ。

register_shutdown_functionはちょっとねー。ENDブロックを利用してるわけなんだけど当然mod_perlとかではうまく動かない。あとシグナルとか使った方が良いのかもしれない。

ヒマがあったら他の関数とかも実装してみたいかも。

プログラ増田のあなぐら

Permalink | 記事への反応(1) | 18:39

ツイートシェア

■グーグルマップを壁紙にしてみる

10/18 改訂

グーグルマップの航空写真をつなげて一枚にするスクリプト。

なお、取得した画像の著作権はグーグル他各社が保持しています。

ご利用は計画的に私的範囲でどうぞご利用ください。

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;
use LWP::UserAgent;
use GD;

my $cmdline = join(" ", $0, @ARGV);
my $usage = "usage: $0 -sx=116423 -sy=51603 -ex=116426 -ey=51605 -dx=4 -dy=3 -z=17 -size=300 -get=30 -dir=cache -output=output.jpg -nodebug";
my ($sx, $sy) = (0, 0);
my ($ex, $ey) = (0, 0);
my ($dx, $dy) = (4, 3);
my $z = 17;
my $size = 300;
my $get = 30;
my $dir = "cache";
my $output = "output.jpg";
my $debug = 0;
GetOptions("sx=i" => \$sx, "sy=i" => \$sy,
	   "ex=i" => \$ex, "ey=i" => \$ey,
	   "dx=i" => \$dx, "dy=i" => \$dy,
	   "z=i" => \$z,
	   "size=i" => \$size, "get=i" => $get,
	   "dir=s" => \$dir, "output=s" => \$output,
	   "debug!" => \$debug) or die "$usage\nDied";
if ($ex == 0) {
    $ex = $sx + $dx;
} else {
    $ex++;
    $dx = $ex - $sx;
}
if ($ey == 0) {
    $ey = $sy + $dy;
} else {
    $ey++;
    $dy = $ey - $sy;
}
$sx>0 and $dx>0 and $sy>0 and $dy>0 and $z>0 and $dir and $output
    or die "$usage\nBad arguments";
$dx*$dy > $size and die "Getting too large.";

$debug and print "debug: mkdir $dir\n";
mkdir $dir;
-d $dir or die "can't make dir $dir: $!";

my $base = sprintf("http://khm%d.google.co.jp/kh/v=46&z=%d", int(rand(4)), $z);
my $ua = LWP::UserAgent->new;
printf "now get %d images...\n", $dx*$dy;
for (my $x=$sx; $x < $ex; $x++) {
    for (my $y=$sy; $y < $ey; $y++) {
	my $file = sprintf("%s/%02dz%06dx%06d.jpg", $dir, $z, $x, $y);
	$debug and print "debug: check of $file\n";
	-s $file and next;
	--$get < 0 and last;
	my $req = HTTP::Request->new(GET=>+"$base&x=$x&y=$y");
	$debug and print "debug: fetch from ".$req->uri."\n";
	my $res = $ua->request($req);
	unless ($res->is_success) {
	    print "fail fetch from $file: ", $res->status_line, "\n";
	    next;
	}
	if (open(my $fh, ">", $file)) {
	    $debug and print "debug: write of $file\n";
	    binmode $fh;
	    print $fh $res->content;
	    close $fh;
	} else {
	    print "fail open in $file: $!\n";
	}
    }
}
$get < 0 and print "reach the getting limit, skip after all.\n";

printf "creating %dX%d image...\n", 256*$dx, 256*$dy;
my $image = new GD::Image(256*$dx, 256*$dy);
for (my $x=$sx; $x < $ex; $x++) {
    for (my $y=$sy; $y < $ey; $y++) {
	my $file = sprintf("%s/%02dz%06dx%06d.jpg", $dir, $z, $x, $y);
	$debug and print "debug: check of $file\n";
	-s $file or next;
	$debug and print "debug: read of $file\n";
	my $part = GD::Image->newFromJpeg($file);
	$debug and print "debug: image copy\n";
	$image->copy($part, 256*($x-$sx), 256*($y-$sy), 0, 0, 256, 256);
    }
}
#$image->string(gdSmallFont, 0, 0, $cmdline, $image->colorAllocate(255, 255, 255));
open(my $fh, ">", $output) or die "fail open $output: $!";
$debug and print "debug: write of $output\n";
binmode $fh;
print $fh $image->jpeg();
close $fh;

例えば秋葉原とか

perl gmwall.pl -sx=116423 -sy=51603 -ex=116427 -ey=51606

駅だけとか

perl gmwall.pl -sx=465701 -sy=206420 -ex=465705 -ey=206423 -z=19

使う数値はfirebugなどで拾ってください。

Permalink | 記事への反応(0) | 00:06

ツイートシェア