Functor and output files

[Mary Aranda Cabezas]

Hello

 

I have been trying to work with the functor, and I have taken an example that appears in the aid on line and I want to write the solution in a text file but this me has not been possible. It’s not possible to be done or I’m making something bad?

 

The code that I’m using is the following:

 

functor
import
   Open
   Explorer
   FD
define
   ArchivoSalida = 'Salida.txt'
   Root
   proc {EscribeArchivo Arc}
      H={New Open.file init(name:Arc flags:[write text create truncate])}
   in
      {H write(vs:Root)}
      {H close}
  
 end
 
   proc {Robert Root}
      D O N A L G E R B T
   in
      Root = sol(d:D o:O n:N a:A l:L g:G e:E r:R b:B t:T)
      Root:::0#9
      {FD.distinct Root}
      D \=: 0
      G \=: 0
      100000*D + 10000*O + 1000*N + 100*A + 10*L + D
      +            100000*G + 10000*E + 1000*R + 100*A + 10*L + D
      =:           100000*R + 10000*O + 1000*B + 100*E + 10*R + T
      {FD.distribute naive Root}
   end
   {Explorer.one.depth Robert}
   {EscribeArchivo ArchivoSalida}
end

 

Somebody can help me, please! 

Thanks!!

---

LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com

_________________________________________________________________________________
mozart-users mailing list                               
mozart-users@ps.uni-sb.de
http://www.mozart-oz.org/mailman/listinfo/mozart-users