H=: [: <./@, [ (*/@x:@] %^:(1<]) [: */@,"2 [: [EMAIL PROTECTED]: 0 1 +/~ ] #~
(e.
<:)@] *. -:@[ < ]) i.@>:&.(p:^:_1) ([ ^ x:@<[EMAIL PROTECTED]) ]
Or, since that will probably wrap:
H=:''1 :(0 :0-.LF)
[: <./@,
[ (*/@x:@] %^:(1<])
[: */@,"2
[: [EMAIL PROTECTED]:
0 1 +/~
] #~
(e. <:)@] *.
-:@[ <
])
i.@>:&.(p:^:_1) ([ ^ <[EMAIL PROTECTED])
]
)
I believe this is correct -- I believe I have eliminated
all false assumptions from this implementation.
This verb returns 1 for no-solution cases.
--
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
