OpenEuphoria

Re: ooeu [was Re: Proposal for math.e (2007-08-23)]

• Posted by don cole <doncole at pacbell.?e?> Aug 31, 2007
• 748 views

Kat wrote:
> 
<SNIP>
>   
>   while sequence(in) do
>         while match({in[length(in)]},{10,13}) do
>           in = in[1..length(in)-1]
>         end while
>   	file[count] = in
>   	count += 1
>   	if remainder(count, 100000) = 0 then
>   		printf(1, "%15d %g\n", {count, time() - t})
>   		t = time()
>   	end if
>   	in = gets(fin)
>   end while
>   close(fin)
<SNIP>

Hello Kat,

Nice to see you back.

  Not nitpick, (now I proceed to nitpick).

 Since version 2.4 You could change this to:

while sequence(in) do
        while match({in[$]},{10,13}) do
           in = in[$-1]
         end while
   	file[count] = in
   	count += 1
   	if remainder(count, 100000) = 0 then
   		printf(1, "%15d %g\n", {count, time() - t})
   		t = time()
   	end if
   	in = gets(fin)
   end while
   close(fin)

Don Cole