Guest User

Untitled

a guest
May 30th, 2018
159
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
OCaml 0.30 KB | None | 0 0
  1. - : cfg =
  2. ([("0", BAssignVar ("i", N 1)); ("1", BAssignVar ("f", N 1));
  3.   ("3", BAssignVar ("f", Mul (Val "f", Val "i")));
  4.   ("4", BAssignVar ("i", Add (Val "i", N 1)));
  5.   ("2", BGuard (Or (Lt (Val "i", Val "n"), Eq (Val "i", Val "n"))))],
  6.  [("0", "1"); ("1", "2"); ("2", "3"); ("3", "4"); ("4", "2")])
Add Comment
Please, Sign In to add comment