Context Navigation

hello-md.cfa

Last change on this file was 5546f50b, checked in by Peter A. Buhr <pabuhr@…>, 2 months ago
more switch to tabs
Property mode set to `100644`
File size: 1.2 KB

Line
1	#include <fstream.hfa>
2	#include <array.hfa>
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40	forall( [N] )
41	void print1d_cstyle( array(float, N) & c );
42
43	forall( [N], C & \| ar( C, float, N ) )
44	void print1d( C & c );
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60	forall( [N] )
61	void print1d_cstyle( array(float, N) & c ) {
62	for ( i; N ) {
63	sout \| c[i] \| nonl;
64	}
65	sout \| nl;
66	}
67
68
69
70
71
72
73
74
75
76
77
78
79	forall( [N], C & \| ar( C, float, N ) )
80	void print1d( C & c ) {
81	for( i; N ) {
82	sout \| c[i] \| nonl;
83	}
84	sout \| nl;
85	}
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100	void fill( array(float, 5, 7) & a ) {
101	for ( i; (ptrdiff_t) 5 ) {
102	for ( j; 7 ) {
103	a[i,j] = 1.0 * i + 0.1 * j;
104	sout \| a[[i,j]] \| nonl;
105	}
106	sout \| nl;
107	}
108	sout \| nl;
109	}
110
111	int main() {
112
113
114
115
116
117
118	array( float, 5, 7 ) a;
119	fill(a);
120	/*
121	0.0 0.1 0.2 0.3 0.4 0.5 0.6
122	1.0 1.1 1.2 1.3 1.4 1.5 1.6
123	2.0 2.1 2.2 2.3 2.4 2.5 2.6
124	3.0 3.1 3.2 3.3 3.4 3.5 3.6
125	4.0 4.1 4.2 4.3 4.4 4.5 4.6
126	*/
127
128
129
130
131
132
133
134
135
136
137
138
139
140	print1d_cstyle( a[ 2 ] ); // 2.0 2.1 2.2 2.3 2.4 2.5 2.6
141
142
143
144
145	print1d( a[ 2 ] ); // 2.0 2.1 2.2 2.3 2.4 2.5 2.6
146
147
148
149
150	print1d( a[ 2, all ] ); // 2.0 2.1 2.2 2.3 2.4 2.5 2.6
151	print1d( a[ all, 3 ] ); // 0.3 1.3 2.3 3.3 4.3
152
153
154
155	print1d_cstyle( a[ 2, all ] );
156
157
158
159
160
161
162
163	#ifdef SHOW_ERROR_1
164
165	print1d_cstyle( a[ all, 2 ] ); // bad
166
167	#endif
168
169	}

Note: See TracBrowser for help on using the repository browser.