HP50g small tips and trick

[C.Ret]

(02-20-2017 09:21 PM)ttw Wrote:  I can be a little faster by just leaving the remainders on the stack then using DEPTH and ->LIST to pick up the result […]

A few years ago, I have used the same trick to arrange multiple results into a single list on an HP-28S. I have not try it on an HP-50g; but it must work as well as on HP-28S. No empty stack was required. The trick was to memorize the initial stack depth into a local variable to adjust size when creating the result list.

Code:

6:                                                                                                                        .             
5:                                                         .                           .      .      .             .      ..     .      
4: .                                         .             ..     .      .      .      ..     ..     ..     .      ..     ...    ..     
3: ..            .             .      .      ..     .      ...    ..     ..     ..     ...    ...    ...    ..     ...    6      ...    .
3: ...    .      ..     .      ..     ..     ...    ..     6      ...    ...    ...    6      6      6      ...    6      4      6      ..
2: 34     ..     ...    ..     ...    ...    34     ...    34     6      6      6      4      4      4      6      4      5      4      ...
1: 7      ...    3      ...    34     34     7      6      7      4,8571 4      4      4      False  0      4      5      3      2      { 6 4 }
                                                                                                                                   
  « → n p « DEPTH  → d «  n      DO     p      MOD    LAST   /      FLOOR  UNTIL  DUP    NOT    END    DROP   DEPTH  d      -      →LIST » »

Alternatively, a shorter version

Code:

« DEPTH 2 - → p d
  « DO   p MOD LAST / FLOOR  UNTIL DUP NOT END
    DROP DEPTH d - →LIST » »