2010-01-17から1日間の記事一覧
とりあえず、ざっくりとこんな感じか。 #!/usr/bin/perl use strict; use warnings; my @map; my @start; my @goal; my $i = 0; while (<>) { chomp; my @map_line = split(//, $_); my $j = 0; foreach (@map_line) { @start = ($i, $j) if $_ eq 'S'; @goa…
とりあえず、ざっくりとこんな感じか。 #!/usr/bin/perl use strict; use warnings; my @map; my @start; my @goal; my $i = 0; while (<>) { chomp; my @map_line = split(//, $_); my $j = 0; foreach (@map_line) { @start = ($i, $j) if $_ eq 'S'; @goa…