This is a small piece of User-RPL code that computes the last nonzero digit of the factorial of a natural number. Note that this code was developed independently and without knowledge of Scott Hemphill's solution which was posted to comp.sys.hp48 on September, 26, 2000 in the "MC: Factorials, zeros and such..." thread.

This code has been sitting in my HP48GX calculator's memory for over seventeen years, as I wrote it around the same time I started the comp.sys.hp48 thread "MC: Factorials, zeros and such..."

The code follows below -- It is 127.5 bytes with a CRC of # 8AE7h (On an HP48-G/GX-R -- the CRC will be different on other calculators) :

<< 1 WHILE SWAP { 1 1 2 6 4 2 2 4 2 8 4 4 8 4 6 3 8 6 8 2 } OVER 5 4 * MOD 1 + GET ROT * SWAP 5 / IP DUP REPEAT SWAP END DROP 1 ALOG MOD >>

The files included in this archive are listed below :