Mini-challenge: MAX(factors of 2 or 5)

[Gerald H]

User & Sys suggestions:

Code:

« 0 SWAP
  WHILE DUP 2 IDIV2
0 SAME
  REPEAT NIP SWAP 1
+ SWAP
  END DROP 0 SWAP
  WHILE DUP 5 IDIV2
0 SAME
  REPEAT NIP SWAP 1
+ SWAP
  END DROP2 MAX
»

Code:

::
  CK1&Dispatch
  # FF
  ::
    FPTR2 ^ZTrialDiv2
    BINT0
    ROT
    BEGIN
    DUP
    ZINT 5
    FPTR2 ^ZDIVext
    ZINT 0
    EQUAL
    WHILE
    ::
      SWAPDROP
      SWAP#1+SWAP
    ;
    REPEAT
    2DROP
    #MAX
    FPTR2 ^#>Z
  ;
;