Hello friends,
I have been using parallel search, but ozengine throws an exception I can not
even catch that, I use the following code:
functor
import
Search
Browser
Module
define
M Xs E X
MyFunctor=functor
import
FD
export Script
define
fun {Script}
proc {$ Row}
L1N ={MakeTuple c 200}
LM1N={MakeTuple c 200}
in
{FD.tuple queens 200 1#200 Row}
{For 1 200 1 proc {$ I}
L1N.I=I LM1N.I=~I
end}
{FD.distinct Row}
{FD.distinctOffset Row LM1N}
{FD.distinctOffset Row L1N}
{FD.distribute generic(value:mid) Row}
end
end
end
[M]={Module.apply [MyFunctor]}
try
E={New Search.parallel init(localhost:2)}
catch X then {Browser.browse '** '#X#' **'} end
Xs={E one(MyFunctor $)}
{Browser.browse Xs}
end
I am testing on Windows and have installed rsh service, I very much appreciate
your help, thanks
_________________________________________________________________________________
mozart-users mailing list
[email protected]
http://www.mozart-oz.org/mailman/listinfo/mozart-users
