HP 50g Double factorial

[Matt Agajanian]

This post gave me an opportunity to develop an HP-67 version. And here we go!



*LBL A:
001: 31 25 11  f LBL A
002:   33 00   STO 0
003:      84   R/S

*LBL B:
004: 31 25 12  f LBL B
005:     02    2
006:     81    ÷
007:     41    ENTER
008:   31 83  f INT
009:   32 51  g x=y?
010:   22 02    GTO 2

LBL 1:
011: 31 25 01  f LBL 1
012:   33 01    STO 1
013:     02     2
014:     71     ×
015:     01     1
016:     61     +
017:   35 81  h  N!
018:     02     2
019:   34 01    RCL 1
020:   35 63  h  yˣ
021:   35 82  h LST x
022:   35 81  h  N!
023:     71     ×
024:     81     ÷
025:   35 22  h  RTN

LBL 2:
026: 31 25 02  f LBL 2
027:     02     2
028:   35 52  h x≷y
029:   35 63  h  yˣ
030:   35 82  h LST x
031:   35 81  h  N!
032:     71     ×
033:   35 22  h  RTN

All you have to do…

Enter x Press A and then B
x!! is in the display.

You're welcome.