From 318184dbda0658d8afae6dd3c13a0718382726a1 Mon Sep 17 00:00:00 2001
From: Raphael McSinyx <vn.mcsinyx@gmail.com>
Date: Mon, 9 Jan 2017 10:47:37 +0700
Subject: Add NTU/{pali2,editpic}.c and update README.md

---
 9/TP-HN-2014/cau4.pas | 89 ---------------------------------------------------
 1 file changed, 89 deletions(-)
 delete mode 100644 9/TP-HN-2014/cau4.pas

(limited to '9/TP-HN-2014/cau4.pas')

diff --git a/9/TP-HN-2014/cau4.pas b/9/TP-HN-2014/cau4.pas
deleted file mode 100644
index 1e79c04..0000000
--- a/9/TP-HN-2014/cau4.pas
+++ /dev/null
@@ -1,89 +0,0 @@
-var
-  f: text;
-  n, k, i: smallint;
-  a, c: array of longint;
-  b: array of boolean;
-  d: longint = 0;
-
-
-procedure foo(
-  idx: smallint;
-  delta: longint
-);
-
-  var
-    i: smallint;
-    next: byte = 1;
-
-  begin
-    if (idx = k + 1) and (k > 0) then
-      delta := delta + abs(c[k] - c[k - 1]);
-
-    if delta >= d then
-      exit;
-
-    if idx + 1 = k then
-      inc(next);
-
-    if idx = n then
-      begin
-        d := delta;
-        exit
-      end;
-
-    for i := 0 to n - 2 do
-      if b[i] then
-        begin
-          b[i] := false;
-          c[idx] := a[i];
-
-          if idx > 0 then
-            foo(idx + next, delta + abs(c[idx] - c[idx - 1]))
-          else
-            foo(idx + next, 0);
-
-          b[i] := true;
-          c[idx] := 0
-        end
-  end;
-
-
-begin
-  assign(f, 'CAU4.INP');
-  reset(f);
-  readln(f, n, k);
-  setlength(a, n);
-  for i := 0 to n - 1 do
-    read(f, a[i]);
-  close(f);
-
-  setlength(c, n);
-  dec(k);
-  c[k] := a[k];
-
-  for i := 0 to k - 1 do
-    c[i] := 0;
-  for i := k + 1 to n - 1 do
-    c[i] := 0;
-
-  for i := 1 to n - 1 do
-    d := d + abs(a[i] - a[i - 1]);
-
-  for i := k to n - 2 do
-    a[i] := a[i + 1];
-  setlength(a, n - 1);
-
-  setlength(b, n - 1);
-  for i := 0 to n - 2 do
-    b[i] := true;
-
-  if k = 0 then
-    foo(1, 0)
-  else
-    foo(0, 0);
-
-  assign(f, 'CAU4.OUT');
-  rewrite(f);
-  writeln(f, d);
-  close(f)
-end.
-- 
cgit 1.4.1