Return to Answer

deleted 2 characters in body

edited Jun 12, 2021 at 3:41

J, 5352 bytes

load 'plot' f=.:[:plot[:;/@|(}:2]\;}.)(2&|{-:,1+*&3)^:(>&1)^:a:

Wasn't sure if loading the graphics lib counted towards byte count, so I included it.

Here's an image of calling f 27 in the J console:

load 'plot' f=.[:plot[:;/@|:2]\(2&|{-:,1+*&3)^:(>&1)^:a:

Wasn't sure if loading the graphics lib counted towards byte, so I included it.

Here's an image of calling f 27 in the J console:

load 'plot' f=:[:plot[:(}:;}.)(2&|{-:,1+*&3)^:(>&1)^:a:

Wasn't sure if loading the graphics lib counted towards byte count, so I included it.

Here's an image of calling f 27 in the J console:

answered Jun 12, 2021 at 3:35

load 'plot' f=.[:plot[:;/@|:2]\(2&|{-:,1+*&3)^:(>&1)^:a:

Wasn't sure if loading the graphics lib counted towards byte, so I included it.

Here's an image of calling f 27 in the J console: