nx_fbench_t3a.nx source
↩ module page · 46 lines · 892 B
1fn main() i32 {
2 str := "k1=7;k2=21;bad;k3=14"
3 sum := 0
4 bad := 0
5 i := 0
6
7 for i < 20 {
8 has_eq := 0
9 value := 0
10
11 for i < 20 && str[i] != ';' {
12 if str[i] == '=' {
13 has_eq = 1
14 i = i + 1
15 for i < 20 && str[i] != ';' {
16 if str[i] >= '0' && str[i] <= '9' {
17 value = value * 10 + (str[i] - '0')
18 }
19 i = i + 1
20 }
21 break
22 }
23 i = i + 1
24 }
25
26 if has_eq == 1 {
27 sum = sum + value
28 } else {
29 bad = bad + 1
30 }
31
32 if i < 20 && str[i] == ';' {
33 i = i + 1
34 } else {
35 break
36 }
37 }
38
39 puts("FBENCH-T3 sum=")
40 puti(sum)
41 puts(" bad=")
42 puti(bad)
43 puts("\n")
44
45 return 0
46}