Anonymous user
Fractran: Difference between revisions
m
→Tacit version
m (→Tacit version) |
m (→Tacit version) |
||
Line 1,952:
".@:('1234567890r ' {~ '1234567890/ '&i.)@:[ ({~ (1 i.~ (= <.)))@:* ::]^:_ ]</lang>
Actually, most of the code above is there to comply with the task's requirement of a "''natural'' format." When J's format for fractions is used the FRACTAN verb becomes,
<lang j>FRACTAN=. ({~ (1 i.~ (= <.)))@:* ::]^:_</lang>
| |||