Post Reply 
Tripartite Palindromic Partition of Integer (HP 50g) Challenge
05-27-2023, 06:25 AM
Post: #125
RE: Tripartite Palindromic Partition of Integer (HP 50g) Challenge
Suggestions for replacing Zinttodigits & Digitstozint, smaller & faster(? just):

Code:
Z2D

Size: 46.

CkSum: # D740h

::
  FPTR2 ^Z>S
  DUPLEN$
  DUP1LAMBIND
  ZERO_DO
  DUP
  CAR$
  CHR>#
  BINT48
  #-
  UNCOERCE
  SWAP
  CDR$
  LOOP
  DROP
  1GETABND
;

D2Z

Size: 28.5

CkSum: # F9A4h

::
  1GETLAM
  NULL$SWAP
  ZERO_DO
  SWAP
  #>$
  &$
  LOOP
  FPTR2 ^S>Z
;
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: Tripartite Palindromic Partition of Integer (HP 50g) Challenge - Gerald H - 05-27-2023 06:25 AM



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