Code Royal - initial commit

This commit is contained in:
weiss
2020-04-09 08:06:50 +02:00
parent 7fe78eaf40
commit 80038b3883
13 changed files with 453 additions and 2 deletions

View File

@@ -0,0 +1,73 @@
"use strict";
exports.readline = readline
exports.parseInitInput = function() {
var sites = []
var numSites = parseInt(readline());
for (let 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, y,
radius,
})
}
return {
numSites,
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 (let i = 0; i < numSites; i++) {
var inputs = readline().split(' ');
var siteId = parseInt(inputs[0]);
var ignore1 = parseInt(inputs[1]); // used in future leagues
var ignore2 = parseInt(inputs[2]); // used in future leagues
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,
structureType,
owner,
param1,
param2,
})
}
var numUnits = parseInt(readline());
var units = []
for (let 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, y,
owner,
unitType,
health
})
}
return {
gold,
touchedSite,
sites,
units,
}
}
};

View File

@@ -0,0 +1,44 @@
module GameInput where
import Effect (Effect)
type GameInitInput =
{ numSites :: Int
, sites :: Array SiteInfo
}
type GameInput =
{ gold :: Int
, touchedSite :: Int -- -1 if none
, sites :: Array Site
, units :: Array Minion
}
type SiteInfo =
{ id :: Int
, x :: Int
, y :: Int
, radius :: Int
}
type Site =
{ id :: Int
, structureType :: Int -- -1 No structure, 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
}
type Minion =
{ x :: Int
, y :: Int
, owner :: Int -- 0 = Friendly; 1 = Enemy
, unitType :: Int -- -1 = QUEEN, 0 = KNIGHT, 1 = ARCHER
, health :: Int
}
foreign import parseInitInput :: Effect GameInitInput
foreign import parseInput :: Int -> Effect GameInput
foreign import readline :: Effect String