Well Dave, I finally wrote and explicit definition for the last atop.
comb '135'
┌┬─┬─┬──┬─┬──┬──┬───┐
││5│3│35│1│15│13│135│
└┴─┴─┴──┴─┴──┴──┴───┘
combe=: 13 :'y ([:<#)"1~ #: i. 2 ^ # y'
combe '135'
┌┬─┬─┬──┬─┬──┬──┬───┐
││5│3│35│1│15│13│135│
└┴─┴─┴──┴─┴──┴──┴───┘
Linda
-----Original Message-----
From: Programming <[email protected]> On Behalf Of Linda
Alvord
Sent: Sunday, March 10, 2019 11:34 AM
To: [email protected]
Subject: Re: [Jprogramming] new tasks at rosettacode.org
Hi Dave,
Two @;@'s down. One to go.
fe=: 13 :'\:~_".;({~ [:perm#)L:_1 }.comb y'
(fe '135')-:f '135'
1
f
[: \:~ _ ". [: ; [: ({~ perm@#)L:_1 }.@comb
fe
[: \:~ _ ". [: ; [: ({~ ([: perm #))L:_1 [: }. comb
My native language is explicit.
Linda
-----Original Message-----
From: Programming <[email protected]> On Behalf Of Linda
Alvord
Sent: Tuesday, March 5, 2019 9:22 AM
To: [email protected]
Subject: Re: [Jprogramming] new tasks at rosettacode.org
Hi Dave,
Beautiful J and only 3 @'s!
Linda
'
Sent from my Verizon, Samsung Galaxy smartphone
-------- Original message --------
From: David Lambert <[email protected]>
Date: 3/5/19 8:06 AM (GMT-05:00)
To: programming <[email protected]>
Subject: [Jprogramming] new tasks at rosettacode.org
I submitted entries to many newly seen by me rosetta code tasks. There was some
low hanging fruit, such as involving totients.
There is a stretch goal for
https://nam02.safelinks.protection.outlook.com/?url=http%3A%2F%2Frosettacode.org%2Fwiki%2FLargest_number_divisible_by_its_digits&data=02%7C01%7C%7C929ae6584b05476b9a2908d6a56dc88c%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636878288266600700&sdata=cJ8K8N%2Bt9OTsGLgLNNZKVCtCjPvZv%2FrNKJ6whHk4Hg0%3D&reserved=0
to work in base 16. I solved the problem in base 7 instead to show how it
might be done without bothering to figure out if I had the resources for all
permutations of all combinations of fifteen digits. 0 isn't one of the digits.
Enjoy, Dave
----------------------------------------------------------------------
For information about J forums see
https://nam02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.jsoftware.com%2Fforums.htm&data=02%7C01%7C%7C929ae6584b05476b9a2908d6a56dc88c%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636878288266600700&sdata=zB%2Bfc%2B1H5Nq7B%2Bpk%2FAdzkNHR2%2FuklLQj4jvtRvzHPWM%3D&reserved=0
----------------------------------------------------------------------
For information about J forums see
https://nam02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.jsoftware.com%2Fforums.htm&data=02%7C01%7C%7C929ae6584b05476b9a2908d6a56dc88c%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636878288266600700&sdata=zB%2Bfc%2B1H5Nq7B%2Bpk%2FAdzkNHR2%2FuklLQj4jvtRvzHPWM%3D&reserved=0
----------------------------------------------------------------------
For information about J forums see
https://nam02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.jsoftware.com%2Fforums.htm&data=02%7C01%7C%7C929ae6584b05476b9a2908d6a56dc88c%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636878288266600700&sdata=zB%2Bfc%2B1H5Nq7B%2Bpk%2FAdzkNHR2%2FuklLQj4jvtRvzHPWM%3D&reserved=0
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
