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

3 lines
141 B
Text
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
primes
((((({~ (1 i.~ (= <.)))@:* ::]^:)(`]))(".@:('1234567890r ' {~ '1234567890/ '&i.)@:[`))(`:6))((1 }. 2 ^. (#~ *./@:e.&2 0"1@:q:))@:)