Anonymous user
Sokoban: Difference between revisions
→{{header|Perl}}
Line 1,622:
for my $d (keys %dirs) {
splice @loc, 1;
substr $tiles, 1, 99, '';
if( my $walk = $walk{ $tiles } ) {
my $new = $level;
substr $new, $loc[$_], 1, $walk->[$_] for 0
next if $seen{$new}++;
Line 1,637 ⟶ 1,639:
next if $wall{$tiles};
$tiles .= substr $level, $loc[-1], 1;
my $push = $push{ $tiles } or next;
my $new = $level;
substr $new, $loc[$_], 1, $push->[$_] for
next if $seen{$new}++;
|