% $Id: RemoteFunTest.oz,v 1.1 2010/04/02 14:44:20 leavens Exp leavens $ \insert 'TestingNoStop.oz' \insert 'RemoteFun.oz' % Execution that will keep both cores busy declare fun {Fibo N} if N<2 then 1 else {Fibo N-1}+{Fibo N-2} end end RemoteFibo={RemoteFun Fibo} local SIZE=37 N = {Fibo SIZE} in {Delay 5000} {Show starting} {Test thread {RemoteFibo SIZE} end + thread {Fibo SIZE} end '==' 2*N} end