19 replies to this topic

[Alibaba]

Vielleicht ist es also doch keine so gute Idee ^^

 

Das kommt immer auf den Kontext an.

Selbst in diesem Falle, beim Beibehalten der alten Struktur (stellenweise addition mit übertrag) und bei der Durchführen der Berechnungen über MCode, ist das Script beim Berechnen von 2 hoch 10000 ca. 0,5 Sekunden schneller.

Wenn man es jetzt machen würde, wie nnnick es vorgeschlagen hat, wäre das Script wahrscheinlich unglaublich schnell, weil dann pro Rechenschritt nicht nur eine Stelle des Strings, sondern gleich ein ganzer 32 Bit Datensatz verarbeitet wird.

 

Leider kann ich das noch nicht realisieren, da fehlt mir das Wissen...

[just me]

Es würde wohl schon reichen, wenn Du die Schleife zur Abarbeitung der einzelen Stellen innerhalb des MCODE realisieren würdest. (Ich kann C leider gerade so lesen, aber nicht schreiben!)

 

Man kann aber auch ohne MCODE einige Beschleunigung rausholen, wenn man berücksichtigt, dass AHK bis zu 18 Stellen lange Integerwerte risikofrei addieren kann:

Sum(Int1, Int2) { ; Summe zweier Integerstrings bilden
   Static ML := 18                  ; maximale Länge, bis zu 18 Dezimalstellen können mit AHK normal addiert werden
   Static MV := 999999999999999999  ; maximaler Wert ohne Überlauf
   Static ZZ := "00000000000000000" ; Nullen zum Auffüllen
   L1 := StrLen(Int1), L2 := StrLen(Int2)
   If (L1 <= ML) && (L2 <= ML)
      Return (Int1 + Int2)
   While (L1 < L2)
      Int1 := "0" . Int1, L1++
   While (L2 < L1)
      Int2 := "0" . Int2, L2++
   VarSetCapacity(Summe, (L1 + 1) << !!A_IsUnicode, UB := 0)
   While (L1 >= ML) {
      L1 -= ML
      Sum16 := SubStr(Int1, L1 + 1, ML) + SubStr(Int2, L1 + 1, ML) + UB
      Summe := SubStr(ZZ . SubStr(Sum16, (UB := Sum16 > MV ? 1 : 0) + 1), 1 - ML) . Summe
   }
   If (L1 > 0)
      Return ((Substr(Int1, 1, L1) + SubStr(Int2, 1, L1) + UB) . Summe)
   Else If (UB)
      Return (UB . Summe)
   Return Summe
}

[Alibaba]

Wow.

Respekt, das ist ziemlich flott!

 

Edit:

Vorallem die Art, wie der kleinere Wert mit Nullen gefüllt wird, gefällt mir:

   While (L1 < L2)
      Int1 := "0" . Int1, L1++

[nnnik]

Versuch mal...
 

/*
int stringlen(char *str)
{
  int i=0;
  for (; str[i]!=0; i++);
  return i;
}
*/
stringlen := MCode("2,x86:i0wkBDPAOAF0B0CAPAgAdfnD,x64:M8A4AXQKSP/B/8CAOQB19vPD")
MsgBox, % DllCall(stringlen, "astr", "test")

...das funktioniert bei mir.
 
Allerdings ist ein DllCall meistens langsamer, als direkt mit AHK zu berechnen oder AHK-Funktionen zu verwenden.
In diesem Fall würde ich auf jeden Fall StrLen, und keinen MCode empfehlen.

 
Vielleicht ist es also doch keine so gute Idee ^^

Ein DLLCall ist natürlich Langsamer als eine interne AHK Funktion die genau diesen Zweck erfüllt (in diesem Fall besonders da AHK sich die Stringlänge merkt anstatt sie zu Berechnen.)
Allerdings ist AHK bei Berechnungen langsam.
C++ ist da um einiges flotter
Generell gilt destso mehr Code eine Funktion enthält destso schneller ist sie in C++.
Hier sind wir schon an einem Punkt angelangt wo es sich schon lohnt.

[Alibaba]

Mist...

 

