2014年12月アーカイブ

1.まず、転換地点を算出。

2.スタートからその転換地点までの最短経路を作成

3.その転換地点からゴールまでの最短経路を作成

6-5-7→5-5-6→(L)→4-4-6→(R)→3-4-5→(L)→2-3-5

6-5-7→5-5-6→4-5-5→(L)→3-4-5→2-3-5

6-5-7→5-5-6→4-4-6→3-4-5→2-3-5

6-5-7→5-5-6→4-5-5→3-4-5→2-3-5

・全ての経路を算出して、その中から最短のものを採用する（あるいは、人に選択させる）

・最短の（あるいは任意の条件の）経路のみを算出する

# 経路選択

$i = 0;

for (;;) {

# 方向を見極める

$xd = $x2 - $x1; # X軸差

$yd = $y2 - $y1; # Y軸差

$zd = $z2 - $z1; # Z軸差

$i++;

# 方向によって、進むヘックスを決める

if ($xd == 0 && $yd > $zd) { # 目的地は真右

$x1 = $x1;

$y1 = $y1 + 1;

$z1 = $z1 - 1;

print "\[$i]目的地は真右\n";

}

elsif ($xd == 0 && $yd < $zd) { # 目的地は真左

$x1 = $x1;

$y1 = $y1 - 1;

$z1 = $z1 + 1;

print "\[$i]目的地は真左\n";

}

elsif ($xd < 0) {

if ($yd == $zd) { # 目的地は真上（真上には行けないので、とりあえず右上に）

$x1 = $x1 - 1;

$y1 = $y1;

$z1 = $z1 - 1;

print "\[$i]目的地は真上（右上）\n";

}

elsif ($yd > $zd) { # この場合も右上

$x1 = $x1 - 1;

$y1 = $y1;

$z1 = $z1 - 1;

print "\[$i]目的地は右上\n";

}

elsif ($yd < $zd) { # 目的地は左上

$x1 = $x1 - 1;

$y1 = $y1 - 1;

$z1 = $z1;

print "\[$i]目的地は左上\n";

}

}

elsif ($xd > 0) {

if ($yd == $zd) { # 目的地は真下（真下には行けないので、とりあえず左下に）

$x1 = $x1 + 1;

$y1 = $y1;

$z1 = $z1 + 1;

print "\[$i]目的地は真下（左下）\n";

}

elsif ($yd < $zd) { # この場合も左下

$x1 = $x1 + 1;

$y1 = $y1;

$z1 = $z1 + 1;

print "\[$i]目的地は左下\n";

}

elsif ($yd > $zd) { # 目的地は右下

$x1 = $x1 + 1;

$y1 = $y1 + 1;

$z1 = $z1;

print "\[$i]目的地は右下\n";

}

}

# もうゴール？

if ($x1 == $x2 && $y1 == $y2 && $z1 == $z2) {

print "\[$i]ゴールです！$x1-$y1-$z1\n";

last;

}

else {

print "\[$i]経路＝$x1-$y1-$z1\n";

}

}

$ ./hex_dist2.pl

開始位置=2-3-5

終了位置=5-7-4

最短距離=4

[1]目的地は右下

[1]経路＝3-4-5

[2]目的地は右下

[2]経路＝4-5-5

[3]目的地は右下

[3]経路＝5-6-5

[4]目的地は真右

[4]ゴールです！5-7-4

$ ./hex_dist2.pl

開始位置=6-5-7

終了位置=2-3-5

最短距離=4

[1]目的地は真上（右上）

[1]経路＝5-5-6

[2]目的地は左上

[2]経路＝4-4-6

[3]目的地は真上（右上）

[3]経路＝3-4-5

[4]目的地は左上

[4]ゴールです！2-3-5

・マップの端に達した（最短距離を取るので今回はあり得ないんだけど）

・障害物がある（マップ上に配置された岩や沼など）

・コマの向きの概念（方向転換しないと、向いている方向にしか進めない）

・各マスの位置を、X,Y,Z の 3軸で表現する。

・移動元と移動先の X,Y,Z の各差（絶対値）の中で一番大きな値を採用。

