Post Reply 
HP50g small tips and trick
06-14-2018, 07:17 AM (This post was last modified: 06-14-2018 07:33 AM by C.Ret.)
Post: #23
RE: HP50g small tips and trick
(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 » »
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
HP50g small tips and trick - Vtile - 12-13-2016, 11:58 PM
RE: HP50g small tips and trick - tdh79 - 12-19-2016, 11:27 AM
RE: HP50g small tips and trick - franz.b - 06-13-2018, 10:55 AM
RE: HP50g small tips and trick - ttw - 12-19-2016, 07:38 PM
RE: HP50g small tips and trick - Carsen - 01-02-2017, 05:21 AM
RE: HP50g small tips and trick - Vtile - 01-03-2017, 08:55 AM
RE: HP50g small tips and trick - grsbanks - 01-11-2017, 01:29 PM
RE: HP50g small tips and trick - Joe Horn - 01-11-2017, 06:32 PM
RE: HP50g small tips and trick - Vtile - 01-11-2017, 06:05 PM
RE: HP50g small tips and trick - grsbanks - 01-11-2017, 06:56 PM
RE: HP50g small tips and trick - DavidM - 01-11-2017, 09:07 PM
RE: HP50g small tips and trick - Vtile - 01-11-2017, 11:41 PM
RE: HP50g small tips and trick - grsbanks - 01-12-2017, 09:19 AM
RE: HP50g small tips and trick - Vtile - 01-17-2017, 01:30 PM
RE: HP50g small tips and trick - ttw - 02-06-2017, 07:47 PM
RE: HP50g small tips and trick - ttw - 02-20-2017, 09:21 PM
RE: HP50g small tips and trick - C.Ret - 06-14-2018 07:17 AM
RE: HP50g small tips and trick - TomC - 06-23-2018, 04:50 PM
RE: HP50g small tips and trick - Juan14 - 07-04-2018, 02:55 PM
RE: HP50g small tips and trick - Joe Horn - 07-04-2018, 04:52 PM
RE: HP50g small tips and trick - DavidM - 07-04-2018, 05:39 PM
RE: HP50g small tips and trick - Carsen - 06-13-2018, 08:12 AM
RE: HP50g small tips and trick - Vtile - 06-13-2018, 08:33 PM
RE: HP50g small tips and trick - Carsen - 06-13-2018, 09:34 PM
RE: HP50g small tips and trick - Joe Horn - 06-14-2018, 05:30 AM
RE: HP50g small tips and trick - Vtile - 06-14-2018, 09:30 PM
RE: HP50g small tips and trick - Carsen - 06-14-2018, 06:28 AM
RE: HP50g small tips and trick - rprosperi - 06-14-2018, 12:08 PM
RE: HP50g small tips and trick - Joe Horn - 06-14-2018, 01:09 PM
RE: HP50g small tips and trick - DavidM - 06-14-2018, 02:27 PM
RE: HP50g small tips and trick - Joe Horn - 06-15-2018, 02:15 PM
RE: HP50g small tips and trick - Carsen - 06-15-2018, 08:36 AM
RE: HP50g small tips and trick - Joe Horn - 06-15-2018, 03:20 PM
RE: HP50g small tips and trick - Carsen - 06-16-2018, 08:40 AM
RE: HP50g small tips and trick - Joe Horn - 06-16-2018, 06:15 PM
RE: HP50g small tips and trick - pier4r - 06-16-2018, 07:15 PM
RE: HP50g small tips and trick - DavidM - 06-16-2018, 09:26 PM
RE: HP50g small tips and trick - grsbanks - 06-17-2018, 07:59 AM
RE: HP50g small tips and trick - DavidM - 06-17-2018, 02:29 PM
RE: HP50g small tips and trick - Vtile - 06-17-2018, 07:01 PM
RE: HP50g small tips and trick - pier4r - 06-23-2018, 03:15 PM
RE: HP50g small tips and trick - rprosperi - 06-23-2018, 04:26 PM
RE: HP50g small tips and trick - pier4r - 06-23-2018, 05:43 PM
RE: HP50g small tips and trick - TomC - 06-23-2018, 05:02 PM
RE: HP50g small tips and trick - DavidM - 06-23-2018, 05:35 PM
RE: HP50g small tips and trick - pier4r - 08-08-2018, 09:25 AM
RE: HP50g small tips and trick - pier4r - 08-08-2018, 11:18 AM



User(s) browsing this thread: 1 Guest(s)