idivis inWP34s

[Didier Lachieze]

In 15 steps with the test up to n/2:

Code:

01 LBL A    n
02 #000     0     n
03 INC X    i     n
04 cENTER   i     n     i     n
05 RCL+X    2i    n     i     n
06 x<>T     n     n     i     2i
07 X<=? T   n     n     i     2i
08 RTN      n     n
09 RCL Z    i     n     n     i
10 RMDR     r     n     i
11 RCL+Z    i+r   n     i
12 x=? Z
13 R/S      i     n     i
14 x<> Z    i     n
15 BACK 12

Each time the program stops the divisor is in X and the initial number in Y. So you can see it with YDON.