Subject: Re: Test
From: Mike Potanin (potanin@mccme.ru)
Date: Mon Dec 29 2003 - 11:44:09 MSK
On Sun, 28 Dec 2003, Sergei M. Abramov (home) wrote:
> День добрый, всем!
>
> К статье про компиляцию синт. отождествления я написал примерчик (приложена
> программа, исходник и EXE) -- функцию, которая проверяет, что ее аргумент
> имеет вид e.Y e.Y e.Y:
>
> IsTriplet eX = {
> eX : e.Y e.Y e.Y = True;
> = False;
> };
>
> В старом ДОС-рефале-плюс один шаг выполнения этой функции (при длине
> аргумента 49152) занимает (на моей машине) 74.26 секунд.
Странно. На Perl тоже самое отрабатывает мгновенно.
perl -e '$_ = ("a"x49152); print "true\n" if(/^(.*)\1\1$/);'
Вроде бы алгоритм сопоставления не может сильно отличаться.
This archive was generated by hypermail 2b25 : Mon Oct 25 2004 - 21:24:59 MSD