program test1;

var i, l: longint;
const faszom: array[false..true] of longint = (58, 63);

begin
	for i := 0 to 1000000000 do
	begin
		l := faszom[round(random) and 1 <> 0];
	end;
end.

program test2;

var i, l: longint;

begin
	for i := 0 to 1000000000 do
	begin
		if (round(random) and 1 <> 0) then l := 63 else l := 58;
	end;
end.

root@Csabi:~/uasm# time ./test1

real    0m48.110s
user    0m48.110s
sys     0m0.000s
root@Csabi:~/uasm# time ./test2

real    0m49.930s
user    0m49.930s
sys     0m0.000s

#include <stdlib.h>

long int i, l;
const long int faszom[2] = {58, 63};

void main() {
    for (i = 0; i < 1000000000; i++) {
	l = faszom[rand() & 1 != 0];
    }
}

#include <stdlib.h>

long int i, l;

void main() {
    for (i = 0; i < 1000000000; i++) {
	l = rand() & 1 != 0 ? 63 : 58;
    }
}

kemi242@linuxmint ~ $ time ./test1

real	0m18.352s
user	0m18.344s
sys	0m0.004s
kemi242@linuxmint ~ $ time ./test2

real	0m17.864s
user	0m17.848s
sys	0m0.008s

@saxus:
Vagy nem, mert a kódban távolabb van -> nehezebb karbantartani.

@saxus:
Egyébként az érdekesség kedvéért: kimérnéd nekem, hogy csak tisztán a random függvénynek milyen a sebessége ennyi elemre mondjuk 5 külön futtatás során?

program test6;

var
	i: longint;
	e: extended;
begin
	for i := 0 to 1000000000 do
	begin
		e := random;
	end;
end.

root@Csabi:~/uasm# time ./test6

real    0m37.572s
user    0m36.510s
sys     0m0.000s
root@Csabi:~/uasm# time ./test6

real    0m37.709s
user    0m36.490s
sys     0m0.040s
root@Csabi:~/uasm# time ./test6

real    0m37.585s
user    0m36.520s
sys     0m0.000s
root@Csabi:~/uasm# time ./test6

real    0m38.196s
user    0m36.930s
sys     0m0.000s
root@Csabi:~/uasm# time ./test6

real    0m38.202s
user    0m36.900s
sys     0m0.030s
root@Csabi:~/uasm# time ./test6

real    0m37.529s
user    0m36.510s
sys     0m0.000s

root@Csabi:~/uasm# fpc -O3 ./test1.pas
Free Pascal Compiler version 2.6.2 [2013/03/17] for x86_64
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling ./test1.pas
test1.pas(3,8) Note: Local variable "l" is assigned but never used
Linking test1
/usr/bin/ld: warning: link.res contains output sections; did you forget -T?
10 lines compiled, 0.1 sec
1 note(s) issued
root@Csabi:~/uasm# strip --strip-all ./test1
root@Csabi:~/uasm# time ./test1

real    0m43.709s
user    0m42.320s
sys     0m0.010s
root@Csabi:~/uasm# fpc -O3 ./test2.pas
Free Pascal Compiler version 2.6.2 [2013/03/17] for x86_64
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling ./test2.pas
test2.pas(3,8) Note: Local variable "l" is assigned but never used
Linking test2
/usr/bin/ld: warning: link.res contains output sections; did you forget -T?
9 lines compiled, 0.1 sec
1 note(s) issued
root@Csabi:~/uasm# strip --strip-all ./test2
root@Csabi:~/uasm# time ./test2

real    0m50.013s
user    0m48.410s
sys     0m0.010s

@kemi:
C-ben lényegesen gyorsabb

@kemi:
de valóban úgy van, ahogy saxus mondja. Ha át akarod látni, netán módosítani akarod, mindig meg kell keresni annak a tömbnek a deklarációját.

@kemi:
Legközelebb hozok egy rendes cipőt lézerezéshez, mert még mindig qrwára fáj a lábam. :P

@Prometheus:
Mondanátok egy programot, amivel bármiféle videót le lehet szedni az Internetről, URL alapján?

@Prometheus:
HTC, hogy lehet RPG maker-ben átnevezni a menüparancsokat? Pl.: "skill", item"?

@Prometheus:
Kemi, megvan a program, de nem indul el semmi letöltés. :(

@Prometheus:
Kemi, megvan a program, de nem indul el semmi letöltés. :(