AutoHotkey Community

Code: Select all

SetBatchLines, -1
myclass.compare()
return

class myclass {
	compare() {
		iterations := 50 *1000
		a := ""
		Sleep 1
		st := A_TickCount
		loop, % iterations
			{
				a .= "c"
			}
		t1 := ( a_tickcount - st)

		this.a := ""
		Sleep 1
		st := A_TickCount
		loop, % iterations
			{
				this.a .= "c"
			}
		t2 := a_tickcount - st
		MsgBox, % ("1st approach:`t" t1  "`n2nd approach:`t" t2
			. "`nDelta is " (delta := t2-t1) "ms = " Round(delta/Min(t1,t2)*100, 1) "% (" (delta>0?"1st":"2nd") " is faster)`n`n" StrLen(a) "`n" StrLen(this.a))

		this.a := a := ""
	}
}

F11::Reload
F12::ExitApp

Code: Select all

SetBatchLines, -1
compare()
return

compare() {
	iterations := 5000 *1000
	VarSetCapacity(a, 2*iterations)
	Sleep 1
	st := A_TickCount
	loop, % iterations
		{
			a .= "c"
		}
	t1 := ( a_tickcount - st)

	VarSetCapacity(a, 0)
	Sleep 1
	st := A_TickCount
	loop, % iterations
		{
			a .= "c"
		}
	t2 := a_tickcount - st
	MsgBox, % ("1st approach:`t" t1  "`n2nd approach:`t" t2
		. "`nDelta is " (delta := t2-t1) "ms = " Round(delta/Min(t1,t2)*100, 1) "% (" (delta>0?"1st":"2nd") " is faster)`n`n" StrLen(a))
	VarSetCapacity(a, 0)
}

Code: Select all

SetBatchLines, -1
myclass.compare()
return

class myclass {
	compare() {
		iterations := 50 *1000*1000
		a := 0
		Sleep 1
		st := A_TickCount
		loop, % iterations
		{
			a++
		}
		t1 := ( a_tickcount - st)

		this.a := 0
		Sleep 1
		st := A_TickCount
		loop, % iterations
		{
			this.a++
		}
		t2 := a_tickcount - st
		MsgBox, % ("1st approach:`t" t1  "`n2nd approach:`t" t2
			. "`nDelta is " (delta := t2-t1) "ms = " Round(delta/Min(t1,t2)*100, 1) "% (" (delta>0?"1st":"2nd") " is faster)`n`n" a "`n" this.a)
		this.a := a := ""
	}
}

F11::Reload
F12::ExitApp

Code: Select all

SetBatchLines, -1
myclass.compare()
return

class myclass {
	compare() {
		iterations := 10 *1000*1000
		a := 0
		Sleep 1
		st := A_TickCount
		loop, % iterations
		{
			a++
		}
		t1 := ( a_tickcount - st)

		b := 0
		Sleep 1
		st := A_TickCount
		loop, % iterations
		{
			this.Add1(b)
		}
		t2 := a_tickcount - st
		MsgBox, % ("1st approach:`t" t1  "`n2nd approach:`t" t2
			. "`nDelta is " (delta := t2-t1) "ms = " Round(delta/Min(t1,t2)*100, 1) "% (" (delta>0?"1st":"2nd") " is faster)`n`n" a "`n" b)
		b := a := ""
	}

	Add1(ByRef n) {
		n++
	}
}

Code: Select all

SetBatchLines, -1
myclass.compare()
return

class myclass {
	compare() {
		iterations := 10 *1000*1000
		a := 0
		Sleep 1
		st := A_TickCount
		loop, % iterations
		{
			a++
		}
		t1 := ( a_tickcount - st)

		b := 0
		Sleep 1
		st := A_TickCount
		loop, % iterations
		{
			b := this.Add1(b)
		}
		t2 := a_tickcount - st
		MsgBox, % ("1st approach:`t" t1  "`n2nd approach:`t" t2
			. "`nDelta is " (delta := t2-t1) "ms = " Round(delta/Min(t1,t2)*100, 1) "% (" (delta>0?"1st":"2nd") " is faster)`n`n" a "`n" b)
		b := a := ""
	}

