Challenge - Keypad puzzle

[pinkman]

(02-14-2020 09:12 PM)John Keith Wrote:  Ah, now I understand. For completeness, here is my HP50 version. It requires the libraries ListExt, GoferLists, and Ifactor.

Code:


\<< { { 1 2 5 4 }
      { 2 3 6 5 }
      { 5 6 9 8 }
      { 4 5 8 7 } } \-> s
  \<< 1. 4.
    FOR j 0. 1.
      FOR k s j GET k 2. MOD { REV } IFT 1. 4.
        START DUP NL\->I IFACTOR LGRP SWAP LROLL
        NEXT DROP
      NEXT
    NEXT 32. \->LIST
    \<< Intersect
    \>> STREAM
  \>>
\>>

Nice!
I don’t have a 50g so I could not try this: instead of hard coding ‘32’, could’nt it be counted during the loops?