fpellet

(ns card-game-war.game)

;; feel free to use these cards or use your own data structure
(def suits [:spade :club :diamond :heart])
(def ranks [2 3 4 5 6 7 8 9 10 :jack :queen :king :ace])
(def cards
  (for [suit suits
        rank ranks]
    [suit rank]))

fpellet

const Categories = {
  Pop: 'Pop',
  Science: 'Science',
  Sports: 'Sports',
  Rock: 'Rock',
}

var Game = function () {
  var players = new Array();
  var playerPositions = new Array(6);

fpellet

// Proposal 1
[| 1; 2; 3; 4; 5; 666 |] |> Should.contain [3; 5; 666]
[| 1; 2; 3; 2 |] |> Should.isOnlyMadeOf [3; 2; 1]

Some 1 |> should [
  Should.hasAValue
  Which.IsPositive
  And.IsEqualTo 1
]

fpellet

module CommandParser

type Argument = 
| Verbose
| Url of string
| Port of int

type Parser = string list -> Argument list

let private apply parsersRunner parsers =

fpellet

Keybase proof

I hereby claim:

• I am fpellet on github.
• I am florentpellet (https://keybase.io/florentpellet) on keybase.
• I have a public key whose fingerprint is D868 04D5 D41C 1A42 E18A BB57 533E 3F0C C29B 941B

To claim this, I am signing this object:

fpellet

type Direction = { 
    pivotLeft : Direction
    pivotRight: Direction
    move: Position -> Position
}
and Position = { X: int; Y: int; Direction: Direction }

let rec N = 
    {
        pivotLeft = W

fpellet

open System

type Player = { Num: int }
type GameParameters = { PlayersNb : int; CurrentPlayer: Player; DronesNb: int; ZonesNb: int }

type Position = { X: int; Y: int }

type Zone = 
    | FreeZone of ZoneCoordonne
    | ControlledZone of ZoneCoordonne * Player