Форумы » Наука и техника » Компьютерный » Программирование » Мерянье пи... э... попугаями. Быстродействие языков.
[image]

Мерянье пи... э... попугаями. Быстродействие языков.

Теги:программирование, компьютеры, техника
 
Новый опрос Новый фотосет Новая тема Написать сообщение в тему
1 2
RU Balancer #26.07.2003 14:46
+
-
edit
 

Balancer

администратор
★★★★★
Mishka>Кстати, здесь сразу видны накладные расходы на чисто стековую архитектуру - нет неразрушающих операций - отсюда dup многократно.


Опять же, беда Форта. Ввести CODE-блок с неразрушающим сравнением - 5 минут :) Из-за чего ничего подобного в стандарте и не предусматривают. Что-то типа (вариант для SPF4)

[/span]
CODE
Created with colorer-take5 library. Type 'forth'  CODE DUP= [color=#696969; ]( x1 x2 — x1 flag )[/color] [color=#696969; ]\ flag "истина" тогда и только тогда, когда x1 побитно равен x2.[/color]      XOR  EAX, [EBP]      SUB  EAX, # [color=#008c00; ]1[/color]      SBB  EAX, EAX       RET END-CODE 
[span class='postcolor']

И всё :) И уже нет потерь на DUP'ы в сравнениях...
Эх, хороший бы ещё оптимизатор поверх всего этого... :)
   
RU Balancer #13.08.2003 22:17
+
-
edit
 

Balancer

администратор
★★★★★
Ну, вот. Прислали мне решение для SP-Forth'а

