RPL Mini-Challenge: All Odd Digits?

[Gerald H]

A first suggestion:

Code:


« 1. SWAP →STR 0 8
  FOR i i →STR "0" SREPL
    IF
    THEN NIP 0. SWAP 10
    ELSE 2
    END
  STEP DROP
»

Time in seconds for 1000th repunit (worst case)

.13 sec

byte size of programme

84.5

giving a score of 10.95

Edit: As most 1000 digit numbers contain a zero, average score would be 5.2