Mercurial > projects > dstress
annotate run/foreach_15.d @ 0:3269e4627918
init dstress
| author | svnowner |
|---|---|
| date | Sat, 25 Sep 2004 22:33:30 +0000 |
| parents | |
| children | 3414705c41ac |
| rev | line source |
|---|---|
| 0 | 1 // $Header: /home/th/Dokumente/Entwicklung/MEIN_CVS/MiniD/src/run/foreach_15.d,v 1.1 2004/09/23 09:39:55 th Exp $ |
| 2 | |
| 3 | |
| 4 int main(){ | |
| 5 char[3] array; | |
| 6 array[0]='a'; | |
| 7 array[1]='b'; | |
| 8 array[2]='c'; | |
| 9 int count=0; | |
| 10 assert(count==0); | |
| 11 assert(array[0]=='a'); | |
| 12 assert(array[1]=='b'); | |
| 13 assert(array[2]=='c'); | |
| 14 foreach(inout char value; array){ | |
| 15 count++; | |
| 16 value++; | |
| 17 } | |
| 18 assert(count==3); | |
| 19 assert(array[0]=='b'); | |
| 20 assert(array[1]=='c'); | |
| 21 assert(array[2]=='d'); | |
| 22 return 0; | |
| 23 } |