NO! Zsbán,
I've been enjoying your work that I never saw in the past.
spiral2h =: (,:@i. , ] + [: |:@|. spiral2s) ` ((1 0$0)"_) @. (<:&0)
spal2s =: ,:@i. , ] + [: |:@|. [: spiral2h <:
spiral2 =: ((*: - spiral2s)"0)
spiral2 9
81 80 79 78 77 76 75 74 73
50 49 48 47 46 45 44 43 72
51 26 25 24 23 22 21 42 71
52 27 10 9 8 7 20 41 70
53 28 11 2 1 6 19 40 69
54 29 12 3 4 5 18 39 68
55 30 13 14 15 16 17 38 67
56 31 32 33 34 35 36 37 66
57 58 59 60 61 62 63 64 65
+/ (~.@:(<"1)@:(,.~,],.|.)@:i. { spiral1) 9
537
However,
S=:1 3 5 7 9 13 17 21 25 31 37 43 49 57 65 73 81
1,(($S)$0 1)#S
1 3 7 13 21 31 43 57 73
+/1,(($S)$0 1)#S
249
(($S)$1 0)#S
1 5 9 17 25 37 49 65 81
+/(($S)$1 0)#S
289
(+/1,(($S)$0 1)#S)++/(($S)$1 0)#S
538
The sum of an odd number of odds is odd.
The sum of two sets of odd numbers of odds is even.
Just a little picky aside, while I try to understand spiral2 !
Linda
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Zsbán Ambrus
Sent: Monday, March 25, 2013 3:49 PM
To: [email protected]
Subject: Re: [Jprogramming] Iteration of Power
On 3/25/13, Raul Miller <[email protected]> wrote:
> Other people have already answered. But, curiously, I have not seen
> any tacit implementations yet.
Have I turned invisible or something?
Ambrus
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
