Aly-Bocar Cissé essic

## main.hs
-- http://codingdojo.org/kata/FooBarQix/
{-# LANGUAGE OverloadedStrings #-}

import Data.Text as T
import qualified Data.Map.Strict as M
import qualified Data.Char as C
import qualified Data.List as L
import Data.Maybe (catMaybes, fromMaybe)

newtype Digit = D Text

## install.sh
sudo apt-get update
sudo apt-get install curl -y
sudo apt-get install emacs25-nox -y
sudo apt-get install git -y
curl -sSL https://get.haskellstack.org/ | sh

## main.fs
module Implem04

  open System

  type Age = int
  type FirstName = string
  type LastName = string

  type Person =
    { FirstName : FirstName

## main.fs
module Implem03

  open System

  type Age = int
  type FirstName = string
  type LastName = string

  type Person =
    { FirstName : FirstName

## main.fs
module Implem02

  open System

  type Age = int
  type FirstName = string
  type LastName = string

  type Person =
    { FirstName : FirstName

## main.fs
module Implem01

  open System

  //These are type aliases
  type Age = int
  type FirstName = string
  type LastName = string

  //This is a product type : Record

## demo-v0.fs
// In here we want to show informations about collaborators in some consulting organization.
module BasicDemo

  //Basic import, useful to access "String" by example"
  open System

  //This is type alias
  type Age = int
  type FirstName = string
  type LastName = string

## WorriedDarkcyanTransversal.cs
using System;
using System.Linq;
using System.Collections.Generic;

public enum State {
  Invalid = 0,
  Ok = 1,
  Ignored = 2,
  NOk = 3,
  NN = 3

## Haskell playground.hs
{-# LANGUAGE NoImplicitPrelude #-}
import Data.List (find)
import Data.Monoid ((<>))
import Data.Either (Either(..))
import Data.Int (Int)
import System.IO (IO,putStrLn)
import Data.String (String)
import Text.Show (show,Show)
import Data.Maybe (maybe)
import Data.Function ( (.), ($))

## Haskell playground.hs
race :: Int -> Int -> Int -> Maybe (Int, Int, Int)
race v1 v2 g
  | v1 >= v2 = Nothing
  | otherwise =
    let ts = convertToSecondsThenFloorIt $ calculateTimeToCatchUpInHours v1 v2 g
        h =  getHours ts
        m = getMinutes ts
        s = getSeconds ts
    in Just (h, m, s)
  where