espio999

#load "memo.fsx"
#load "fibonacci.fsx"

open memo
open fibonacci
open System.Diagnostics

let memo_fib = memoize fib
let memo_fib_tail = memoize fib_tail_recursion

espio999

module fibonacci

let rec fib n =
  match n with
  | 0 | 1 -> n
  | n -> fib (n-1) + fib (n-2)

let fib_tail_recursion n =
  let rec loop acc1 acc2 n =
    match n with

espio999

module memo

open System.Collections.Generic

let memoize fn =
  //let cache = new System.Collections.Generic.Dictionary<_,_>()
  let cache = new Dictionary<_,_>()
  printfn "counter: %A" cache.Count
  
  fun x ->

espio999

let memoize fn =
  let cache = new System.Collections.Generic.Dictionary<_,_>()
  printfn "counter: %A" cache.Count
  
  fun x ->
    printfn "%A is received" x
    match cache.TryGetValue x with
    | true, v -> v
    | false, _ -> let v = fn (x)
                  cache.Add(x,v)

espio999

let memoize fn =
  let cache = new System.Collections.Generic.Dictionary<_,_>()
  printfn "counter: %A" cache.Count
  
  fun x ->
    printfn "%A is received" x
    match cache.TryGetValue x with
    | true, v -> v
    | false, _ -> let v = fn (x)
                  cache.Add(x,v)

espio999

let memoize fn =
  let cache = new System.Collections.Generic.Dictionary<_,_>()
  printfn "counter: %A" cache.Count
  
  fun x ->
    printfn "%A is received" x
    match cache.TryGetValue x with
    | true, v -> v
    | false, _ -> let v = fn (x)
                  cache.Add(x,v)

espio999

let fib n =
  let rec loop acc1 acc2 n =
    match n with
    | 0 -> acc1
    | 1 -> acc2
    | _ -> loop acc2 (acc1 + acc2) (n - 1)
    
  loop 0 1 n

fib 40 |> printfn "%A"

espio999

let rec fib n =
  match n with
  | 0 | 1 -> n
  | n -> fib (n-1) + fib (n-2)

fib 40 |> printfn "%A"

espio999

type A() = class end
type B() = inherit A()
type C() = inherit A()

let evaluation (obj: A) =
  match obj with
  | :? B -> "It's a B"
  | :? C -> "It's a C"
  | :? A -> "It's a A"
  | _ -> "nothing"

espio999

let detect1 x =
    match x with
    | 1 -> printfn "Found a 1!"
    | (var1 : int) -> printfn "%d" var1

let my_list = [0..9]

for i in my_list do detect1 i