Search
Member List
Calendar
Help
|
(71B) Digital Root of Integers
|
|
06-27-2016, 03:23 AM
Post: #1
|
|||
|
|||
|
(71B) Digital Root of Integers
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 |
|||
|
|
« Next Oldest | Next Newest »
|
| Messages In This Thread |
|
(71B) Digital Root of Integers - Eddie W. Shore - 06-27-2016 03:23 AM
|
User(s) browsing this thread: 1 Guest(s)