Mercurial > projects > dstress

annotate run/foreach_09.d @ 1630:d0efa3ae5522 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
run/mini/naked_asm5: New x86_64 ABI passes the arguments in reverse order.
author David Nadlinger <code@klickverbot.at>
date Sat, 23 Apr 2011 22:57:32 +0200
parents f87ba6507260
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
374
f87ba6507260 added missing meta-data
thomask
parents: 1
diff changeset
1 // $HeadURL$
f87ba6507260 added missing meta-data
thomask
parents: 1
diff changeset
2 // $Date$
f87ba6507260 added missing meta-data
thomask
parents: 1
diff changeset
3 // $Author$
0
3269e4627918 init dstress
svnowner
parents:
diff changeset
4
374
f87ba6507260 added missing meta-data
thomask
parents: 1
diff changeset
5 module dstress.run.foreach_09;
0
3269e4627918 init dstress
svnowner
parents:
diff changeset
6
3269e4627918 init dstress
svnowner
parents:
diff changeset
7 int main(){
3269e4627918 init dstress
svnowner
parents:
diff changeset
8 double[dchar[]] array;
3269e4627918 init dstress
svnowner
parents:
diff changeset
9 array["eins"]= 1.0;
3269e4627918 init dstress
svnowner
parents:
diff changeset
10 array["drei"]= 3.0;
3269e4627918 init dstress
svnowner
parents:
diff changeset
11 double test=0.0;
3269e4627918 init dstress
svnowner
parents:
diff changeset
12 int count=0;
3269e4627918 init dstress
svnowner
parents:
diff changeset
13 assert(count==0);
3269e4627918 init dstress
svnowner
parents:
diff changeset
14 foreach(double obj; array){
3269e4627918 init dstress
svnowner
parents:
diff changeset
15 test+=obj;
3269e4627918 init dstress
svnowner
parents:
diff changeset
16 count++;
3269e4627918 init dstress
svnowner
parents:
diff changeset
17 }
3269e4627918 init dstress
svnowner
parents:
diff changeset
18 assert(count==2);
3269e4627918 init dstress
svnowner
parents:
diff changeset
19 assert(test==4.0);
3269e4627918 init dstress
svnowner
parents:
diff changeset
20 return 0;
1
3414705c41ac removed CVS header
thomask
parents: 0
diff changeset
21 }