Ich wollte nun eigentlich die Funktion von just me nach C++ übersetzen, deshalb habe ich gerade versucht, folgenden Code mit Bentschi's Online Generator zu kompilieren (Optionen: "Optimize for speed", "x86 and x64", "HEX"), eigentlich nur um mal zu testen ob es auch keine Probleme mit dem String-In/Output gibt:

#include <windows.h>
#include <iostream>
#include <string>
using namespace std;

string test(string input)
{
    return input;
}

Sollte eigentlich keine Probleme machen, oder?

Blöd ist nur, dass er jetzt die gesamten String Funktionen mit ausgibt:

Spoiler

?$?8DD@std := MCode("1,x86:b001c3,x64:b001c3")
?$?9DD@std := MCode("1,x86:32c0c3,x64:32c0c3")
?$_Allocate@D@std := MCode("
(LTrim Join
1,x86:8b4c240483ec0c33c085c9743f83f9ff770d51e80000000083c40485c0752d8d442410508d4c2404c7442414000000
00e80000000068000000008d4c240451c744240800000000e80000000083c40cc3$LN9@Allocate:,x64:4883ec4833c0488
5c974464883f9ff770ae8000000004885c07536488d542450488d4c242048c744245000000000e8000000004c8d1d0000000
0488d1500000000488d4c24204c895c2420e800000000cc4883c448c3$LN9@Allocate:
)")
?$forward@V?$allocator@D@std := MCode("1,x86:8b442404c3,x64:488bc1c3")
?$forward@V?$basic_string@DU?$char_traits@D@std := MCode("1,x86:8b442404c3,x64:488bc1c3")
?0?$_String_val@DV?$allocator@D@std := MCode("1,x86:8bc1c20400,x64:488bc1c3")
?0?$allocator@D@std := MCode("1,x86:8bc1c20400,x64:488bc1c3")
?0?$basic_string@DU?$char_traits@D@std := MCode("
(LTrim Join
1,x86:8b442404568bf1c746140f000000c746100000000050c60600e8000000008bc65ec20400,x64:40534883ec2048c74
1180f00000048c7411000000000488bd9c60100e800000000488bc34883c4205bc3
)")
?0bad_alloc@std := MCode("
(LTrim Join
1,x86:8b44240456508bf1e800000000c706000000008bc65ec20400,x64:40534883ec20488bd9e8000000004c8d1d00000
0004c891b488bc34883c4205bc3
)")
?1?$_String_val@DV?$allocator@D@std := MCode("1,x86:c3,x64:c20000")
?1?$basic_string@DU?$char_traits@D@std := MCode("
(LTrim Join
1,x86:568bf1837e1410720b8b0650e80000000083c404c746140f000000c7461000000000c606005ec3,x64:40534883ec2
04883791810488bd97208488b09e80000000048c743180f00000048c7431000000000c603004883c4205bc3
)")
?1bad_alloc@std := MCode("1,x86:c70100000000e900000000,x64:488d0500000000488901e900000000")
?4?$basic_string@DU?$char_traits@D@std := MCode("
(LTrim Join
1,x86:8b4424046aff6a0050e800000000c20400,x64:4983c9ff4533c0e900000000
)")
?_Gbad_alloc@std := MCode("
(LTrim Join
1,x86:568bf1c70600000000e800000000f644240801740956e80000000083c4048bc65ec20400,x64:48895c2408574883e
c20488d05000000008bda488bf9488901e800000000f6c3017408488bcfe800000000488bc7488b5c24304883c4205fc3
)")
_Copy@?$basic_string@DU?$char_traits@D@std := MCode("
(LTrim Join
1,x86:558bec6aff680000000064a1000000005083ec0c535657a10000000033c5508d45f464a3000000008965f08bf18975
ec8b45088bf883cf0f83fffe76048bf8eb278b5e148bcbd1e9b8abaaaaaaf7e7d1ea3bca7613b8feffffff2bc13bd88d3c19
7605bffeffffffc745fc000000008d4f01518d4e18e8000000008bd8895de8c745fcffffffffeb338965f08b4508894508c6
45fc0240508b4dec83c118e8000000008945e8c745fc01000000b800000000c38b75ec8b7d088b5de88b4d0c85c9741a837e
141072048b06eb028bc6515053e80000000083c40c8b4d0c837e1410720e8b1652e80000000083c4048b4d0cc60600891e89
7e14894e1083ff1072028bf3c6040e008b4df464890d00000000595f5e5b8be55dc208008b75ec837e1410720b8b0650e800
00000083c404c746140f000000c7461000000000c606006a006a00e800000000ccENDSCOMDATtext$xSEGMENT8b5424088d4
20c8b4ae433c8e800000000b800000000e900000000ENDS,x64:4c89442418488954241048894c240853565741544883ec68
48c7442428feffffff4d8be0488bd9488bfa4883cf0f4883fffe7605488bfaeb354c8b4118498bc848d1e948b8abaaaaaaaa
aaaaaa48f7e748d1ea483bca761648c7c7feffffff488bc7482bc14c3bc077044a8d3c01488d4f0133f64885c9744e4883f9
ff770de800000000488bf04885c0753b48c78424a800000000000000488d9424a8000000488d4c2430e8000000004c8d1d00
0000004c895c2430488d1500000000488d4c2430e8000000004889742420eb1d488b9c24900000004c8ba424a0000000488b
bc2498000000488b7424204d85e4741a48837b18107205488b13eb03488bd34d8bc4488bcee80000000048837b1810720848
8b0be800000000c6030048893348897b184c8963104883ff10480f43de42c60423004883c468415c5f5e5bc3$LN111@Copy:
)")
_Eos@?$basic_string@DU?$char_traits@D@std := MCode("
(LTrim Join
1,x86:837914108b44240489411072028b09c6040100c20400,x64:4883791810488951107208488b01c6041000c3c604110
0c3
)")
_Grow@?$basic_string@DU?$char_traits@D@std := MCode("
(LTrim Join
1,x86:558b6c2408568bf183fdfe760a6800000000e8000000008b46143bc573178b46105055e80000000033c93bcd1bc05e
f7d85dc20800807c241000744c83fd107347578b7e103bef73028bfd83f810721c538b1e85ff740b575356e80000000083c4
0c53e80000000083c4045b897e10c746140f00000033c9c60437003bcd5f1bc05ef7d85dc2080085ed750d896e1083f81072
028b36c6060033c93bcd1bc05ef7d85dc20800$LN48@Grow:,x64:48895c2420574883ec20488bfa488bd94883fafe760d48
8d0d00000000e800000000cc488b4118488974243833f6483bc2730b4c8b4110e800000000eb724584c074584883fa107352
48896c2430488b6910483bd5480f42ea4883f81072254c896424404c8b214885ed740b4c8bc5498bd4e800000000498bcce8
000000004c8b64244048896b1048c743180f0000004088342b488b6c2430eb154885d27510488971104883f8107203488b19
408833488b742438488b5c24484885ff0f95c04883c4205fc3$LN46@Grow:
)")
_Myptr@?$basic_string@DU?$char_traits@D@std := MCode("
(LTrim Join
1,x86:8bc18378141072028b00c3,x64:48837918107204488b01c3488bc1c3
)")
_Tidy@?$basic_string@DU?$char_traits@D@std := MCode("
(LTrim Join
1,x86:807c24040056578b7c24108bf17422837e1410721c538b1e85ff740b575356e80000000083c40c53e80000000083c4
045b897e10c746140f000000c60437005f5ec20800,x64:48895c2410574883ec20498bf8488bd984d274294883791810722
24889742430488b314d85c07408488bd6e800000000488bcee800000000488b74243048c743180f00000048897b10c6041f0
0488b5c24384883c4205fc3
)")
_Xlen@?$basic_string@DU?$char_traits@D@std := MCode("
(LTrim Join
1,x86:6800000000e800000000cc,x64:4883ec28488d0d00000000e800000000cc$LN3@Xlen:
)")
_Xran@?$basic_string@DU?$char_traits@D@std := MCode("
(LTrim Join
1,x86:6800000000e800000000cc,x64:4883ec28488d0d00000000e800000000cc$LN3@Xran:
)")
allocate@?$allocator@D@std := MCode("
(LTrim Join
1,x86:8b4c240483ec0c33c085c9743f83f9ff770d51e80000000083c40485c0752d8d442410508d4c2404c7442414000000
00e80000000068000000008d4c240451c744240800000000e80000000083c40cc20400$LN12@allocate:,x64:4883ec4833
c04885d274494883faff770d488bcae8000000004885c07536488d542458488d4c242048c744245800000000e8000000004c
8d1d00000000488d1500000000488d4c24204c895c2420e800000000cc4883c448c3$LN12@allocate:
)")
assign@?$basic_string@DU?$char_traits@D@std := MCode("
(LTrim Join
1,x86:56578b7c240c8bf13bf7745d837e1410720b8b0650e80000000083c404c746140f000000c7461000000000c6060083
7f141073118b4f1041515756e80000000083c40ceb0a8b178916c707000000008b47108946108b4f14894e14c74710000000
00c74714000000005f8bc65ec20400,x64:48895c2410574883ec20488bfa488bd9483bca746648837918104889742430720
8488b09e80000000033f648c743180f0000004889731040883348837f181073144c8b4710488bd7488bcb49ffc0e80000000
0eb09488b07488903488937488b471048894310488b4718488943184889771048897718488b742430488bc3488b5c2438488
3c4205fc3
)")
assign@?$char_traits@D@std := MCode("1,x86:8b4424088a088b542404880ac3,x64:0fb6028801c3")
catch$0@?0??_Copy@?$basic_string@DU?$char_traits@D@std := MCode("
(LTrim Join
1,x64:488954241053554883ec28488bea488b9d9000000048837b18107208488b0be80000000048c743180f00000048c743
1000000000c6030033d233c9e80000000090
)")
catch$1@?0??_Copy@?$basic_string@DU?$char_traits@D@std := MCode("
(LTrim Join
1,x64:4889542410554883ec20488bea488b8d9800000048898d9800000033c048ffc17502eb104883f9ff7717e800000000
4885c0740d48894520488d0500000000eb3748c7859800000000000000488d9598000000488d4d48e8000000004c8d1d0000
00004c895d48488d1500000000488d4d48e800000000904883c4205dc3cc
)")
copy@?$char_traits@D@std := MCode("
(LTrim Join
1,x86:e900000000,x64:40534883ec20488bd9e800000000488bc34883c4205bc3
)")
deallocate@?$allocator@D@std := MCode("1,x86:8b44240450e80000000059c20800,x64:488bcae900000000")
erase@?$basic_string@DU?$char_traits@D@std := MCode("
(LTrim Join
1,x86:568bf18b46108b4c24083bc1730a6800000000e800000000578b7c24102bc13bc773028bf885ff744f8b56145383fa
1072048b1eeb028bde83fa1072048b16eb028bd62bc703d95003df03d15352e8000000008b461083c40c2bc7837e14108946
105b720d8b0ec60401005f8bc65ec208008bcec60401005f8bc65ec20800$LN27@erase:,x64:48895c2408574883ec20498
bf84c8b41104c8bca488bd94c3bc2730d488d0d00000000e800000000cc4c2bc24c3bc7490f42f84885ff7457488b4118488
3f8107208488b09488b03eb03488bc34803d14a8d0c084c2bc74803d7e8000000004c8b5b104c2bdf48837b18104c895b107
216488b0342c6041800488bc3488b5c24304883c4205fc3488bc342c6041b00488bc3488b5c24304883c4205fc3$LN27@era
se:
)")
get_allocator@?$basic_string@DU?$char_traits@D@std := MCode("1,x86:8b442404c20400,x64:488bc2c3")
max_size@?$allocator@D@std := MCode("1,x86:83c8ffc3,x64:4883c8ffc3")
max_size@?$basic_string@DU?$char_traits@D@std := MCode("1,x86:b8feffffffc3,x64:48c7c0feffffffc3")
move@?$char_traits@D@std := MCode("1,x86:e900000000,x64:e900000000")
size@?$basic_string@DU?$char_traits@D@std := MCode("1,x86:8b4110c3,x64:488b4110c3")
test := MCode("
(LTrim Join
1,x86:568b7424088d44240cc746140f000000c7461000000000508bcec60600e800000000837c242010720d8b4c240c51e8
0000000083c4048bc65ec3,x64:48895c2418574883ec2048c741180f00000048c7411000000000488bdac60100488bf9e80
000000048837b18107208488b0be80000000048c743180f00000048c7431000000000c60300488b5c2440488bc74883c4205
fc3
)")

 

Hier der Compile Log:

Spoiler

COMPILER: x86
OPTIONS: /TP /c /FAc /Facode.cod /O2 /W4
Setting environment for using Microsoft Visual Studio 2010 x86 tools.
c:\Program Files (x86)\Microsoft Visual Studio 10.0\VC\INCLUDE\xlocale(323) : warning C4530: C++ exception handler used, but unwind semantics are not enabled. Specify /EHsc
ERRORLEVEL: 0
---
COMPILER: x86_amd64
OPTIONS: /TP /c /FAc /Facode.cod /O2 /W4
Setting environment for using Microsoft Visual Studio 2010 x64 cross tools.
c:\Program Files (x86)\Microsoft Visual Studio 10.0\VC\INCLUDE\xlocale(323) : warning C4530: C++ exception handler used, but unwind semantics are not enabled. Specify /EHsc
ERRORLEVEL: 0
---
Extract function: ?0bad_alloc@std [x86] [25 bytes]
Extract function: ?1bad_alloc@std [x86] [11 bytes]
Extract function: ?_Gbad_alloc@std [x86] [36 bytes]
Extract function: copy@?$char_traits@D@std [x86] [5 bytes]
Extract function: move@?$char_traits@D@std [x86] [5 bytes]
Extract function: assign@?$char_traits@D@std [x86] [13 bytes]
Extract function: size@?$basic_string@DU?$char_traits@D@std [x86] [4 bytes]
Extract function: _Myptr@?$basic_string@DU?$char_traits@D@std [x86] [11 bytes]
Extract function: ?1?$_String_val@DV?$allocator@D@std [x86] [1 bytes]
Extract function: ?0?$allocator@D@std [x86] [5 bytes]
Extract function: get_allocator@?$basic_string@DU?$char_traits@D@std [x86] [7 bytes]
Extract function: _Myptr@?$basic_string@DU?$char_traits@D@std [x86] [11 bytes]
Extract function: _Xran@?$basic_string@DU?$char_traits@D@std [x86] [11 bytes]
Extract function: deallocate@?$allocator@D@std [x86] [14 bytes]
Extract function: _Xlen@?$basic_string@DU?$char_traits@D@std [x86] [11 bytes]
Extract function: max_size@?$allocator@D@std [x86] [4 bytes]
Extract function: ?$forward@V?$allocator@D@std [x86] [5 bytes]
Extract function: ?$forward@V?$basic_string@DU?$char_traits@D@std [x86] [5 bytes]
Extract function: ?$_Allocate@D@std [x86] [87 bytes]
Extract function: ?0bad_alloc@std [x86] [25 bytes]
Extract function: ?$?8DD@std [x86] [3 bytes]
Extract function: ?0?$_String_val@DV?$allocator@D@std [x86] [5 bytes]
Extract function: _Eos@?$basic_string@DU?$char_traits@D@std [x86] [22 bytes]
Extract function: erase@?$basic_string@DU?$char_traits@D@std [x86] [133 bytes]
Extract function: max_size@?$basic_string@DU?$char_traits@D@std [x86] [6 bytes]
Extract function: allocate@?$allocator@D@std [x86] [89 bytes]
Extract function: ?$?9DD@std [x86] [3 bytes]
Extract function: _Tidy@?$basic_string@DU?$char_traits@D@std [x86] [68 bytes]
Extract function: _Copy@?$basic_string@DU?$char_traits@D@std [x86] [370 bytes]
Extract function: ?1?$basic_string@DU?$char_traits@D@std [x86] [39 bytes]
Extract function: _Grow@?$basic_string@DU?$char_traits@D@std [x86] [171 bytes]
Extract function: assign@?$basic_string@DU?$char_traits@D@std [x86] [236 bytes]
Extract function: assign@?$basic_string@DU?$char_traits@D@std [x86] [17 bytes]
Extract function: ?4?$basic_string@DU?$char_traits@D@std [x86] [17 bytes]
Extract function: assign@?$basic_string@DU?$char_traits@D@std [x86] [112 bytes]
Extract function: ?0?$basic_string@DU?$char_traits@D@std [x86] [36 bytes]
Extract function: test [x86] [58 bytes]
Extract function: ?0bad_alloc@std [x86_amd64] [42 bytes]
Extract function: ?1bad_alloc@std [x86_amd64] [15 bytes]
Extract function: ?_Gbad_alloc@std [x86_amd64] [57 bytes]
Extract function: copy@?$char_traits@D@std [x86_amd64] [23 bytes]
Extract function: move@?$char_traits@D@std [x86_amd64] [5 bytes]
Extract function: assign@?$char_traits@D@std [x86_amd64] [6 bytes]
Extract function: size@?$basic_string@DU?$char_traits@D@std [x86_amd64] [5 bytes]
Extract function: _Myptr@?$basic_string@DU?$char_traits@D@std [x86_amd64] [15 bytes]
Extract function: ?1?$_String_val@DV?$allocator@D@std [x86_amd64] [3 bytes]
Extract function: ?0?$allocator@D@std [x86_amd64] [4 bytes]
Extract function: get_allocator@?$basic_string@DU?$char_traits@D@std [x86_amd64] [4 bytes]
Extract function: _Myptr@?$basic_string@DU?$char_traits@D@std [x86_amd64] [15 bytes]
Extract function: _Xran@?$basic_string@DU?$char_traits@D@std [x86_amd64] [22 bytes]
Extract function: deallocate@?$allocator@D@std [x86_amd64] [8 bytes]
Extract function: _Xlen@?$basic_string@DU?$char_traits@D@std [x86_amd64] [22 bytes]
Extract function: max_size@?$allocator@D@std [x86_amd64] [5 bytes]
Extract function: ?$forward@V?$allocator@D@std [x86_amd64] [4 bytes]
Extract function: ?$forward@V?$basic_string@DU?$char_traits@D@std [x86_amd64] [4 bytes]
Extract function: ?$_Allocate@D@std [x86_amd64] [93 bytes]
Extract function: ?0bad_alloc@std [x86_amd64] [33 bytes]
Extract function: ?$?8DD@std [x86_amd64] [3 bytes]
Extract function: ?0?$_String_val@DV?$allocator@D@std [x86_amd64] [4 bytes]
Extract function: _Eos@?$basic_string@DU?$char_traits@D@std [x86_amd64] [24 bytes]
Extract function: erase@?$basic_string@DU?$char_traits@D@std [x86_amd64] [163 bytes]
Extract function: max_size@?$basic_string@DU?$char_traits@D@std [x86_amd64] [8 bytes]
Extract function: allocate@?$allocator@D@std [x86_amd64] [96 bytes]
Extract function: ?$?9DD@std [x86_amd64] [3 bytes]
Extract function: _Tidy@?$basic_string@DU?$char_traits@D@std [x86_amd64] [88 bytes]
Extract function: _Copy@?$basic_string@DU?$char_traits@D@std [x86_amd64] [324 bytes]
Extract function: catch$1@?0??_Copy@?$basic_string@DU?$char_traits@D@std [x86_amd64] [127 bytes]
Extract function: catch$0@?0??_Copy@?$basic_string@DU?$char_traits@D@std [x86_amd64] [65 bytes]
Extract function: ?1?$basic_string@DU?$char_traits@D@std [x86_amd64] [49 bytes]
Extract function: _Grow@?$basic_string@DU?$char_traits@D@std [x86_amd64] [203 bytes]
Extract function: assign@?$basic_string@DU?$char_traits@D@std [x86_amd64] [263 bytes]
Extract function: assign@?$basic_string@DU?$char_traits@D@std [x86_amd64] [12 bytes]
Extract function: ?4?$basic_string@DU?$char_traits@D@std [x86_amd64] [12 bytes]
Extract function: assign@?$basic_string@DU?$char_traits@D@std [x86_amd64] [137 bytes]
Extract function: ?0?$basic_string@DU?$char_traits@D@std [x86_amd64] [42 bytes]
Extract function: test [x86_amd64] [88 bytes

 

AHK scheint damit nicht klarzukommen, denn wenn ich die Funktion über

MsgBox % DllCall(test, "ASTR", "Hello World!")

aufrufe, bleibt die MessageBox leer.