Actually you are right. It could be done better this way:

#macro Randomize()
  #if(file_exists("seed.dat"))
    #fopen ifile "seed.dat" read
    #read(ifile,R)
    #fclose ifile
  #else
    #local R=0;
  #end
  #declare Seed=seed(R);
  #fopen ofile "seed.dat" write
  #write(ofile,R+1)
  #fclose ofile
#end

  To use it, call it at the beginning of the file:

Randomize()

and the use rand(Seed) where needed.

-- 
main(i,_){for(_?--i,main(i+2,"FhhQHFIJD|FQTITFN]zRFHhhTBFHhhTBFysdB"[i]
):5;i&&_>1;printf("%s",_-70?_&1?"[]":" ":(_=0,"\n")),_/=2);} /*- Warp -*/

Post a reply to this message