Skip to content

Instantly share code, notes, and snippets.

Khoo Yit Phang khooyp

Block or report user

Report or block khooyp

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@khooyp
khooyp / incremental_eval_order_test.ml
Last active Apr 26, 2017
Example of Incremental's height-based evaluation order leading to change propagation inconsistent with from-scratch evaluation, compared to Classic Adapton
View incremental_eval_order_test.ml
module Inc = Incremental_lib.Incremental.Make ()
open Inc
let make init =
let num = 4 in
let den_v = Var.create init in
let den = Var.watch den_v in
(* computes "if den = 0 then 0 else num / den" *)
let div = bind den (fun den -> return (num / den)) in
You can’t perform that action at this time.