OpenEuphoria

Re: New Peu Site and awaiting CVS

• Posted by Irv Mullins <irv at take.maxleft.com> Nov 20, 2002
• 400 views

On Tuesday 19 November 2002 09:27 pm, you wrote:
>
> Lucius is hosting the new Peu web site here:
>
> http://peu.unkmar.com

Wow! I just downloaded this, compiled for Linux (about 5 seconds) and 
it works. Really, really fast.  On the test (below) it gives:

  Euphoria: 1.88 seconds
  Peu:  0.02 seconds

Thanks for the hard work.
Regards,
Irv


atom start, stop

start = time()

constant
verse =
{"%d %s of beer on the wall,",
 "%d %s of beer",
 "take one down, drink it down,",
 "%d %s of beer on the wall\n"},
bottles = "bottle"

for i = 1 to 10 do
for beers = 99 to 1 by -1 do
  for line = 1 to 4 do
     printf(1,verse[line]&'\n',
        {beers-(line=4),
         bottles & (beers-(line=4) != 1) *'s'})
  end for
end for
end for

stop = time()
printf(1,"Elapsed time: %f",stop-start)