erhangundogan

Aphorisms from Shaonian Ge Xing

• Observe the galaxy above your head and the soil beneath your feet. Thus found the law of nature. - "I Ching, Xi Ci, Part 1"

• Similar voices make an echo, similar souls make a strong bond. - "I Ching, Qian, Wenyan"

• A noble one suppresses evil and promotes good, in harmony with the will of Heaven. - "Book of Changes, Great Possession"

• Understanding the discussion of life and death. - "I Ching, Xi Ci, Part 1"

erhangundogan

use std::io;
use rand::Rng;

fn guess_number() -> i32 {
    let mut guess = String::new();
    println!("What is your guess?");
    io::stdin().read_line(&mut guess).expect("Could not read line");
    return match guess.trim().parse() {
        Ok(n) => n,
        Err(_e) => {

erhangundogan

apiVersion: storage.k8s.io/v1
kind: StorageClass
metadata:
  name: openebs-lvmpv
allowVolumeExpansion: true
parameters:
  storage: "lvm"
  volgroup: "vg0"
reclaimPolicy: Retain
volumeBindingMode: WaitForFirstConsumer

erhangundogan

Graph Algorithms

• Breadth First Search (BFS)
• Depth First Search (DFS)
• Shortest Path from source to all vertices Dijkstra
• Shortest Path from every vertex to every other vertex Floyd Warshall
• Minimum Spanning tree Prim
• Minimum Spanning tree Kruskal
• Topological Sort

erhangundogan

(* http://alaska-kamtchatka.blogspot.com/2012/07/theorems-for-free-monad-edition.html *)

module type FUNCTOR = sig
  type 'a t
  val fmap : ('a -> 'b) -> ('a t -> 'b t)
end

module type APPLICATIVE = sig
  type 'a t
  val pure : 'a -> 'a t

erhangundogan

(executable
  (name main)
  (preprocess (pps ppx_deriving.show)))

erhangundogan

let extract_words str =
  let re = Re.Pcre.regexp "\\w+" in
  let groups = Re.all re str in
  List.map
    (fun g ->
      let word = Re.Group.get g 0 in
      let pos = Re.Group.start g 0 in
      (word, pos)
    ) groups

erhangundogan

type t = [ `Op of string | `V of int ]

let string_to_t (i: string) : t =
  match i with
  | "+"
  | "-"
  | "*"
  | "/" as o -> `Op o
  | v -> 
    try `V (int_of_string v)

erhangundogan

(* https://ocaml.org/manual/expr.html#sss:expr-variants *)
type t =
| Var of string
| Not of t
| And of t * t
| Or of t * t

let test = And
  (Var "x", Not (Or
    (Var "y", Var "z")

erhangundogan

module P = struct
  type t =
    | Null
    | Int of int
    | Float of float

  let sum expr1 expr2 : t =
    match expr1, expr2 with
    | Int a, Int b -> Int (a + b)
    | Float a, Float b -> Float (a +. b)