Gjkexbkjcm - 2.4сек. на SPF Version 4.00 Build 009 at 10.Nov.2002
(Напомню: PIII-1200, 512RAM
VC7 - 2.6, O'Caml - 2.1сек.)

Поскольку тут время уже может зависеть от стартап-процедур, решил посчитать побольше, благо и памяти у меня теперь побольше стало - ackr(3,8,9).

O'Caml - 19сек.
SPF4 - 21сек.
VC7 - 24сек.
asm - 26сек.
C# - 27сек.
   
RU Lerm #14.08.2003 00:13
+
-
edit
 

Lerm

втянувшийся
=KRoN=, 25.11.2002 04:48:00:
Если кто-то для теста сгенерит консольный .class для функции Аккермана для 3,8,8 - я прогоню его у себя и скажу, сколько времени он будет работать
 

Ну вот, лобовое переложение программы с C на Java:

public class Acker [color=#800080; ]{[/color]   static [color=#008484; ]int[/color] a[color=#808030; ]([/color][color=#008484; ]int[/color] n[color=#808030; ],[/color] [color=#008484; ]int[/color] x[color=#808030; ],[/color] [color=#008484; ]int[/color] y[color=#808030; ])[/color]   [color=#800080; ]{[/color]     if[color=#808030; ]([/color]n[color=#808030; ]=[/color][color=#808030; ]=[/color][color=#008c00; ]0[/color][color=#808030; ])[/color]         return x[color=#808030; ]+[/color][color=#008c00; ]1[/color][color=#800080; ];[/color]     if[color=#808030; ]([/color]y[color=#808030; ]>[/color][color=#008c00; ]0[/color][color=#808030; ])[/color]         return a[color=#808030; ]([/color]n[color=#808030; ]-[/color][color=#008c00; ]1[/color][color=#808030; ],[/color]a[color=#808030; ]([/color]n[color=#808030; ],[/color]x[color=#808030; ],[/color]y[color=#808030; ]-[/color][color=#008c00; ]1[/color][color=#808030; ])[/color][color=#808030; ],[/color]x[color=#808030; ])[/color][color=#800080; ];[/color]     switch[color=#808030; ]([/color]n[color=#808030; ])[/color]     [color=#800080; ]{[/color]          case [color=#008c00; ]1[/color][color=#808030; ]:[/color]  return x[color=#800080; ];[/color]         case [color=#008c00; ]2[/color][color=#808030; ]:[/color]  return [color=#008c00; ]0[/color][color=#800080; ];[/color]         case [color=#008c00; ]3[/color][color=#808030; ]:[/color]  return [color=#008c00; ]1[/color][color=#800080; ];[/color]     [color=#800080; ]}[/color]     return [color=#008c00; ]2[/color][color=#800080; ];[/color]   [color=#800080; ]}[/color]   public static [color=#008484; ]void[/color] main[color=#808030; ]([/color][color=#008484; ]String[/color][color=#808030; ][[/color][color=#808030; ]][/color] args[color=#808030; ])[/color]   [color=#800080; ]{[/color]     [color=#008484; ]System[/color][color=#808030; ].[/color]out[color=#808030; ].[/color]println[color=#808030; ]([/color]a[color=#808030; ]([/color][color=#008c00; ]3[/color][color=#808030; ],[/color][color=#008c00; ]8[/color][color=#808030; ],[/color][color=#008c00; ]8[/color][color=#808030; ])[/color][color=#808030; ])[/color][color=#800080; ];[/color]   [color=#800080; ]}[/color] [color=#800080; ]}[/color]
Created with colorer-take5 library. Type 'java'
Прикреплённые файлы:
Acker.class (скачать) [544 Б]
 
 
   
Это сообщение редактировалось 16.12.2003 в 16:12
RU Balancer #14.08.2003 11:39
+
-
edit
 

Balancer

администратор
★★★★★
Спасиб, но для Java я давно уж поставил себе jdk и сам скомпилил. Только не написал в этот топик. Но, вот стека не хватает, а как указать размер стека мегабайт в 400 - не знаю
   
?? Lerm #14.08.2003 13:31
+
-
edit
 

Lerm

втянувшийся
Balancer, 14.08.2003 10:39:33:
Спасиб, но для Java я давно уж поставил себе jdk и сам скомпилил. Только не написал в этот топик. Но, вот стека не хватает, а как указать размер стека мегабайт в 400 - не знаю
 

-Xss400M
   
RU Balancer #14.08.2003 14:08
+
-
edit
 

Balancer

администратор
★★★★★
Не вышло. При 400М говорит, что не может столько памяти выделить (гонит) при 200М - падает с ошибкой java.exe, при 150М - памяти не хватает.
   
RU trainer #14.02.2004 14:16
+
-
edit
 

trainer

опытный

А если на MSVC в таком виде?
[QUOTE]#include <stdio.h>
//-----------------------------------------------------------------
int __fastcall a(register int n, register int x, register int y) {
   return n?(y?a(n-1,a(n,x,y-1),x):(n==1)?x:((n>3)?2:(n-2))):(x+1);
}
//-----------------------------------------------------------------
int main(int argc, char* argv[]) {
   int result = a(3,8,8);
   printf("%d\n",result);
   return 0;
}
//-----------------------------------------------------------------
[/QUOTE]У меня на Celeron 566/RAM 192MB MSVC6+IntelCPP6 дает 11 секунд. Тогда как Ваш вариант - 21 секунду.
P.S. Не ради мерянья, просто интересно.
   
?? Balancer #14.02.2004 16:00
+
-
edit
 

Balancer

администратор
★★★★★
trainer, 14.02.2004 14:16:12:
А если на MSVC в таком виде?
 

3.7 сек против 2.9 у O'Caml (цифры немного иные, чем раньше, потому что система поменялась, например, разгон снял из-за перегрева в LockOn).

Кроме того, опять повторюсь на тему синатксиса.
[color=#808030; ]let[/color] rec a n x y [color=#808030; ]=[/color]     match [color=#808030; ]([/color]n[color=#808030; ],[/color] y[color=#808030; ])[/color] with         [color=#808030; ]([/color][color=#008c00; ]0[/color][color=#808030; ],[/color] y[color=#808030; ])[/color] [color=#808030; ]->[/color] x[color=#808030; ]+[/color][color=#008c00; ]1[/color]       [color=#808030; ]|[/color] [color=#808030; ]([/color][color=#008c00; ]1[/color][color=#808030; ],[/color] [color=#008c00; ]0[/color][color=#808030; ])[/color] [color=#808030; ]->[/color] x       [color=#808030; ]|[/color] [color=#808030; ]([/color][color=#008c00; ]2[/color][color=#808030; ],[/color] [color=#008c00; ]0[/color][color=#808030; ])[/color] [color=#808030; ]->[/color] [color=#008c00; ]0[/color]       [color=#808030; ]|[/color] [color=#808030; ]([/color][color=#008c00; ]3[/color][color=#808030; ],[/color] [color=#008c00; ]0[/color][color=#808030; ])[/color] [color=#808030; ]->[/color] [color=#008c00; ]1[/color]       [color=#808030; ]|[/color] [color=#808030; ]([/color]n[color=#808030; ],[/color] [color=#008c00; ]0[/color][color=#808030; ])[/color] [color=#808030; ]->[/color] [color=#008c00; ]2[/color]       [color=#808030; ]|[/color] [color=#808030; ]([/color]n[color=#808030; ],[/color] y[color=#808030; ])[/color] [color=#808030; ]->[/color] [color=#808030; ]([/color]a [color=#808030; ]([/color]n[color=#808030; ]-[/color][color=#008c00; ]1[/color][color=#808030; ])[/color] [color=#808030; ]([/color]a n x [color=#808030; ]([/color]y[color=#808030; ]-[/color][color=#008c00; ]1[/color][color=#808030; ])[/color][color=#808030; ])[/color] x[color=#808030; ])[/color]     [color=#808030; ];[/color][color=#808030; ];[/color] print[color=#808030; ]_[/color]int[color=#808030; ]([/color]a [color=#008c00; ]3[/color] [color=#008c00; ]8[/color] [color=#008c00; ]8[/color][color=#808030; ])[/color][color=#808030; ];[/color]
Created with colorer-take5 library. Type 'sml'


Так оно гораздо нагляднее, чем на Си
   
?? Balancer #14.02.2004 16:03
+
-
edit
 

Balancer

администратор
★★★★★
trainer, 14.02.2004 14:16:12:
дает 11 секунд. Тогда как Ваш вариант - 21 секунду.
 

Я так понимаю, что мой вариант ты компилил без ключей регистровой оптимизации. Т.к. у меня мой вариант выдаёт 3.8сек. 0.1 секунду можно списать на погрешности измерения (хотя я делал по 5 запусков и брал лучший результат).

cl /Ox /O2 /F327680000 /Fa /FAsc /G6 /Gr ackerman.c
   
RU Jameson #01.03.2004 05:29
+
-
edit
 

Jameson

опытный

Пытался тут заценить быстродействие проги в Дельфи 7, и потом в Дельфи 8 NET
До 8 еще не дошел, т.к., похоже, неправильно перевел на дельфи прогу, скажите, она должна выдать 0? дело в том, что вы тут пишете про огромные значения стека, а у меня 16мегабайт хватило. Может, дело в размере int, какого он размера? Когда я делал integer, а в дельфи 7 оно 32 бита, то максимального стека не хватало.. Сделал smallint, там 2 байта. И время выполнения - 0 получаеться. Как бы поточнее его измерить? А то с атлоном 2100+ похоже, сильно быстро получается.
   
US Rada #01.03.2004 06:15
+
-
edit
 

Rada

опытный
☆
2 Jameson: используешь GetTickCount() небось? Для очень маленьких интервалов используй QueryPerformaneCounter и QueryPerformanceFrequency. За описанием смотри в http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/queryperformancecounter.asp.
   
RU Jameson #01.03.2004 09:51
+
-
edit
 

Jameson

опытный

И под NET тоже? :unsure:
   
US Rada #01.03.2004 10:10
+
-
edit
 

Rada

опытный
☆
2 Jameson: как импортировать функции из ядра прямо в .NET (C#, VB.NET) смотри http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dncfhowto/html/uperfcoun.asp.
   
?? Balancer #01.03.2004 10:27
+
-
edit
 

Balancer

администратор
★★★★★
Jameson, 01.03.2004 05:29:43 :
скажите, она должна выдать 0?
 


ackr(3,8,8)=16777216

>дело в том, что вы тут пишете про огромные значения стека, а у меня 16мегабайт хватило.

Никак не хватит :)

>Может, дело в размере int, какого он размера?

Меньше, чем в 32 бита число не влезет.

>Когда я делал integer, а в дельфи 7 оно 32 бита, то максимального стека не хватало.. Сделал smallint, там 2 байта.

В какой-то момент он переполняется и обнуляется. А дальше уже и стека не нужно :)

>И время выполнения - 0 получаеться. Как бы поточнее его измерить? А то с атлоном 2100+ похоже, сильно быстро получается.

Ну, на цифры смотри выше :) И для 3,8,9 в т.ч.
   
RU Jameson #01.03.2004 17:32
+
-
edit
 

Jameson

опытный

Вот черт, похоже, обламываюсь, и в дельфи 8 не сделать стек больше 16 мегабайт..
   
?? Balancer #01.03.2004 17:38
+
-
edit
 

Balancer

администратор
★★★★★
Jameson, 01.03.2004 17:32:51 :
Вот черт, похоже, обламываюсь, и в дельфи 8 не сделать стек больше 16 мегабайт..
 


Попробуй ручками в EXE-шнике:
Обычные смещения - 0x0e0 (Reserve) и 0x0e4 (Commit).

На C# это
000000E0: 00 00 00 18│00 10 00 00

По умолчанию бывает
Stack Reserve Size Always 0x100000 (1Mb)
Stack Commit Size Always 0x1000 (4Kb)
   
RU Jameson #01.03.2004 17:57
+
-
edit
 

Jameson

опытный

У меня там нули.. :blink: А нет ли утилитки, чтобы определять отличие двух файлов, и смещение выдавать?
   
?? Balancer #01.03.2004 17:58
+
-
edit
 

Balancer

администратор
★★★★★
Jameson, 01.03.2004 17:57:08 :
У меня там нули.. :blink:
 


Гм. Быть того не может :)

