No, it not correct what I sent. Here is tester:
U=: ('(' , [ , 'U' , ] , ')'"_)&.>
A=: 1 : 'u~/\&.|.'
U A <"0'dcba'
+-------------+---------+-----+-+
|(((dUc)Ub)Ua)|((cUb)Ua)|(bUa)|a|
+-------------+---------+-----+-+
So you can test different combinations
U/\.&.|. <"0'dcba'
+-+-----+---------+-------------+
|d|(cUd)|(bU(cUd))|(aU(bU(cUd)))|
+-+-----+---------+-------------+
U/\. <"0'dcba'
+-------------+---------+-----+-+
|(dU(cU(bUa)))|(cU(bUa))|(bUa)|a|
+-------------+---------+-----+-+
----- Original Message ----
From: Oleg Kobchenko <[EMAIL PROTECTED]>
To: Programming forum <[email protected]>
Sent: Thursday, June 15, 2006 2:37:31 PM
Subject: Re: [Jprogramming] Programming puzzle
It could be scan of reflected under reverse
A=: 1 : 'u~/\&.|.'
+A i.6
15 15 14 12 9 5
(0+15),(1+14),(2+12),(3+9),(4+5),5
15 15 14 12 9 5
-A i.6
_15 _13 _10 _6 _1 5
(0-15),(1-14),(2-12),(3-9),(4-5),5
_15 _13 _10 _6 _1 5
----- Original Message ----
From: Brian Schott <[EMAIL PROTECTED]>
To: Programming forum <[email protected]>
Sent: Thursday, June 15, 2006 2:20:04 PM
Subject: Re: [Jprogramming] Programming puzzle
Henry,
I am not sure I understand but ...
Your pattern
dUc cUb bUa aUx where x is an identity element or a zero
element, I am not sure of the terminology, looks like a
simple pattern handled by infix concept 2 U/\ ] applied to
the reverse of the list and then the result reversed.
But surely this is to simple.
(B=)
On Thu, 15 Jun 2006, Henry Rich wrote:
+ I have a list that ends ... d c b a .
+
+ I want to create a new list that ends
+
+ ...
+ d' = d U (c U (b U a) U a) U (b U a) U a = d U c'
+ c' = c U (b U a) U a = c U b'
+ b' = (b U a) = b U a'
+ a' = a
+
+ where U is some verb.
+
+ It seems that there should be some form of / \. etc. that
+ produces this, but I can't find it. Help!
+
+ Henry Rich
+
+ ----------------------------------------------------------------------
+ For information about J forums see http://www.jsoftware.com/forums.htm
+
(B=) <----------my "sig"
Brian Schott
Atlanta, GA, USA
schott DOT bee are eye eh en AT gee em ae eye el DOT com
http://schott.selfip.net/~brian/
----------------------------------------------------------------------
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
