Ton

1
var f(a, b, c, d, e, f) {
2
  var D = a * d - b * c;
3
  var Dx = e * d - b * f;
4
  var Dy = a * f - e * c;
5
  return (Dx / D, Dy / D);
6
}
7

8
var test8() {
9
  return -4;
10
}
11

12
var test3(a) {
13
  int x = a * 10;
14
  a += 1;
15
  int x = x + 3;
16
  {
17
    int y = x + 2;
18
    x = y + a;
19
  }
20
  int z = 5;
21
  return x * (z + a);
22
}
23

24
var test2(a) {
25
  (var x, var y) = a /% 10;
26
  return x + y;
27
}
28

29
var test2a(a) {
30
  var (x, y) = a /% 10;
31
  return x + y;
32
}
33

34
var test2b(a) {
35
  var z = a /% 10;
36
  return _+_ z;
37
}
38

39
var test2c(a) {
40
  return _+_ (a /% 10);
41
}
42

43
var twice(f, x) {
44
  return f (f x);
45
}
46

47
var test() {
48
  return f(1, 2, 3, 4, 7, 17);
49
}
50

51
var rot(a, b, c) {
52
  return (b, c, a);
53
}
54

55
var rot_int(int a, int b, int c) {
56
  return (b, c, a);
57
}
58

59
(int, _) dup_int(x) {
60
  return (x, x);
61
}
62

63
var calc_phi() {
64
  var n = 10;
65
  n *= n;
66
  n *= n;
67
  n *= n;
68
  n *= n;
69
  n *= n;
70
  n *= n;
71
  var p = var q = 1;
72
  (p, q) = (q, p + q);
73
  (p, q) = (q, p + q);
74
  (p, q) = (q, p + q);
75
  (p, q) = (q, p + q);
76
  (p, q) = (q, p + q);
77
  (p, q) = (q, p + q);
78
  (p, q) = (q, p + q);
79
  return muldivr(p, n, q);
80
}
81

82
var t0() {
83
  var x = 1;
84
  return x;
85
}
86

87
var t1() {
88
  return 2;
89
}
90

91
var t2(int x) {
92
  return 2;
93
  return x += 1;
94
}
95

96
var t3(int x, var y) {
97
  int z = (x + y) * (x - y);
98
}
99

100
var t3b(int x, var y) {
101
  int z = (x + y) * (x - y);
102
  return z;
103
}
104

105
var t4((int, int, int) z) {
106
  var (_, u, _) = z;
107
  return u;
108
}
109

110
int foo(int t);
111

112
var t5(x) {
113
  var f = t2;
114
  return twice(f, x) * f(x);
115
}
116

117
var proj1(a, b) { return a; }
118
var proj1a(a, b) { var c = a; return c; }
119
var proj1b(a, b) { int c = a; return c; }
120
var proj1c(a, b) { var c = a + 2; return c; }
121
var proj1d(a, b) { return a + 2; }
122
var proj1e(int a, _) { return a; }
123
int proj1f(_ a, int) { return a; }
124
int proj1g(int, a) { return a; }
125

126
var test1(a) {
127
  a = a + 1;
128
  return a;
129
}
130

131