Salvador Abreu / sim2c

Blame view

ref-impl/x/rev.s 401 Bytes
Edit Raw Normal View History Permalink
f2c4dc81   Salvador Abreu   added most of the... 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
# reverse an array.

program = map () -> bool [
    ar : [100] int;
    n := readInt ();

    k := 0;
    * [ k < n -> ar[k] := readInt(); k := k+1 ];

    ? [ readBool() -> i := 0;
		      * [ i < n/2 -> (ar[i], ar[n-i-1]) := (ar[n-i-1], ar[i]);
				     writeInt(i); writeChar(10);
				     i := i+1 ] ];

    k := 0;
    * [ k < n -> writeInt(ar[k]); writeChar(32); k := k+1 ];
    writeChar(10)
]