From 6c9ada0614d00fdb4ec8e44c6369bc1f60027761 Mon Sep 17 00:00:00 2001
From: "Glenn Y. Rolland" <glenux@glenux.net>
Date: Wed, 27 Jul 2016 12:21:02 +0200
Subject: [PATCH] Up.

---
 coders-strike-back/code2.ml | 91 +++++++++++++++++++++++++++++++++++++
 1 file changed, 91 insertions(+)
 create mode 100644 coders-strike-back/code2.ml

diff --git a/coders-strike-back/code2.ml b/coders-strike-back/code2.ml
new file mode 100644
index 0000000..92df9ca
--- /dev/null
+++ b/coders-strike-back/code2.ml
@@ -0,0 +1,91 @@
+(* Auto-generated code below aims at helping you parse *)
+(* the standard input according to the problem statement. *)
+let open Printf in
+let debug = fprintf stderr in
+
+let first_turn = ref true in
+let old_x = ref 0 in
+let old_y = ref 0 in
+
+(* game loop *)
+while true do
+    (* nextcheckpointx: x position of the next check point *)
+    (* nextcheckpointy: y position of the next check point *)
+    (* nextcheckpointdist: distance to the next checkpoint *)
+    (* nextcheckpointangle: angle between your pod orientation and the direction of the next checkpoint *)
+
+    let line = input_line stdin in
+    let x, y, nextcheckpointx, nextcheckpointy, nextcheckpointdist, nextcheckpointangle = 
+        Scanf.sscanf line "%d %d %d %d %d %d" (fun x y nextcheckpointx nextcheckpointy nextcheckpointdist nextcheckpointangle -> (x, y, nextcheckpointx, nextcheckpointy, nextcheckpointdist, nextcheckpointangle)) 
+    in
+
+    if !first_turn then begin
+        old_x := x ;
+        old_y := y ;
+        first_turn := false
+    end ;
+    
+    let d_x = x - !old_x in
+    let d_y = y - !old_y in
+    
+    let future_x = x + 2 * d_x in
+    let future_y = x + 2 * d_y in
+        
+    let line = input_line stdin in
+    let opponentx, opponenty = Scanf.sscanf line "%d %d" (fun opponentx opponenty -> (opponentx, opponenty)) in
+    
+    (* Write an action using print_endline *)
+    (* To debug: prerr_endline "Debug message"; *)
+    
+    let ckpt_ray = 600 in
+
+    (* You have to output the target position *)
+    (* followed by the power (0 <= thrust <= 100) *)
+    (* i.e.: "x y thrust" *)
+    let is_here = nextcheckpointdist < ckpt_ray in
+    let is_near = nextcheckpointdist < ckpt_ray * 4 in
+    let is_far = nextcheckpointdist >= ckpt_ray * 6 in
+
+    let is_aligned = nextcheckpointangle > -5 && nextcheckpointangle < 5 in
+    let is_near_aligned = nextcheckpointangle > -15 && nextcheckpointangle < 15 in
+    let is_wide_aligned = nextcheckpointangle > -30 && nextcheckpointangle < 30 in
+
+    let is_aside = nextcheckpointangle > -60 || nextcheckpointangle < 60 in
+    let is_behind = nextcheckpointangle >= 90 || nextcheckpointangle <= -90 in
+    let use_boost = is_aligned && is_far in
+    
+    let target_x = (future_x + nextcheckpointx) / 2 in
+    let target_y = (future_y + nextcheckpointy) / 2 in
+    
+    debug "angle = %d\n%!" nextcheckpointangle ;
+    
+    let thrust = 
+        (*
+        if is_aligned && is_far then 100
+        else if is_aligned && is_near then 80
+        
+        else if is_near_aligned && is_far then 80
+        else if is_near_aligned && is_near then 70
+
+        else if is_wide_aligned && is_far then 60
+        else if is_wide_aligned && is_near then 50
+
+        else if is_aside then 40
+        else 
+        
+        *)
+        
+        if is_aside then 20
+        else if is_behind then 2
+        else 100
+    in
+    
+    let power_str = match use_boost with
+        | false -> string_of_int thrust
+        | true -> "BOOST"
+    in
+    
+    printf "%d %d %s\n%!" target_x target_y power_str ;
+    ();
+done;
+