きき☆彡のウェブログ

my %reldirec = (
    'L' => 3,
    'R' => 1
);

my @mvcord = (
    [-1,  0],
    [ 0,  1],
    [ 1,  0],
    [ 0, -1]
);

my $input_line = <STDIN>;
chomp $input_line;
my ($H, $W, $sy, $sx, $N) = split(/ /, $input_line);

my @field = ();

for (my $a = 0; $a < $H; ++$a) {
    $input_line = <STDIN>;
    chomp $input_line;
    push(@field,[split(//, $input_line)]);
}

my $event_count = 0;
my @event_list = ();
for (my $c = 0; $c < $N; ++$c) {
    $input_line = <STDIN>;
    chomp $input_line;
    push(@event_list, [split(/ /, $input_line)]);
}
push(@event_list, ['Inf', '']);

$field[$sy][$sx] = '*';

my $di = 0;

for (my $g_time = 0; $g_time <= 99; ++$g_time) {
    my $od = $di;
    if ($g_time == $event_list[$event_count][0]) {
        $od = ($od + $reldirec{$event_list[$event_count][1]}) % 4;
        ++$event_count;
    }
    my $stop = 0;
    my $oy = $sy + $mvcord[$od][0];
    my $ox = $sx + $mvcord[$od][1];
    if(
        $oy >= 0 && $oy < $H &&
        $ox >= 0 && $ox < $W &&
        $field[$oy][$ox] ne '#'
    ){
        $di = $od;
        $sy = $oy;
        $sx = $ox;
        $field[$sy][$sx] = '*';
    } else {
        $stop = 1;
    }
    if ($stop) {
        print "Stop";
        last;
    } else {
        print $sy.' '.$sx."\n";
    }
}

my %pid = ('A' => 0, 'B' => 1);
my @pname = ('A', 'B');
my @cord = ([-1, 0], [0, 1], [0, -1], [1, 0]);

my $input_line = <STDIN>;
chomp $input_line;
my ($H, $W) = split(/ /,$input_line);
my $N = <STDIN>;
chomp $N;

# フィールドの初期状態
my @field = ();
my @new_territory = ([], []);
my @score = (0, 0);
for(my $a = 0; $a < $H; ++$a){
    $input_line = <STDIN>;
    chomp $input_line;
    push(@field,[split(//, $input_line)]);
    for(my $b = 0; $b < $W; ++$b) {
        if (defined($pid{$field[$a][$b]})) {
            push(@{$new_territory[ $pid{$field[$a][$b]} ]}, [$a, $b]);
            ++$score[$pid{$field[$a][$b]}];
        }
    }
}

my $flg = 1;
my $turn = $pid{$N};
my $pass = 0;
#ゲーム開始！
while($flg) {
    $flg = 0;
    my $painted = [];
    foreach $pick (@{$new_territory[$turn]}) {
        for(my $a = 0; $a < 4; ++$a) {
            my $ny = $$pick[0] + $cord[$a][0];
            my $nx = $$pick[1] + $cord[$a][1];
            if (
                $ny >= 0 && $ny < $H &&
                $nx >= 0 && $nx < $W &&
                $field[$ny][$nx] eq '.'
            ) {
                # 侵略！<s>イカ娘</s>
                $field[$ny][$nx] = $pname[$turn];
                ++$score[$turn];
                push(@$painted, [$ny, $nx]);
                $flg = 1;
            }
        }
    }
    $new_territory[$turn] = $painted;
    if ($flg) {
        $pass = 0;
    }
    # 連続パス
    if (!$flg && !$pass) {
        $pass = 1;
        $flg = 1;
    }
    $turn = 1 - $turn;
}

#けっかはっぴょ～♪
print join(' ',@score)."\n";
print $score[0] > $score[1] ? "A\n" : "B\n";

my @cordb = (
    [-1, 1], [1, 1], [1, -1], [-1, 1]
);
my @direc = (
    [ 1, 0], [0, -1], [-1, 0], [0, 1]
);

my $input_line = ;
chomp $input_line;
my ($x, $y, $N) = split(/ /, $input_line);
$circuit = int((sqrt($N) + 1) / 2);

$pos_of_c = $N - ($circuit * 2 - 1) ** 2;
$pos_of_d = int($pos_of_c / ($circuit * 2));
$pos_of_e = $pos_of_c % ($circuit * 2);

$oy = $y + $cordb[$pos_of_d][0] * $circuit + $direc[$pos_of_d][0] * ($pos_of_e + 1);
$ox = $x + $cordb[$pos_of_d][1] * $circuit + $direc[$pos_of_d][1] * ($pos_of_e + 1);

print $ox.' '.$oy."\n";

my $input_line = <STDIN>;
chomp $input_line;
my ($H, $W, $Y, $X) = split(/ /,$input_line);
###  外枠を '_' で囲む
my @board = ('_' x ($W + 2));
for (my $a = 0; $a < $H; ++$a) {
    $input_line = <STDIN>;
    chomp $input_line;
    push(@board, '_'.$input_line.'_');
}
push(@board, '_' x ($W + 2));
substr($board[$Y + 1], $X + 1, 1, '*');
for (my $dy = -1; $dy <= 1; ++$dy) {
    for (my $dx = -1; $dx <= 1; ++$dx) {
        next if $dy == 0 && $dx == 0;
        my $ny = $Y + $dy + 1;
        my $nx = $X + $dx + 1;
        my $flg = 0;
        my $t = substr($board[$ny], $nx, 1);
        last if $t eq '*';
        ### はさんでいる？
        while($t ne '_') {
            if ($t eq '*') {
                $flg = 1;
                last;
            }
            $ny += $dy;
            $nx += $dx;
            $t = substr($board[$ny], $nx, 1);
        }
        ### はさんでるよ！
        if ($flg) {
            $ny = $Y + $dy + 1;
            $nx = $X + $dx + 1;
            $t = substr($board[$ny], $nx, 1);
            for(; $t ne '*'; $ny += $dy, $nx += $dx, $t = substr($board[$ny], $nx, 1)) {
                substr($board[$ny], $nx, 1, '*');
            }
        }
    }
}
for (my $a = 1; $a <= $H; ++$a) {
    print substr($board[$a], 1, $W)."\n";
}

<ul id="elem">

<li>Kiki</li>

<li>Lala</li>

<li>Popo</li>

<li>Nana</li>

</ul>



Nanaを先頭に移動させる



var elem = document.getElementById("elem");

var elemchild = elem.children;



var m1 = elemchild[3];

var m2 = elemchild[0];

elem.removeChild(m1);

elem.insertBefore(m1, m2);



KikiをNanaの後に移動させる



var m1 = elemchild[0];

var m2 = elemchild[3];

elem.removeChild(m1);

elem.insertBefore(m1, m2.nextSibling);



末尾に追加

elem.appendChild(m1);  // or

elem.insertBefore(m1, elem.lastElementChild.nextSibling);

elem.insertBefore(m1, null);



先頭に追加

elem.insertBefore(m1, elem.firstElementChild);