seperate haskell und purescript directories

2020-04-19 05:51:24 +02:00
parent 7dfe85a5fd
commit 49481147ff
67 changed files with 5 additions and 0 deletions
--- a/purescript/code_royal/src/ffi/GameInput.js
+++ b/purescript/code_royal/src/ffi/GameInput.js
@@ -0,0 +1,77 @@
+"use strict";
+
+exports.readline = readline
+
+exports.parseInitInput = function() {
+    var sites = []
+    var numSites = parseInt(readline());
+    for (var i = 0; i < numSites; i++) {
+        var inputs = readline().split(' ');
+        var siteId = parseInt(inputs[0]);
+        var x = parseInt(inputs[1]);
+        var y = parseInt(inputs[2]);
+        var radius = parseInt(inputs[3]);
+        sites.push({
+            id: siteId,
+            x: x,
+            y: y,
+            radius: radius,
+        })
+    }
+    return {
+        numSites: numSites,
+        sites: sites,
+    }
+};
+
+exports.parseInput = function(numSites) {
+    return function() {
+        var inputs = readline().split(' ');
+        var gold = parseInt(inputs[0]);
+        var touchedSite = parseInt(inputs[1]); // -1 if none
+        var sites = []
+        for (var i = 0; i < numSites; i++) {
+            var inputs = readline().split(' ');
+            var siteId = parseInt(inputs[0]);
+            var mineGold = parseInt(inputs[1]); // The total number of gold remaining to be mined from this site (-1 if unknown)
+            var maxMineSize = parseInt(inputs[2]); // The maximum rate that a mine can extract gold from this site (-1 if unknown)
+            var structureType = parseInt(inputs[3]); // -1 = No structure, 2 = Barracks
+            var owner = parseInt(inputs[4]); // -1 = No structure, 0 = Friendly, 1 = Enemy
+            var param1 = parseInt(inputs[5]);
+            var param2 = parseInt(inputs[6]);
+            sites.push({
+                id: siteId,
+                gold: mineGold,
+                maxMineSize: maxMineSize,
+                structureType: structureType,
+                owner: owner,
+                param1: param1,
+                param2: param2,
+            })
+        }
+        var numUnits = parseInt(readline());
+        var units = []
+        for (var i = 0; i < numUnits; i++) {
+            var inputs = readline().split(' ');
+            var x = parseInt(inputs[0]);
+            var y = parseInt(inputs[1]);
+            var owner = parseInt(inputs[2]);
+            var unitType = parseInt(inputs[3]); // -1 = QUEEN, 0 = KNIGHT, 1 = ARCHER
+            var health = parseInt(inputs[4]);
+            units.push({
+                x: x,
+                y: y,
+                owner: owner,
+                unitType: unitType,
+                health: health
+            })
+        }
+
+        return {
+            gold: gold,
+            touchedSite: touchedSite,
+            sites: sites,
+            units: units
+        }
+    }
+};
--- a/purescript/code_royal/src/ffi/GameInput.purs
+++ b/purescript/code_royal/src/ffi/GameInput.purs
@@ -0,0 +1,60 @@
+module GameInput where
+
+import Effect (Effect)
+
+type GameInitInput =
+    { numSites :: Int
+    , sites :: Array SiteInfo
+    }
+
+type GameInput =
+    { gold :: Int
+    , touchedSite :: Int -- -1 if none
+    , sites :: Array ProtoSite
+    , units :: Array Minion
+    }
+
+type SiteInfo = 
+    { id :: Int
+    , x :: Int
+    , y :: Int
+    , radius :: Int
+    }
+
+type ProtoSite = 
+    { id :: Int
+    , gold :: Int
+    , maxMineSize :: Int
+    , structureType :: Int
+    , owner :: Int
+    , param1 :: Int
+    , param2 :: Int
+    }
+
+type Site =
+    { id :: Int
+    , x :: Int
+    , y :: Int
+    , radius :: Int
+    , gold :: Int  -- The total number of gold remaining to be mined from this site (-1 if unknown)
+    , maxMineSize :: Int  -- The maximum rate that a mine can extract gold from this site (-1 if unknown)
+    , structureType :: Int  -- -1 No structure, 0 Goldmine, 1 Tower, 2 Barracks
+    , owner :: Int  -- -1 No structure, 0 friendly, 1 enemy
+    , param1 :: Int  -- -1 No structure, else turns till training
+    , param2 :: Int  -- -1 No structure, barracks: 0 knight 1 archer 2 giant
+    , lvl :: Int -- -1 whatever, otherwise curr. mine/tower lvl
+    }
+
+type Minion =
+    { x :: Int
+    , y :: Int
+    , owner :: Int -- 0 = Friendly; 1 = Enemy
+    , unitType :: Int -- -1 = QUEEN, 0 = KNIGHT, 1 = ARCHER, 2 = GIANT
+    , health :: Int
+    }
+
+foreign import parseInitInput :: Effect GameInitInput
+
+foreign import parseInput :: Int -> Effect GameInput
+
+foreign import readline :: Effect String