	Add1(n) {
		return ++n
	}
}

Code: Select all

SetBatchLines, -1
myclass.compare()
return

class myclass {
	compare() {
		iterations := 5000 *1000
		VarSetCapacity(a, 2*iterations)
		Sleep 1
		st := A_TickCount
		loop, % iterations
			{
				a .= "c"
			}
		t1 := ( a_tickcount - st)

		VarSetCapacity(b, 2*iterations)
		Sleep 1
		st := A_TickCount
		loop, % iterations
			{
				this.ConcatenateC(b)
			}
		t2 := a_tickcount - st
		MsgBox, % ("1st approach:`t" t1  "`n2nd approach:`t" t2
			. "`nDelta is " (delta := t2-t1) "ms = " Round(delta/Min(t1,t2)*100, 1) "% (" (delta>0?"1st":"2nd") " is faster)`n`n" StrLen(a) "`n" StrLen(b))
	}

	ConcatenateC(ByRef str) {
		str .= "c"
	}
}

Code: Select all

SetBatchLines, -1
myclass.compare()
return

class myclass {
	compare() {
		iterations := 100 *1000
		VarSetCapacity(a, 2*iterations)
		Sleep 1
		st := A_TickCount
		loop, % iterations
			{
				a .= "c"
			}
		t1 := ( a_tickcount - st)

		VarSetCapacity(b, 2*iterations)
		Sleep 1
		st := A_TickCount
		loop, % iterations
			{
				b := this.ConcatenateC(b)
			}
		t2 := a_tickcount - st
		MsgBox, % ("1st approach:`t" t1  "`n2nd approach:`t" t2
			. "`nDelta is " (delta := t2-t1) "ms = " Round(delta/Min(t1,t2)*100, 1) "% (" (delta>0?"1st":"2nd") " is faster)`n`n" StrLen(a) "`n" StrLen(b))
	}

	ConcatenateC(str) {
		return str .= "c"
	}
}

Code: Select all

SetBatchLines, -1
compare()
return

compare() {
	iterations := 100 *1000
	VarSetCapacity(a, 2*iterations)
	Sleep 1
	st := A_TickCount
	loop, % iterations
		{
			a .= "c"
		}
	t1 := ( a_tickcount - st)

	VarSetCapacity(b, 2*iterations)
	Sleep 1
	st := A_TickCount
	loop, % iterations
		{
			b := ConcatenateC(b)
		}
	t2 := a_tickcount - st
	MsgBox, % ("1st approach:`t" t1  "`n2nd approach:`t" t2
		. "`nDelta is " (delta := t2-t1) "ms = " Round(delta/Min(t1,t2)*100, 1) "% (" (delta>0?"1st":"2nd") " is faster)`n`n" StrLen(a) "`n" StrLen(b))
}

ConcatenateC(str) {
	return str .= "c"
}

Code: Select all

SetBatchLines, -1
compare()
return

compare() {
	iterations := 10 *1000*1000
	VarSetCapacity(a, 2*iterations)
	Sleep 1
	st := A_TickCount
	loop, % iterations
		{
			a .= "c"
		}
	t1 := ( a_tickcount - st)

	VarSetCapacity(b, 2*iterations)
	Sleep 1
	st := A_TickCount
	loop, % iterations
		{
			ConcatenateC(b)
		}
	t2 := a_tickcount - st
	MsgBox, % ("1st approach:`t" t1  "`n2nd approach:`t" t2
		. "`nDelta is " (delta := t2-t1) "ms = " Round(delta/Min(t1,t2)*100, 1) "% (" (delta>0?"1st":"2nd") " is faster)`n`n" StrLen(a) "`n" StrLen(b))
}

ConcatenateC(ByRef str) {
	str .= "c"
}