Translate easy programs to Scheme

2 files changed, 0 insertions, 110 deletions

diff --git a/others/other/README.md b/others/other/README.md
index 067ea64..a50ae60 100644
--- a/others/other/README.md
+++ b/others/other/README.md
@@ -82,54 +82,6 @@ liên tiếp chọn được.
 | 5<br>2 9 3 7 4     |     3    | Chọn dãy 2, 3, 4                     |
 | 7<br>1 2 4 7 6 0 8 |     5    | Thay 0 bởi 5, chọn dãy 4, 5, 6, 7, 8 |
 
-## Trò chơi với dãy số
-
-Hai bạn học sinh trong lúc nhàn rỗi nghĩ ra trò chơi sau đây:
-
-* Mỗi bạn chọn trước một dãy số gồm n số nguyên. Giả sử dãy số mà bạn thứ nhất
-  chọn là (b<sub>1</sub>, b<sub>2</sub>, …, b<sub>n</sub>) còn dãy số bạn thứ
-  hai chọn là (c<sub>1</sub>, c<sub>2</sub>, …, c<sub>n</sub>).
-* Mỗi lượt chơi mỗi bạn đưa ra một số hạng trong dãy số của mình. Nếu bạn thứ
-  nhất đưa ra số hạng b<sub>i</sub>, còn bạn thứ hai đưa ra số hạng
-  c<sub>j</sub> thì giá của lượt chơi đó sẽ là |b<sub>i</sub> + c<sub>j</sub>|.
-
-### Yêu cầu
-
-Hãy xác định giá nhỏ nhất của một lượt chơi trong số các lượt chơi có thể.
-
-### Dữ liệu
-
-Tệp `GAME.INP` gồm ba dòng:
-
-* Dòng đầu tiên chứa số nguyên dương n.
-* Dòng thứ hai chứa dãy số nguyên b<sub>1</sub>, b<sub>2</sub>, …,
-  b<sub>n</sub>.
-* Dòng thứ ba chứa dãy số nguyên c<sub>1</sub>, c<sub>2</sub>, …,
-  c<sub>n</sub>.
-
-### Kết quả
-
-Tệp `GAME.OUT` gồm một dòng ghi giá nhỏ nhất tìm được.
-
-### Giới hạn
-
-* n ≤ 10<sup>5</sup>.
-* |b<sub>i</sub>|, |c<sub>j</sub>| < 2<sup>63</sup> ∀ 1 ≤ i, j ≤ n.
-
-### Ví dụ
-
-|     GAME.INP     | GAME.OUT |
-| ---------------- | :------: |
-| 2<br>1 -2<br>2 3 |     0    |
-
-#### Giải thích
-
-Dãy số bạn thứ nhất chọn là (1, −2) còn dãy số mà bạn thứ hai chọn là (2,3).
-
-Khi đó các khả năng có thể của một lượt chơi là (1,2), (1,3), (−2,2), (−2,3).
-Như vậy, giá nhỏ nhất của một lượt chơi trong số các lượt chơi có thể là 0
-tương ứng với giá của lượt chơi (−2,2).
-
 ## Tìm đoạn thẳng v2
 
 Trên 1 đoạn trục số [−c, c], cho N đoạn thẳng, đoạn thứ i là [a<sub>i</sub>,
diff --git a/others/other/game.pas b/others/other/game.pas
deleted file mode 100644
index 5be1da2..0000000
--- a/others/other/game.pas
+++ /dev/null
@@ -1,62 +0,0 @@
-uses
-  sortnfind;
-
-var
-  f: text;
-  n, i, j: smallint;
-  b: array of int64;
-  c: int64;
-  a: qword = 0;
-
-
-function sign(x: int64): shortint;
-  begin
-    if x < 0 then
-      exit(-1);
-    exit(1)
-  end;
-
-
-function min(
-  x: qword;
-  y, z: int64
-): qword;
-
-  var
-    tmp: qword;
-
-  begin
-    if sign(y) = sign(z) then
-      tmp := abs(y) + abs(z)
-    else if abs(y) < abs(z) then
-      tmp := abs(z) - abs(y)
-    else
-      tmp := abs(y) - abs(z);
-
-    if tmp < x then
-      exit(tmp);
-    exit(x)
-  end;
-
-
-begin
-  assign(f, 'GAME.INP');
-  reset(f);
-  readln(f, n);
-  setlength(b, n);
-  for i := 0 to n - 1 do
-    read(f, b[i]);
-  qsort(b);
-  for i := 0 to n - 1 do
-    begin
-      read(f, c);
-      for j := 0 to n - 1 do
-        a := min(a, b[j], c)
-    end;
-  close(f);
-
-  assign(f, 'GAME.OUT');
-  rewrite(f);
-  writeln(f, a);
-  close(f)
-end.