>А нет ли утилитки, чтобы определять отличие двух файлов, и смещение выдавать?

>fc /?
Compares two files or sets of files and displays the differences between
them


FC [/A] [/C] [/L] [/LBn] [/N] [/OFF[LINE]] [/T] [/U] [/W] [/nnnn]
   [drive1:][path1]filename1 [drive2:][path2]filename2
FC /B [drive1:][path1]filename1 [drive2:][path2]filename2

  /A         Displays only first and last lines for each set of differences.
  /B         Performs a binary comparison.
  /C         Disregards the case of letters.
  /L         Compares files as ASCII text.
  /LBn       Sets the maximum consecutive mismatches to the specified
             number of lines.
  /N         Displays the line numbers on an ASCII comparison.
  /OFF[LINE] Do not skip files with offline attribute set.
  /T         Does not expand tabs to spaces.
  /U         Compare files as UNICODE text files.
  /W         Compresses white space (tabs and spaces) for comparison.
  /nnnn      Specifies the number of consecutive lines that must match
             after a mismatch.
  [drive1:][path1]filename1
             Specifies the first file or set of files to compare.
  [drive2:][path2]filename2
             Specifies the second file or set of files to compare.


:)

Т.е. тебе fc /b надо
   
?? sibnick #09.09.2004 13:48  @Balancer#14.08.2003 14:08
+
-
edit
 

