declare
fun {Criba Xs Zs As}
case Zs
of nil then As
[]Z|Zr then Ys={Filter Xs fun {$ Y} Y mod Z \= 0
end} in
{Criba Ys Zr Ys} end
end
fun {Genera N Limit}
if N<Limit then
N|{Genera N+2 Limit}
else nil end
end
declare
local Xs Ys Zs in
Zs={Pickle.load "http://10.1.2.209/primos10.pri"}
Xs={Genera 524289 1048576}
Ys={Criba Xs Zs nil}
{Pickle.save Ys
"http://10.1.2.209/~primos/primo20.pri"}
%{Browse Ys}
end
"http://10.1.2.209/~primos/*.*"; is the internal
address of the server in the Pereira Technological
University, this code works when I have the files in
the same machine in that i am running the program, but
i am going to try throw intranet and it does not work,
the server machine is apache in Linux operating system
and the client machine is in Windows 2000.
I need to know if i have something wrong in the source
code or if is the URL or something else
P.S. the external IP address is 63.74.31.2
__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam
¡gratis!
Regístrate ya - http://correo.espanol.yahoo.com/
__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.espanol.yahoo.com/
primos10.pri
Description: 520350373-primos10.pri
_________________________________________________________________________________ mozart-users mailing list [email protected] http://www.mozart-oz.org/mailman/listinfo/mozart-users
