Challenge - Keypad puzzle

[John Keith]

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
  \>>
\>>