Source: uva.jp/dh/mt/index.rdf

dh memoranda
Daiji Hirata Blog: Technology, Business, Marketing and PR and My Life


???????????????

???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????


2012??????????????????????????????????????????????????????????????????????????iPhone 5 ????????????????????????????????????????????????



Mzone / mopera U ????LAN????? 802.1x ??????

???Xi ???????????????????? mopera U ?????LAN?????????????????????????????????mopera U ??????? apn:open.mopera.net ?????????????????LAN????????????????????????????????????????????????

????LAN?????????WEP????????????????????????????????????????????????????????????? PWR-100 ??????????????????????????????????? LTE ????????????????????????????????????????802.1x ???????????????????????????????????????????????????iOS5 ?????????????????????????????? ????????????????????????????

????????????iPhone ???????????????Mzone ? WPA ?????????????????? ?-mopera@docomo?????????????????????????????????????? iPhone ????????????????????????????????????????????WI-FI??? docomo ?WEP?????????????????????????? accept ??????????? WiFi ????????? on ????????????????????????????????????? docomo ???????????????????????

???????????????????????????????????????????????????LAN????3G??????????????????????????????????????????????????????????????3G ?Mzone ?????????????????????????????????

???????????? 3G ?????????????????????????????????????LAN??????????????????????????????????????LAN????????3G ???????????????????????????????



FOMA ?? Xi ????????????

??11?24????????LTE?????????????????????????????????????????????10???????????????Watch????PC Watch??????????Re:config.sys?
??????Xi??????????????????????????Xi?????Xi???????????????Xi????????780??Xi??????? ?????????????5,985?????????????????????????????????????????????????????? iPhone 4 ? SIM ????????????????????????...?

??????????????????????????????????????????????????????????????????????????????????????????????????Xi2??Xi???????????i??????? mopera U ?????????????LAN????????????????????????????????????????????????????????????????????SIM ?????SIM?????????????????????miniUIM?????????????????????20????????????UIM????????? iPhone 4 ????????????????????????????????????????? FOMA ? SIM ???????????????????????????...?

????????????????????????? FOMA ????SS ??????????? ???????????????980?+8,190???9,170?????????780?+5985??????6,765????????????4??????????????????? ?????4,410?????5,190?????3,000?/??????????????????????????????

??????1???????? FOMA ????? SIM ????????i????????????????????SUICA???????????????????????1??????????????????????????????????????????????? FOMA ???????????????????

???? mopera U ????????LAN????????????? LTE ???????????????...?????????????????

????????????????????????????????????????? (Xi???24???????...) ?????? 7GB ????? (??????????????????) ?????????????????????????????????????????????????????????????SIM ??????????????????????????????????????????

???????????????????????????????

??: ?????????????????????????????????????????????Xi ????????????????????????? iPhone 4 ?? 3G ????????? SIM ?????????Xi (LTE) ???????????????????? LTE ???????Xi ??????????????????Xi ??????????????3G (FOMA) ????????????? Xi ??????????????????????????(2011.11.24 20:34)



Google Code Jam Japan 2011 ???????????????

?????????????? CakePHP ?????????????PostgreSQL ?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????Google ?????????????????????? Google Code Jam ??????????????????????????????????????????????

Google Code Jam Japan 2011

??? 10/1 ????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

??????? Macbook Air (2010 Later) ?????????????? Perl ??????????????????????????????????????

??A: ????

????????????????????????????????????????????????????????????????? N=1..3 ????????????? ?????????????????????????????????2N-1??????2N?????????????????????????????????????????????????

#! /usr/bin/perl use strict; use bigint;

my @RESULT = ('OFF', 'ON');

my $T = ;
for (my $i = 1; $i my ($N, $K) = split(/\s/, );
my $r = (($K % 2**$N) == (2**$N -1)) ? 1 : 0;
printf "Case #%d: %s\n", $i, $RESULT[$r];
}

1;

???????????????????????????????????????????????????????????

??B: ????

????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????small ??????????????????????? large ??????????????????????????????????????????????????
?????????????????????????????????? B ?????????????????????? sqrt (B) ????????????????????????????????????????????????????????????? sqrt(B) ?????????????? small ?2????????????????????? large ?????????????????????????????????????????????????????????????????????????????????????????

#! /usr/bin/perl

use strict;
use bigint;

my $T = ;

my @TEST;
my $max_B = 0;
my $min_P = 10**12;

my $RESULT;

