List Commands Library for 50g

[Gilles59]

An exemple of DOPERM to solve cryptarithms

https://en.wikipedia.org/wiki/Verbal_arithmetic

HE x HE = SHE

Code:


«
 { 0. 1. 2. 3. 4. 5. 6. 7. 8. 9. } 3.
 « 
  { 'S' 'H' 'E'}  STO
  IF '(SQ(10.*H+E)==1E2*S+10.*H+E) AND (S≠0) AND (H≠0)' THEN
   { 'S' 'H' 'E'} DUP «RCL» DOLIST = KILL 
  END
 »
 DOPERM 
»

output : { S=6. H=2. E=5. }