Author: Arun Raj
Posted: Wed Feb 08, 2017 10:55 pm (GMT 5.5)
Maybe you can remove the calculations that are not required and also directly overlay the final 'result digit', like this:
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard
Posted: Wed Feb 08, 2017 10:55 pm (GMT 5.5)
Maybe you can remove the calculations that are not required and also directly overlay the final 'result digit', like this:
| Code: |
| //SYSIN DD * OPTION COPY INREC IFOUTLEN=16,IFTHEN=(WHEN=INIT, OVERLAY=(16:1,1,UFF,MUL,+2,EDIT(TT), 3,1,UFF,MUL,+2,EDIT(TT), 5,1,UFF,MUL,+2,EDIT(TT), 7,1,UFF,MUL,+2,EDIT(TT), 9,1,UFF,MUL,+2,EDIT(TT), 11,1,UFF,MUL,+2,EDIT(TT), 13,1,UFF,MUL,+2,EDIT(TT), 15,1,UFF,MUL,+2,EDIT(TT), 16:(16,1,ZD,ADD, 17,1,ZD,ADD, 18,1,ZD,ADD, 19,1,ZD,ADD, 20,1,ZD,ADD, 21,1,ZD,ADD, 22,1,ZD,ADD, 23,1,ZD,ADD, 24,1,ZD,ADD, 25,1,ZD,ADD, 26,1,ZD,ADD, 27,1,ZD,ADD, 28,1,ZD,ADD, 29,1,ZD,ADD, 30,1,ZD,ADD, 31,1,ZD,ADD, 02,1,ZD,ADD, 04,1,ZD,ADD, 06,1,ZD,ADD, 08,1,ZD,ADD, 10,1,ZD,ADD, 12,1,ZD,ADD, 14,1,ZD),MUL,+9,EDIT=(T))) |
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard