1
2
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
<!DOCTYPE html>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<title>highlight.cgis</title>
<meta name="generator" content="KF5::SyntaxHighlighting - Definition (CGiS) - Theme (Breeze Dark)"/>
</head><body style="background-color:#232629;color:#cfcfc2"><pre>
<span style="font-weight:bold">PROGRAM</span> testtest;
<span style="font-weight:bold">INTERFACE</span>
<span style="font-weight:bold">extern</span> <span style="font-weight:bold">inout</span> <span style="color:#2980b9">int</span> inputs_int[];
<span style="font-weight:bold">extern</span> <span style="font-weight:bold">out</span> <span style="color:#2980b9">int</span> nur_out[];
<span style="font-weight:bold">extern</span> <span style="font-weight:bold">in</span> <span style="color:#2980b9">int</span> nur_in[];
<span style="font-weight:bold">CODE</span>
<span style="font-weight:bold">function</span> jetzt_mach_schon(<span style="font-weight:bold">in</span> <span style="color:#2980b9">int</span> grenze, <span style="font-weight:bold">out</span> <span style="color:#2980b9">int</span> fak)<span style="color:#3f8058">{</span>
<span style="color:#2980b9">int</span> temp, counter;
counter=grenze;
temp=<span style="color:#f67400">1</span>;
<span style="font-weight:bold">while</span>(counter><span style="color:#f67400">1</span>)
temp*=(counter--);
fak=temp;
<span style="color:#3f8058">}</span>
<span style="font-weight:bold">function</span> mach_mal(<span style="font-weight:bold">inout</span> <span style="color:#2980b9">int</span> i)<span style="color:#3f8058">{</span>
<span style="font-weight:bold">if</span>(i==<span style="color:#f67400">3</span>) i=<span style="color:#f67400">6</span>;
<span style="font-weight:bold">else</span> <span style="font-weight:bold">if</span>(i==<span style="color:#f67400">4</span>) i=<span style="color:#f67400">24</span>;
<span style="font-weight:bold">else</span> <span style="font-weight:bold">if</span>(i>=<span style="color:#f67400">5</span>) jetzt_mach_schon(i,i);
<span style="color:#7a7c7d">// 1 und 2: gleich.</span>
<span style="color:#3f8058">}</span>
<span style="font-weight:bold">function</span> mach_nochmal(<span style="font-weight:bold">in</span> <span style="color:#2980b9">int</span> k1, <span style="font-weight:bold">out</span> <span style="color:#2980b9">int</span> k2, <span style="font-weight:bold">in</span> <span style="color:#2980b9">int</span> vektor)<span style="color:#3f8058">{</span>
<span style="color:#2980b9">int4</span> hossa;
hossa=k1;
<span style="color:#2980b9">int4</span> hasso;
hasso=-vektor;
k2=(hasso|hossa>k1)?k1:-k1; <span style="color:#7a7c7d">//parse error before `|'</span>
<span style="color:#7a7c7d">// k2=(hasso||hossa>k1)?k1:-k1; //only works on expressions of equal dimension</span>
<span style="color:#3f8058">}</span>
<span style="font-weight:bold">CONTROL</span>
<span style="font-weight:bold">forall</span> (<span style="color:#2980b9">int</span> i <span style="font-weight:bold">in</span> inputs_int:<span style="font-weight:bold">1D</span>) <span style="font-weight:bold">do</span> <span style="color:#3f8058">{</span>
mach_mal(i);
<span style="color:#3f8058">}</span>
<span style="font-weight:bold">forall</span> (<span style="color:#2980b9">int</span> j <span style="font-weight:bold">in</span> inputs_int:<span style="font-weight:bold">1D</span>;
<span style="color:#2980b9">int</span> i <span style="font-weight:bold">in</span> nur_out:<span style="font-weight:bold">1D</span>;
<span style="color:#2980b9">int</span> vektor <span style="font-weight:bold">in</span> nur_in:<span style="font-weight:bold">1D</span>) <span style="font-weight:bold">do</span> <span style="color:#3f8058">{</span>
mach_nochmal(j,i, vektor);
<span style="color:#3f8058">}</span>
</pre></body></html>
|
