ボーリング嫌い

gistfile1.pl

#!/usr/bin/perl

use strict;
use warnings;

my $input = $ARGV[0];

# temporary

# TODO 切り取る

print calc_game_score($input);
print tokenize_input($input);

sub calc_frame_score {
    my ($input_frame, $frame_num) = @_;
    my $currentframe = $input_frame->{$frame_num);

    # 数字だけの時！！
    if ($currentframe =~ qr/([0-9])/){
        my @numbers = split //, $currentframe;
        return $numbers[0] + $numbers[1];
    }
    # ストライクの時！！！
    elsif($currentframe eq  "X"){
        return 10 + calc_frame_score($input_frame, $frame_num+1) + calc_frame_score($input_frame, $frame_num+2);
    }
    # スペアの時！！！！
    elsif($currentframe =~ qr|/|){

    }
}

sub calc_game_score {
    my $input = shift;

    my $frame_array = tokenize_input($input);

    my $sum = 0;
    for my $frame_num(1..12){
        $sum  += calc_frame_score($frame_array, $frame_num);
    }

}

sub tokenize_input {
    my $input = shift;
    my @frame_array =();
    my @characters = split //, $input;
    my $frame;
    for (@characters) {
        if ($_ =~ qr|[0-9/]|) {
            if ($frame) {
                $frame .= $_;
                push @frame_array, $frame;
                $frame = undef;
            }
            $frame = $_;
        }
        elsif ($_ =~ /X/) {
            push @frame_array, $_;
        }
    }
    return \@frame_array;
}