function benchmark(%times,%function,%a,%b,%c,%d,%e,%f,%g,%h,%i,%j,%k,%l,%m,%n,%o) { if(!isFunction(%function)) { warn("BENCHMARKING RESULT FOR" SPC %function @ ":" NL "Function does not exist."); return -1; } %start = getRealTime(); for(%i=0; %i < %times; %i++) { call(%function,%a,%b,%c,%d,%e,%f,%g,%h,%i,%j,%k,%l,%m,%n,%o); } %end = getRealTime(); %result = (%end-%start) / %times; warn("BENCHMARKING RESULT FOR" SPC %function @ ":" NL %result); return %result; }