That's nice!
f=: 13 : ' (,.q:)}.+/\10^i.y'
f
[: (,. q:) [: }. [: +/\ 10 ^ i.
Linda
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of R.E. Boss
Sent: Friday, November 11, 2011 12:18 PM
To: 'Programming forum'
Subject: Re: [Jprogramming] 11:11:11 repunits
(,.q:)}.+/\10^i.19x
R.E. Boss
-----Oorspronkelijk bericht-----
Van: [email protected]
[mailto:[email protected]] Namens John Baker
Verzonden: vrijdag 11 november 2011 18:07
Aan: Programming forum
Onderwerp: [Jprogramming] 11:11:11 repunits
Today's date 11:11:11 is generating some interesting internet items. I saw
a cute blog posting about "repunits"
http://mathlesstraveled.com/2011/11/11/fun-with-repunit-divisors/
The following j expressions generate the table shown in the blog posting.
I couldn't come up with anything more elegant.
repunits=. 'x' ,~&.> (2 + i. 19) #&.> '1'
repunits ,. q:@". &.> repunits
--
John D. Baker
[email protected]
----------------------------------------------------------------------
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
