svnno****@sourc*****
svnno****@sourc*****
2017年 3月 16日 (木) 12:31:55 JST
Tera TermRevision: 6636
http://sourceforge.jp/projects/ttssh2/scm/svn/commits/6636
Author: doda
Date: 2017-03-16 12:31:55 +0900 (Thu, 16 Mar 2017)
Log Message:
-----------
使用時に判りづらかった部分等を修正
・ファイル名の生成を簡略化
・処理状況を表示するようにした
起動後しばらく反応が無かったので一瞬ハングアップを疑った為
・処理にかかった時間を表示するようにした
デバッグビルドとリリースビルドで2倍以上の速度差が出るため、
最初デバッグビルドで試した時に遅くなるようなミスをしたかと疑った為
Modified Paths:
--------------
trunk/tests/#35822-random.ttl
Property Changed:
----------------
trunk/tests/#35822-random.ttl
-------------- next part --------------
Modified: trunk/tests/#35822-random.ttl
===================================================================
--- trunk/tests/#35822-random.ttl 2017-03-16 03:31:53 UTC (rev 6635)
+++ trunk/tests/#35822-random.ttl 2017-03-16 03:31:55 UTC (rev 6636)
@@ -1,10 +1,20 @@
intdim res 11
-for i 1 1000000
- random val 10
- res[val] = res[val] + 1
+statusbox "0% done." "stat"
+
+uptime stime
+
+for i 1 100
+ for j 1 110000
+ random val 10
+ res[val] = res[val] + 1
+ next
+ sprintf2 stat "%d%% done." i
+ statusbox stat "stat"
next
+uptime etime
+
str = ''
for i 0 10
sprintf2 tmp '%d\t%d' i res[i]
@@ -11,14 +21,16 @@
strconcat str tmp
strconcat str #13#10
next
+
+sprintf2 tmp #13#10"%d ms."#13#10 etime - stime
+strconcat str tmp
+
strspecial str
+;closesbox
messagebox str 'result'
-uptime time
-int2str str_time time
-strconcat filename '35822_'
-strconcat filename str_time
-strconcat filename '.txt'
+; gettime filename "35822_%Y%m%d%H%M%S.txt"
+sprintf2 filename "35822_%d.txt" stime
fileopen fp filename 0
filewrite fp str
Property changes on: trunk/tests/#35822-random.ttl
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property