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