perlで虫食い算を解く

質問

http://quiz-tairiku.com/nan/q1.html

perl初心者です。
perl修行の一環として、上記URLに掲載されている虫食い算を解くperlのコードに挑戦しています。
10の変数と10のforループを使えば何とかなりそうなのですが、
これだと負荷が非常に高いコードになるため、これ以外の方法を模索しています。

何か良い案はないものでしょうか？
よろしくお願い致します。

回答No.1

moon_piyo

10個のforですけど
どうでしょう...

chomp($exp = join("", <DATA>));
$exp =~ s/\n/+/g;

@data = (0..9);
@used[@data] = (0)x@data;
foreach $n (grep $used[$_]==0 && $_, @data) {
local($used[$n])=1;
foreach $c (grep $used[$_]==0 && $_, @data) {
local($used[$c])=1;
foreach $m (grep $used[$_]==0 && $_, @data) {
next unless ($m == $n + $c || $m == $n + $c + 1);
local($used[$m])=1;
foreach $a (grep $used[$_]==0 && $_, @data) {
local($used[$a])=1;
foreach $d (grep $used[$_]==0 && $_, @data) {
local($used[$d])=1;
foreach $i (grep $used[$_]==0 && $_, @data) {
local($used[$i])=1;
foreach $o (grep $used[$_]==0 && $_, @data) {
local($used[$o])=1;
foreach $r (grep $used[$_]==0, @data) {
local($used[$r])=1;
foreach $s (grep $used[$_]==0 && $_, @data) {
local($used[$s])=1;
foreach $t (grep $used[$_]==0, @data) {
eval "(\$e=\$exp) =~ tr/ACDIMNORST/".join("", $a, $c, $d, $i, $m, $n, $o, $r, $s, $t)."/";
next if (eval $e);
print "A:$a C:$c D:$d I:$i M:$m N:$n O:$o R:$r S:$s T:$t\n";
}}}}}}}}}}
<STDIN>;
__DATA__
INTO
ONTO
CANON
INTACT
AMMONIA
OMISSION
DIACRITIC
STATISTICS
ASSOCIATION
ANTIMACASSAR
CONTORTIONIST
NONDISCRIMINATION
CONTRADISTINCTION
- MISADMINISTRATION

お礼

moon_piyoさん

ご回答ありがとうございました。
上記のコードをそのまま実行したところ見事に正しい答えが表示されました。
コードの中の知らないコマンド、書式を調べました。
　→大変勉強になりました。

どうもありがとうございました。
今後もどうぞよろしくお願い致します。