List Commands Library for 50g

[Gilles59]

Here is a generic program to solve "cryptarithms" :

Code:


\<<
 DUP 'Crypt' STO
 "'" DUP UNROT + + STR\->                          
 LNAME AXL S~N LSUM S\->SL LDDUP 'Lettre' STO
 {"1" "2" "3" "4" "5" "6" "7" "8" "9" "0"}
 Lettre SIZE
 \<< Crypt Lettre ROT 2. « SREPL DROP » DOLIST
   IF DUP "`" DUP UNROT + + STR\-> THEN DUP 1. DISP  ELSE DROP END
 \>> DOPERM
\>>

Enter the cryptarithm like this, for example :

"neuf+un+un==onze"
"li+li==cii" (roman numbers
"sin^2+cos^2==unite"
"3*twenty+2*ten==eighty"
"jupiter+saturne+uranus==neptune"


Note that:

- It uses DOPERM, LDDUP, LSUM, S->SL of the Library of DavidM
- use lowercase, it's better to avoid conflicts with names of a function,
- buy a pack of beers, it's sloooow even with an emulator
- The program searches all the solutions and return a list, but the solutions are displayed on the screen. Note that a beautiful cryptarithm has only one solution. You can change the program to stop at the first one
- the program dont check that a number begin with a 'zero'.

No comment for the program, but if you run it step by step you will see that its very simple.