Esthetic numbers: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
m (J: eliminate useless rank specification) |
||
Line 3,053: | Line 3,053: | ||
<lang J>graph=: </./|:0 1,10 10#:(#~ isesthetic)10+i.90 |
<lang J>graph=: </./|:0 1,10 10#:(#~ isesthetic)10+i.90 |
||
next=: [:; (0 10#.],.graph {:: |
next=: [:; (0 10#.],.graph {::~10|])each |
||
next^:3]1 |
next^:3]1 |