HHC 2015 RPN programming Contest is now open

[Egan Ford]

All stack, 58 bytes (yeah, not even close to my last attempt (42 bytes), but just a different way to solve that none have posted, unless I missed it)

Code:


  1 LBL RR                  
  2 5           ; loop over 5 dice
  3 1
  4 LBL 00
  5 RCL IND Y   ; map to prime number
  6 X^2         ; x^2 - x + 11, x = 0-10 prime
  7 LASTx
  8 -
  9 11
 10 +
 11 *           ; multiply primes
 12 DSE Y
 13 GTO 00
 14 ENTER
 15 ENTER
 16 ENTER
 17 55913       ; check for 1,2,3,4
 18 MOD
 19 X=0?
 20 GTO 01
 21 Rv
 22 157573      ; check for 2,3,4,5
 23 MOD
 24 X=0?
 25 GTO 01
 26 Rv
 27 496961      ; check for 3,4,5,6
 28 MOD
 29 LBL 01
 30 END