The above problem is not one that works. Anyways, each letter stands for a number, and you need to find the numbers that will make the opperation work. Here is what I have so far:BOND +JAMES ------ AGENT
I have the code ready for the solving. And that is where I am stuck. I think I will just try to brute force it by replacing each letter with a number until it works. What is a good way to go through that process?#!/usr/bin/perl print "==============================\n====Pre-Calc Puzzle Solver====\ +n==============================\n\n","Number of words to be operated +on: "; chomp($words = <STDIN>); while ($_ != $words) { print "What is word #", $_ + 1, "? "; chomp($word[$_] = <STDIN>); $word[$_] = uc($word[$_]); $_++; } print "What is the operator?\nOperator: "; chomp($op = <STDIN>); $op = substr($op,0,1); unless ($op =~ /\+|\-|\*|\//) { die "That's not an operator I want to deal with!"; } print "What is the result?\nResult: "; chomp($result = <STDIN>); $result = uc($result);
Code tags for puzzle statement - dvergin 2003-01-17
In reply to Words that equal numbers by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |