30 lines
768 B
Plaintext
30 lines
768 B
Plaintext
001: type rec: [character: x; integer: y]
|
|
002:
|
|
003: type T2: rec -> integer
|
|
004:
|
|
005: type main: string -> integer
|
|
006: function entry: main
|
|
007: function bar: T2
|
|
008:
|
|
009: bar (r,s) := {
|
|
010: return 0;
|
|
011: }
|
|
012:
|
|
013: entry (arg) := {
|
|
014: [ Boolean: x ; Boolean: y; Boolean: z;Boolean: t]
|
|
015: while ( ((x = y)) < ( z | t ) ) {
|
|
016: while ( (x & y) = ( z < t ) ) {
|
|
017: y := y;
|
|
018: }
|
|
019: (*
|
|
020: x := x;
|
|
021: *)
|
|
022: if ( (x = y) = ( z < t ) ) then {
|
|
023: x := 1;
|
|
024: } else {
|
|
025: x := 1;
|
|
026: }
|
|
027: }
|
|
028: return 0;
|
|
029: }
|