RosettaCodeData/Task/Fractran/J/fractran-3.j

2 lines
101 B
Plaintext

fractan=. (((({~ (1 i.~ (= <.)))@:* ::]^:)(`]))(".@:('1234567890r ' {~ '1234567890/ '&i.)@:[`))(`:6)