06-27-2016, 03:23 AM
Add all the numbers of an integer and repeat until you have a single digit (1-9).
Program DROOT (52 bytes)
10 DESTROY N
20 INPUT “INTEGER:”;N
22 N=IP(N)
30 D=1+MOD(N-1,9)
40 DISP D
Program DROOT (52 bytes)
10 DESTROY N
20 INPUT “INTEGER:”;N
22 N=IP(N)
30 D=1+MOD(N-1,9)
40 DISP D