f=: ; @: (*:&.".&.>) @: ": f 9 81 f f 9 641 f f f 9 36161
f^:(i.10) 9 |domain error | f^:(i.10)9 This last runs afoul because of f^:0]9 which has a numeric result and can not be mixed with the other f^:n]9. It can be fixed by preapplication of ": or by starting with '9', or by not doing f^:0 of course. f^:(i.10) ": 9 9 81 641 36161 9361361 8193619361 641819361819361 36161641819361641819361 93613613616164181936136161641819361 8193619361936136136161641819361936136136161641819361 On Mon, May 13, 2019 at 2:48 AM R.E. Boss <[email protected]> wrote: > Was wrong subject. My mailing is getting rusty too. > > > R.E. Boss > > > > -----Oorspronkelijk bericht----- > > Van: Programming <[email protected]> > > Namens R.E. Boss > > Verzonden: maandag 13 mei 2019 11:07 > > Aan: [email protected] > > Onderwerp: Re: [Jprogramming] JELM - Extreme Learning Machine in J > > > > It took me more time than expected to produce the sequence of numbers in > > J: > > > > (from Seqfan Mailing list - http://list.seqfan.eu/) > > > Beginning with a two-digit square, successively replace each digit > > > with its square, then repeat. > > > > > > For example, > > > 9 > > > 81 > > > 641 > > > 36161 > > > 9361361 > > > 8193619361 > > > 641819361819361 > > > 36161641819361641819361 > > > 93613613616164181936136161641819361 > > > > ((]#.~ 10x^10>:@<.@^.]) *:@(10&#.^:_1))^:(i.10)9 > > 9 81 641 36161 9361361 8193619361 641819361819361 > > 36161641819361641819361 93613613616164181936136161641819361 > > 8193619361936136136161641819361936136136161641819361 > > > > Curious about other, more elegant solutions, since my J is getting rusty. > > > > > > R.E. Boss > > ---------------------------------------------------------------------- > > For information about J forums see http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