for (my $i = 1; $i my ($A, $B, $P) = split /\s+/, ;
push @TEST, [$A, $B, $P];
$max_B = max($max_B, $B) + 0;
$min_P = min($min_P, $P) + 0;
}

my (@base, @primes);
my $max = sqrt($max_B) + 1;
for (my $i = 3; $i next if ($i % 3 == 0);
next if ($i % 5 == 0);
next if ($i % 7 == 0);
push @base, $i;
}

push @primes, (2,3,5,7);
my $i = 7;

while ($i for (my $j = 0; $j if ($base[$j] % $i == 0) {
splice(@base, $j, 1);
}
}
($i) = shift @base;
push @primes, $i;
}

@primes = (@primes, @base);

for (my $i = 1; $i my $q = shift @TEST;
$RESULT = solve(@$q);
printf "Case #%d: %d\n", $i, $RESULT;
}

sub solve {
my ($A, $B, $P) = @_;
my %FACTORS;
my %GROUP;
my $ANSWER = 0;
my $DELETE = 0;
for (my $i = $A; $i my $x = $i;
my $g = -1;
for (my $j = 0; $j last if $primes[$j] > $x;
if ((($x % $primes[$j]) == 0) or ($primes[$j] > int(sqrt($i)))) {
my $p = (($x % $primes[$j]) == 0) ? $primes[$j] : $x;
while ($x % $primes[$j] == 0) {
$x = $x / $primes[$j];
}
next if $p if ($g == -1) {
if (defined($FACTORS{$p})) {
$g = $FACTORS{$p};
} else {
$g = $ANSWER++;
$FACTORS{$p} = $g;
$GROUP{$g} = [$p];
}
} else {
if (defined($FACTORS{$p})) {
my $gg = $FACTORS{$p};
if ($g != $gg) {
foreach (@{$GROUP{$gg}}) {
$FACTORS{$_} = $g;
}
$GROUP{$g} = [@{$GROUP{$g}}, @{$GROUP{$gg}}];
delete $GROUP{$gg};
$DELETE++;
}
} else {
$FACTORS{$p} = $g;
push @{$GROUP{$g}}, $p;
}
}
last if $x == 1;
if ($primes[$j] > int(sqrt($i))) {
last;
}
}
}
if ($x > 1) {
add_prime($x);
}
if ($g $g = $ANSWER++;
$FACTORS{$i} = $g;
$GROUP{$g} = [$i];
}
}
return scalar(keys %GROUP);
}

sub max {
my ($a, $b) = @_;
return ($a > $b) ? $a : $b;
}

