svnno****@sourc*****
svnno****@sourc*****
2017年 3月 16日 (木) 12:31:53 JST
Revision: 6635 http://sourceforge.jp/projects/ttssh2/scm/svn/commits/6635 Author: doda Date: 2017-03-16 12:31:53 +0900 (Thu, 16 Mar 2017) Log Message: ----------- random のテストだという事が判り易いように名前を変更 Added Paths: ----------- trunk/tests/#35822-random.ttl Removed Paths: ------------- trunk/tests/#35822.ttl -------------- next part -------------- Copied: trunk/tests/#35822-random.ttl (from rev 6634, trunk/tests/#35822.ttl) =================================================================== --- trunk/tests/#35822-random.ttl (rev 0) +++ trunk/tests/#35822-random.ttl 2017-03-16 03:31:53 UTC (rev 6635) @@ -0,0 +1,25 @@ +intdim res 11 + +for i 1 1000000 + random val 10 + res[val] = res[val] + 1 +next + +str = '' +for i 0 10 + sprintf2 tmp '%d\t%d' i res[i] + strconcat str tmp + strconcat str #13#10 +next +strspecial str +messagebox str 'result' + +uptime time +int2str str_time time +strconcat filename '35822_' +strconcat filename str_time +strconcat filename '.txt' + +fileopen fp filename 0 +filewrite fp str +fileclose fp Deleted: trunk/tests/#35822.ttl =================================================================== --- trunk/tests/#35822.ttl 2017-03-16 03:31:50 UTC (rev 6634) +++ trunk/tests/#35822.ttl 2017-03-16 03:31:53 UTC (rev 6635) @@ -1,25 +0,0 @@ -intdim res 11 - -for i 1 1000000 - random val 10 - res[val] = res[val] + 1 -next - -str = '' -for i 0 10 - sprintf2 tmp '%d\t%d' i res[i] - strconcat str tmp - strconcat str #13#10 -next -strspecial str -messagebox str 'result' - -uptime time -int2str str_time time -strconcat filename '35822_' -strconcat filename str_time -strconcat filename '.txt' - -fileopen fp filename 0 -filewrite fp str -fileclose fp