CoditCompany

// int -> Parser<'a, 'u> -> Parser<'a list, 'u>
let count n p =
    match n with
    | _ when n <= 0 -> preturn []
    | _ -> sequence <| List.replicate n p

CoditCompany

// Parser<('a -> 'b), 'u> -> Parser<'a, 'u> -> Parser<'b, 'u>
let apply fp xp =
    pipe2 fp xp (fun f x -> f x)

// ('a -> Parser<'b, 'u>) -> 'a list -> Parser<'b list, 'u>
let traverse f list =
    let (<*>) = apply
    let retn = preturn
    let cons head tail = head :: tail
     

CoditCompany

// int -> Parser<'a, 'u> -> Parser<'a, 'u> list
let count n p =
    List.replicate n p

CoditCompany

// int -> Parser<'a, 'u> -> Parser<'a list, 'u>
let count n p =
    match n with
    | _ when n <= 0 -> preturn []
    | _ -> 
        let tryTake xs =
            match xs with
            | _ when List.length xs >= n -> preturn <| List.take n xs
            | _ -> fail <| sprintf "Expecting %i number of elements" n

CoditCompany

let countAZ n = regex <| sprintf "[A-Z]{%i}" n
let count09 n = regex <| sprintf "[0-9]{%i}" n

CoditCompany

#r "Newtonsoft.Json"

using System;
using System.Net;
using Newtonsoft.Json;
using System.Collections.Generic;

public static async Task<HttpResponseMessage> Run(HttpRequestMessage request, int orderId, TraceWriter log)
{
   log.Info($"Webhook was triggered!");

CoditCompany

change
|> List.map valueOfCoin
|> List.sum
|> (fun change -> remain + change)
|> (fun actual -> expected = actual)

CoditCompany

change
|> List.map valueOfCoin
|> List.sum
|> (+) remain
|> (=) expected

CoditCompany

let bind f x = function
	| Success x -> f x
	| Failure errs -> Failure errs

let (>>=) x f = bind f x

CoditCompany

let bind twoTrackFunction twoTrackInput = function
	| Success result -> twoTrackFunction result
	| Failure errors -> Failure errors

let (>>=) twoTrackInput twoTrackFunction = 
  bind twoTrackInput twoTrackFunction