sibnick

новичок
Balancer>Не вышло. При 400М говорит, что не может столько памяти выделить (гонит) при 200М - падает с ошибкой java.exe, при 150М - памяти не хватает.[»]

Не совсем гонит :)
На каждый тред резервируется эта память. Поскольку там при старте сразу несколько тредов поднимается то 400Мб сразу отваливается по нехватке памяти. Скорее всего за 2Гига уходит. Другой прикол в том что этот параметр похоже не влияет на тред в котором маин исполняется :) Он всегда исполняется с дефолтным значением. Поэтому нужно писать что-то типа:

public class Acker
{
  static int a(int n, int x, int y)
  {
    if(n==0)
        return x+1;

    if(y>0)
        return a(n-1,a(n,x,y-1),x);

    switch(n)
    { 
        case 1:  return x;
        case 2:  return 0;
        case 3:  return 1;
    }

    return 2;
  }

  public static void main(String[] args)
  { 
	Runnable r = new Runnable(){
	public void run(){
    		System.out.println(a(3,8,8));
     	        System.exit(0);  
		}
	};
	(new Thread(r)).start();
  }
}


Плюс в разных версиях явы скорость сильно отличается. Санавская ява идет в двух версиях: серверной и клиентской. Серверная у меня в три раза быстрее работает и памяти на стэки меньше просит.
Запускать так:
java -client -Xss150M -cp . Acker (-client дефолтный можно и не указывать)
или
java -server -Xss40M -cp . Acker
   
Это сообщение редактировалось 09.09.2004 в 14:02
RU Balancer #09.09.2004 14:04
+
-
edit
 

Balancer

администратор
★★★★★
Ок, попробую. Что же до скорости - то на JRE с их сайта на числах Фибоначчи получилась вполне приличная скорость, сопоставимая с нативным кодом. См. результаты то ли в этом, то ли в каком-то параллельном топике.
   
1 2

в начало страницы | новое
Форумы » Наука и техника » Компьютерный » Программирование » Мерянье пи... э... попугаями. Быстродействие языков.
Copyright © Balancer 1997..2025
Создано 31.10.2002
Связь с владельцами и администрацией сайта: anonisimov@gmail.com, rwasp1957@yandex.ru и admin@balancer.ru.
 
Поиск
Настройки






Твиттер сайта
Статистика
Рейтинг@Mail.ru
АвиаТОП
 
Яндекс.Метрика
website counter
 
free counters