#!/usr/bin/perl

print "開始位置=";

$start = <STDIN>;

chomp $start;

print "終了位置=";

$end = <STDIN>;

chomp $end;

if ($start =~ /^(\d+)\-(\d+)\-(\d+)$/) {

($x1, $y1, $z1) = ($1, $2, $3);

}

else {

print "ERROR\n";

exit();

}

if ($end =~ /^(\d+)\-(\d+)\-(\d+)$/) {

($x2, $y2, $z2) = ($1, $2, $3);

}

else {

print "ERROR\n";

exit();

}

@dist = (abs($x1 - $x2), abs($y1 - $y2), abs($z1 - $z2));

@dist = sort {$a <=> $b} @dist;

print "最短距離=" . $dist[2] . "\n";

exit();

$ ./hex_dist.pl

開始位置=1-8-1

終了位置=9-6-11

最短距離=10

・・・

「はい、カード引いて」

「どのカードを使う？」

「じゃあ、どの戦車でどの戦車を攻撃するの？」

「もう一回サイコロ振って、当たり判定して」

「ああ、それで、旭酒造がこのグラス配ってるんですか？」

「いえ、買うんです」

「へえ・・・」

「けっこうする（高価）んです・・・」

「へえ・・・(^^;」

・乾き物（つーか、豆類とか、スナック類？）が多すぎたので、来年は少なめに。

・オードブルはもう少し多くて良かったのでは。（もう一皿）

・ビールも多すぎたので、来年はもう少し少なめでもＯＫ

上祖生

中村

かかし

下祖生Ａ

下祖生Ｂ

下祖生Ｃ

#!/usr/bin/perl

use strict;

use LWP::UserAgent;

use HTTP::Request::Common;

$ENV{'PERL_NET_HTTPS_SSL_SOCKET_CLASS'} = "Net::SSL";

$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;

my $url = 'https://labs.goo.ne.jp/api/morph';

my %postdata = (

'app_id' => 'c4e54ef1667***************************************495c84125',

'request_id' => 'hogehoge001',

'sentence' => '私の名前はりんごちゃんだよ。男好きだよ。',

'info_filter' => 'form|pos|read'

);

my $request = POST($url, \%postdata);

my $ua = LWP::UserAgent -> new;

my $res = $ua -> request($request) -> as_string;

print $res;

HTTP/1.1 200 OK

Date: Fri, 05 Dec 2014 03:34:34 GMT

Server: thin 1.5.1 codename Straight Razor

Content-Length: 462

Content-Type: application/json

Client-Date: Fri, 05 Dec 2014 03:34:34 GMT

Client-Peer: XXX.XXX.XXX.XXX:443

Client-Response-Num: 1

Client-SSL-Cert-Issuer: /C=US/O=Symantec Corporation/OU=Symantec Trust Network/CN=Symantec Class 3 Secure Server CA - G4

Client-SSL-Cert-Subject: /C=JP/ST=Tokyo/L=Minato-ku/O=NTT Resonant Inc./OU=goo Service Platform 1/CN=labs.goo.ne.jp

Client-SSL-Cipher: RC4-SHA

Client-SSL-Warning: Peer certificate not verified

P3P: policyref="/w3c/p3p.xml",CP="CAO DSP COR CURa ADMa DEVa TAIa PSAa PSDa IVAi IVDi CONo OUR SAMo OTRo IND PHY ONL UNI PUR FIN COM NAV INT DEM CNT STA HEA PRE LOC"

X-Cnection: close

X-Content-Type-Options: nosniff

{"request_id":"hogehoge001","info_filter":"form|pos|read","word_list":[[["私","名詞","ワタシ"],["の","格助詞","ノ"],["名前","名詞","ナマエ"],["は","連用助詞","ハ"],["りんご","名詞","リンゴ"],["ちゃん","名詞接尾辞","チャン"],["だ","判定詞","ダ"],["よ","終助詞","ヨ"],["。","句点","＄"]],[["男好き","名詞","オトコズキ"],["だ","判定詞","ダ"],["よ","終助詞","ヨ"],["。","句点","＄"]]]}