ABC 154 D Perlの恩返し

はじめに

おっ、ABC 154やっとるな。
D - Dice in Line、Perlで問いたろ。

Perl

提出っ

main.pl

# !/usr/bin/perl

use strict;
use warnings;

my ($n, $k);
{
    my $in = <STDIN>;
    ($n, $k) = split(" ", $in);
}
my @p;
{
    my $in = <STDIN>;
    @p = split(" ", $in);
}
my $sum = 0;
for (my $i=0; $i<$k; $i++)
{
    $sum += $p[$i];
}
my $max = $sum;
if ($n>$k)
{
    for (my $i=0; $i<$n-$k+1; $i++)
    {
        $sum = $sum - $p[$i] + $p[$i+$k];
        $max = $sum if $max < $sum;
    }
}
$max = ($max + $k) / 2;
print "$max\n";

AC
どやっ
java でも問いたろっ

java

そりゃ

main.java

import java.util.*;

class Main {
    public static void main(String[] args) {
        final Scanner sc = new Scanner(System.in);
        final int N = Integer.parseInt(sc.next());
        final int K = Integer.parseInt(sc.next());
        final int P[] = new int[N];
        for (int i = 0; i < N; i++) {
            P[i] = Integer.parseInt(sc.next());
        }
        sc.close();

        int sum = 0;
        for (int i = 0; i < K; i++) {
            sum += P[i];
        }
        int max = sum;
        if (N > K) {
            for (int i = 0; i < N - K + 1; i++) {
                sum = sum - P[i] + P[i + K];
                if (sum > max) {
                    max = sum;
                }
            }
        }
        double d = (max + K) / 2.0;

        System.out.println(d);
    }
}

java.lang.ArrayIndexOutOfBoundsException

ぐぬぬ

まとめ

誤    for (my $i=0; $i<$n-$k+1; $i++)
正    for (my $i=0; $i<$n-$k; $i++)

• Perl の場合、未定義値undefは数値として比較された場合「0」として扱われる
• java や ruby の場合、例外が発生する
• c の場合、しれっととんでもない数値を返す

参照したサイト
undef関数 - 未定義値 - Perl入門ゼミ - Perlゼミのプログラミング ...