Quiet Week-end Challenge (49G?) - Closed

[Gilles]

EDIT v2

Slow and trivial but this returns the 377 first results (far below 5,789,854 (*)) in a few minutes with the emulator

EDIT : 728 solutions with a 0 to 14 loop...

HP50G + Gofer List

Code:

«
 {}
 0 12 FOR A
  0 12 FOR B
   0 12 FOR C
    0 12 FOR D
     A B C D 4. ->LIST SORT  
     DUP2 IF POS NOT THEN 1. ->LIST + ELSE DROP END
     A   1. DISP
     MEM 2. DISP
    2 STEP
   2 STEP
  2 STEP
 2 STEP 

 DUP 1. «1 ADD» DOSUBS

 1. «SQ ΣLIST» DOSUBS 
 SWAP
 1. «SQ ΣLIST» DOSUBS  

 DUP2 Intersect Nub
 UNROT ->STR SWAP ->STR
 
 -> Even Odd
 «
  1. «  " " SWAP + " " +  Even OVER " " SREPL NIP SWAP Odd SWAP " " SREPL NIP * » DOSUBS
  ΣLIST
 »
»