Esthetic numbers: Difference between revisions

m
J: eliminate useless rank specification
m (J: eliminate useless rank specification)
Line 3,053:
 
<lang J>graph=: </./|:0 1,10 10#:(#~ isesthetic)10+i.90
next=: [:; (0 10#.],.graph {::"0 1~10|])each
 
next^:3]1
6,951

edits