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

3 lines
90 B
Plaintext

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