essic

-- 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

essic

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

essic

module Implem04

  open System

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

  type Person = 
    { FirstName : FirstName 

essic

module Implem03

  open System

  type Age = int
  type FirstName = string
  type LastName = string
  
  type Person = 
    { FirstName : FirstName 

essic

module Implem02

  open System
  
  type Age = int
  type FirstName = string
  type LastName = string
  
  type Person = 
    { FirstName : FirstName 

essic

module Implem01

  open System
  
  //These are type aliases
  type Age = int
  type FirstName = string
  type LastName = string
  
  //This is a product type : Record

essic

// 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

essic

using System;
using System.Linq;
using System.Collections.Generic;

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

essic

{-# 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 ( (.), ($))

essic

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