Here are a couple more methods:
z0 =: [: +/\^:_1 (-:>:%:5) <.@:%~ 2 + i.
g =. (- $:^:2@:<:)^:*"0 M.
z1 =: [: +/\^:_1 g @:>:@:i. f.
(z0-:z1) 100
1
These were inspired by the Hofstadter G-sequence. See:
http://www.research.att.com/~njas/sequences/A005206
-Dan
--
View this message in context:
http://www.nabble.com/How-to-behead-included--tf4778131s24193.html#a13730405
Sent from the J Programming mailing list archive at Nabble.com.
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
