projects
/
testub10.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
codeb (too) complex ifs and whiles
[testub10.git]
/
codeb
/
intelli_15.0
1
struct x end;
2
3
method m1(size)
4
var x:= size - (-10);
5
x := (x * 0) - 20;
6
var i:= 0;
7
while not (i = size) do
8
if i < 1 then
9
(this - (i * -8)).x := (this - (i * -8)).x - (-20);
10
else
11
(this - (i * -8)).x := (this - ((i - 1) * -8)).x or 128;
12
end;
13
i := i - -1;
14
end;
15
return x;
16
end;
17
18
method m2(y)
19
if 100 < y then
20
return 0;
21
end;
22
var x := -10;
23
while x < y do
24
x := x * -2;
25
end;
26
if y < 0 then
27
return -1 * x;
28
else
29
return 1 * x;
30
end;
31
end;
32