RosettaCodeData/Task/Fractran/J/fractran-3.j
2023-07-01 13:44:08 -04:00

1 line
102 B
Text

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