Numbers divisible by their individual digits, but not by the product of their digits.: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,819: / Line 1,819: @@
          ≪ n j DUP SUB STR→ ≫ 'j' 1 n SIZE 1 SEQ     <span style="color:grey">@ make list of digits</span>
          DUP2 MOD ∑LIST '''THEN''' DROP2 0 '''END'''
-         ΠLIST MOD
+         ΠLIST MOD SIGN
       '''END'''
  ≫ '<span style="color:blue">GOOD?</span>' STO
- ≪ 1 1000 '''FOR''' j '''IF''' j <span style="color:blue">GOOD?</span> '''THEN''' j + '''END NEXT''' ≫ EVAL
+ ≪ 1 999 '''FOR''' j '''IF''' j <span style="color:blue">GOOD?</span> '''THEN''' j + '''END NEXT''' ≫ EVAL
 {{out}}
 <pre>