Mercurial > projects > dstress

annotate run/foreach_09.d @ 1:3414705c41ac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
removed CVS header
author thomask
date Sun, 26 Sep 2004 12:06:09 +0000
parents 3269e4627918
children f87ba6507260
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
3269e4627918 init dstress
svnowner
parents:
diff changeset
1
3269e4627918 init dstress
svnowner
parents:
diff changeset
2
3269e4627918 init dstress
svnowner
parents:
diff changeset
3 int main(){
3269e4627918 init dstress
svnowner
parents:
diff changeset
4 double[dchar[]] array;
3269e4627918 init dstress
svnowner
parents:
diff changeset
5 array["eins"]= 1.0;
3269e4627918 init dstress
svnowner
parents:
diff changeset
6 array["drei"]= 3.0;
3269e4627918 init dstress
svnowner
parents:
diff changeset
7 double test=0.0;
3269e4627918 init dstress
svnowner
parents:
diff changeset
8 int count=0;
3269e4627918 init dstress
svnowner
parents:
diff changeset
9 assert(count==0);
3269e4627918 init dstress
svnowner
parents:
diff changeset
10 foreach(double obj; array){
3269e4627918 init dstress
svnowner
parents:
diff changeset
11 test+=obj;
3269e4627918 init dstress
svnowner
parents:
diff changeset
12 count++;
3269e4627918 init dstress
svnowner
parents:
diff changeset
13 }
3269e4627918 init dstress
svnowner
parents:
diff changeset
14 assert(count==2);
3269e4627918 init dstress
svnowner
parents:
diff changeset
15 assert(test==4.0);
3269e4627918 init dstress
svnowner
parents:
diff changeset
16 return 0;
1
3414705c41ac removed CVS header
thomask
parents: 0
diff changeset
17 }