davidgrenier

open System;
open System.Diagnostics;

[<EntryPoint>]
let main argv = 
    let rec cc amount coins =
        match (amount, coins) with
        | (0,_) -> 1
        | (_,[]) -> 0
        | (amount,_) when amount < 0 -> 0

davidgrenier

open System;
open System.Diagnostics;

[<EntryPoint>]
let main argv = 
    let rec cc amount coins =
        match (amount, coins) with
        | (0,_) -> 1
        | (_,[]) -> 0
        | (amount,_) when amount < 0 -> 0

davidgrenier

open System
open System.Diagnostics

let inline (|LessThan|_|) n = function
    | x when x < n -> Some()
    | _ -> None

let rec cc amount coins =
    match amount, coins with
    | 0, _ -> 1

davidgrenier

let filelist = pasvRead src_site resp 
let sitelist = deserialize "sites"

sitelist |> Seq.filter (fun x -> x <> src_site)
|> Seq.iter (fun x -> distribute src_site rls filelist x)