Digital root/Multiplicative digital root: Difference between revisions

m
→‎untra-fast version: removed a debugging statement.
m (→‎{{header|REXX}}: re-did the output.)
m (→‎untra-fast version: removed a debugging statement.)
Line 588:
if k\==0 then if ?==0 then iterate
select
when k==3 | k==5 | k==7 | k==9 then nop
when k==3 then if ?\==1 & ?\==3 then iterate
when k==5 then if ?//2==0 then iterate