sub min {
my ($a, $b) = @_;
return ($a }

sub add_prime {
my $p = shift @_;
my $c = $#primes;
if ($p > $primes[$c-1]) {
push @primes, $p;
return;
}
for (my $i = 0; $i last if ($primes[$i] == $p);
if ($primes[$i] > $p) {
splice(@primes, $i, 1, ($primes[$i], $p));
last;
}
}
return;
}

1;

??C: ???

?????????????????????????????????????????????????????????????????????????????????????????????????shift ??? push ???????????????????????????? 1????small ??????30????????????

#! /usr/bin/perl

use strict;
use bigint;

my $T = ;

for (my $case = 1; $case my ($R, $k, $N) = split /\s+/, ;
my @g = split / /, ;

my $sales = 0;
for (my $i = 0; $i my $ride = 0;
for (my $j = 0; $j my $x = shift @g;
if ($ride + $x > $k) {
unshift @g, $x;
last;
}
$ride += $x;
push @g, $x;
last if $k == $ride;
}
$sales += $ride;
}
printf "Case #%d: %d\n", $case, $sales;
}

1;

????large ????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????50????????????????????????????????????????????????????????????????????????????????????????????????????small ?3???????????????????????????? large ????????????????????????????????????????????????????????????????????????????????????

#! /usr/bin/perl

use strict;
use bigint;

my $T = ;

for (my $case = 1; $case my ($R, $k, $N) = split /\s+/, ;
my @g = split / /, ;

my $sales = 0;
my $p = 0;
my %s;
my %c;
for (my $i = 0; $i my $ride = 0;
my $sp = $p;
my $spn = $p%$N;
if (defined($s{$spn})) {
$ride = $s{$spn};
$p += $c{$spn};
} else {
for (my $j = 0; $j my $x = shift @g;
if ($ride + $x > $k) {
unshift @g, $x;
last;
}
$p++;
$ride += $x;
push @g, $x;
last if $k == $ride;
}
}
if (($p%$N) == $spn) {
$sales += $ride * ($R-$i);
last;
}
$sales += $ride;
$s{$spn} = $ride;
$c{$spn} = $p - $sp;
if (($i my $loop_sales = $sales;
my $c = $i + 1;
$sales = $loop_sales * int($R/$c);
my $orig_R = $R;
$R = $R % $c;
$i = -1;
}
}
printf "Case #%d: %d\n", $case, $sales;
}

1;

??????

???????????????????????????????????????????????????????????????????????????????? small ??????????? large ?????????????????????????????????????????????????????
????????????????????????????????3????????????????????8???? large ????????????? 1????????????????????????????????????????????????
?????????????????????????????????????????????????????????????????????????????????...?



Panasonic RODEO ???????

??10????????????????????????????????????????????????????????????1998????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

???????????????????????????????????????????????????12????????????????????????????????????????????? ? ????????????????????????????????????????????????????????????????????????1???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

???????????????????????????????????????????????????????????????????????????????????????????????



????????? Mediactive

?????????Mediactive???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

??????????????????????????????????????????????????????????????????????????????????????????????????????????????????2002??????????????????? Emergent Democracy ?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

????????????????????????????????????????0?????????????????????????????????????????????????????? CC-NC-SA ????????????


??????????????????????? (??????)
?????????????????????? (amazon)
?Mediactive 1.0 (??????)



???9??

??????????????????????????9?????????????

????????????9????????6?28???????Movable Type ??????????????????????????????????????????????????????????????????????????????????????????????????? Movable Type ??????? 2.2 ?????????

??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

?????9?????????????????????????????????????? News2u ?????????????????????????????????????????????????

??????????????????????????????????



AWS Route53

???????????????? djbdns ???? DNS ? EveryDNS ?????????????????WikiLeaks ??????????????????????????????????????? EveryDNS ?????????????????????????????????????Route53?

Amazon ????????? Amazon Web Service (AWS) ???????????????????????????????????????????????????????????????????????????????DBMS ???????????????CDN ????????????????????????????????????????????? DNS ??????Route53 ?????????

Route53 ????? AWS ?????????REST API ? DNS ????????????????????????? DNS ???????????????API ??????????????????????????4?? DNS ???????????????????????????

Route53 ???????1 Zone ??? $1 / ? + ??????????????????????????????????? $0.5 /??????????????????????????????$1.50????18?????????????????????????????????????DNS ?????????????????????????????????????????????????????????????????...?

Route53 ?????API ????????????????Perl ? PHP ? Ruby ? Python ????????????????????????????CPAN ?? Net::Amazon::Route53 ??????????????????? route53 ????????

route53 -keyname hirata list daijihirata.com

??????????route53 ? API ??????????????????????

Route53 ??????????????????????????????????????????????????????? Zone Apex ? CNANE ?????????? CloudFront ???????????????????????????????????????????????Zone Apex ??? ELB ????????????????????????

???????DNS ???????????????????????????



????? ISDN?????? ?????

???????????????ISDN?????????????????????????????????????????????????????????????????????????????????????

ISDN ????????????????????????????????????????DSU???????????????????????????????????????????????OCN????????????????????????????????????1996??????????15????????????????????????ISDN ??????? ADSL ?????????????????????????ADSL????????????????????????????

ISDN ?????????PHS ????????????????????Aterm IW60 ????PHS ???????????????? 050-xxx ? PHS ???????????????? 03-xxx... ????????????????????PHS ? ISDN ??????????????????????????????????????????(TA)?????????????????????????????????????32kbps ????????????2005????????????????????????????? 633S ?????Bluetooth ???????????????????????

?????????116 ??????ISDN ???????????????????????????????????????????????????B???????????????????????????????????????????

?????????????????????RT-S300HI?????????B?????2???????????????????????????????????????????????????????????????????????? ONU ???????????????????????????????????????????ONU ????? GbE ?????????3????????????????????????????2?????+??????????????????????????????????????????????????

????????????ISDN ?????2780??????????????630??????3410?????????????+????????????945?????????????3150???????????????????????????????????????????????????????????????????



???????10???????

??????20???????????????????????????????????????????????????????????????

?????????????????News2u?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

????????????????14?????????????????????????????????????????????????????????????L??????????????????????????????????????????????????????????????????????????????????????????????????

??????????????????????????????????????????????????????????????????????????????????????10?????3/22??News2u?10???????????????????2006??3????????????????????????????????????????????25???????????????????5???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????



Newsfeed display by CaRP

Health:
See Health in Open Directory

Return to News Feeds Home Page
My Sites