dh memoranda
Daiji Hirata Blog: Technology, Business, Marketing and PR and My Life
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
2012??????????????????????????????????????????????????????????????????????????iPhone 5 ????????????????????????????????????????????????
???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 ???????????????????????????????
??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)
?????????????? 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????????????????????????????????????????????????
?????????????????????????????????????????????????????????????????????????????????...?
??10????????????????????????????????????????????????????????????1998????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
???????????????????????????????????????????????????12????????????????????????????????????????????? ? ????????????????????????????????????????????????????????????????????????1???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
???????????????????????????????????????????????????????????????????????????????????????????????
?????????Mediactive??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? ?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
??????????????????????????????????????????????????????????????????????????????????????????????????????????????????2002??????????????????? Emergent Democracy ?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????0?????????????????????????????????????????????????????? CC-NC-SA ????????????
??????????????????????? (??????)
?????????????????????? (amazon)
?Mediactive 1.0 (??????)
??????????????????????????9????????????? ????????????9????????6?28???????Movable Type ??????????????????????????????????????????????????????????????????????????????????????????????????? Movable Type ??????? 2.2 ?????????
??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
?????9?????????????????????????????????????? News2u ?????????????????????????????????????????????????
??????????????????????????????????
???????????????? 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 ????????????????????????????????????????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???????????????????????????????????????????????????????????????????
??????20???????????????????????????????????????????????????????????????
?????????????????News2u?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
????????????????14?????????????????????????????????????????????????????????????L??????????????????????????????????????????????????????????????????????????????????????????????????
??????????????????????????????????????????????????????????????????????????????????????10?????3/22??News2u?10???????????????????2006??3????????????????????????????????????????????25???????????????????5???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
Newsfeed display by CaRP |