Re: Spiraling integers


No such thing as a small change
	PerlMonks

Re: Spiraling integers

by ambrus (Abbot)

Log in
Create a new user
The Monastery Gates
Seekers of Perl Wisdom
Meditations
Cool Uses For Perl
Obfuscation
Tutorials
Poetry
Illuminations
Reviews
Perl News
Donate
Recent Threads
Newest Nodes
Super Search
PerlMonks Discussion
What's New

on Sep 10, 2005 at 21:40 UTC ( [id://490939]=note: print w/replies, xml )

Need Help??

in reply to Spiraling integers

Yet another J solution. This one has two functions that mutually recursively build the spiral. This one too accepts the size of the spiral as argument.

spiralh =: (,:@i. , ] + [: |:@|. spirals) ` ((1 0$0)"_) @. (<:&0)
spirals =: ,:@i. , ] + [: |:@|. [: spiralh <:
spiral =: ([: >: spirals)"0
2!:55[0[ 1!:2&2 spiral 5".>{: ARGV
[download]

This is getting addictive, isn't it?