dfi.pl

my %objs = ();

while (<>) {
	s/#.*//;
	s/\s//g;
	unless (/^$/) {
		die "syntax error" unless (/^[0-9]+<(\+|-|>|\[[0-9]+|]|\.)*$/);
		my ($name, $code) = split(/</);
		$objs{$name} = [0, $code];
	}
}

sub interpret {
	my ($objnum) = @_;
	foreach (split(/(?!\d)/, $objs{"$objnum"}->[1])) {
		if (/\+/) {
			$objs{$objnum}->[0] += 1;
		}
		elsif (/-/) {
			$objs{$objnum}->[0] -= 1;
		}
		elsif (/\./) {
			print $objs{$objnum}->[0], "\n";
			$objs{$objnum}->[0] = 0;
		}
		elsif (/]/) {
			interpret($objs{$objnum}->[0]);
		}
		elsif (/\[\d+/) {
			interpret(substr($_, 1));
		}
	}
}

interpret 0;