Mercurial > projects > dstress

annotate run/foreach_09.d @ 0:3269e4627918

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
init dstress
author svnowner
date Sat, 25 Sep 2004 22:33:30 +0000
parents
children 3414705c41ac
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
3269e4627918 init dstress
svnowner
parents:
diff changeset
1 // $Header: /home/th/Dokumente/Entwicklung/MEIN_CVS/MiniD/src/run/foreach_09.d,v 1.1 2004/09/21 21:04:47 th Exp $
3269e4627918 init dstress
svnowner
parents:
diff changeset
2
3269e4627918 init dstress
svnowner
parents:
diff changeset
3
3269e4627918 init dstress
svnowner
parents:
diff changeset
4 int main(){
3269e4627918 init dstress
svnowner
parents:
diff changeset
5 double[dchar[]] array;
3269e4627918 init dstress
svnowner
parents:
diff changeset
6 array["eins"]= 1.0;
3269e4627918 init dstress
svnowner
parents:
diff changeset
7 array["drei"]= 3.0;
3269e4627918 init dstress
svnowner
parents:
diff changeset
8 double test=0.0;
3269e4627918 init dstress
svnowner
parents:
diff changeset
9 int count=0;
3269e4627918 init dstress
svnowner
parents:
diff changeset
10 assert(count==0);
3269e4627918 init dstress
svnowner
parents:
diff changeset
11 foreach(double obj; array){
3269e4627918 init dstress
svnowner
parents:
diff changeset
12 test+=obj;
3269e4627918 init dstress
svnowner
parents:
diff changeset
13 count++;
3269e4627918 init dstress
svnowner
parents:
diff changeset
14 }
3269e4627918 init dstress
svnowner
parents:
diff changeset
15 assert(count==2);
3269e4627918 init dstress
svnowner
parents:
diff changeset
16 assert(test==4.0);
3269e4627918 init dstress
svnowner
parents:
diff changeset
17 return 0;
3269e4627918 init dstress
svnowner
parents:
diff changeset
18 }