let zero = JoyInt 0
let dummy = JoyList [ joy_true; joy_false; j_loop; zero ]
-
(*
let joy_nil = JoyList []
██████╗ ██╗ ██████╗████████╗██╗ ██████╗ ███╗ ██╗ █████╗ ██████╗ ██╗ ██╗
let d = dict_add empty_dict "foo" []
-
(*
██╗ ██╗████████╗██╗██╗ ███████╗
██║ ██║╚══██╔══╝██║██║ ██╔════╝
| JoyInt i -> (i, tail)
| _ -> raise (ValueError "Not an integer."))
-
(*
██████╗ ██████╗ ██╗███╗ ██╗████████╗███████╗██████╗
██╔══██╗██╔══██╗██║████╗ ██║╚══██╔══╝██╔════╝██╔══██╗
let delimiter str i =
i >= String.length str || String.contains "[] " (String.get str i)
-let make_token str index i =
- (Token (String.sub str index (i - index)), i)
+let make_token str index i = (Token (String.sub str index (i - index)), i)
(* string -> int -> int -> token * int *)
let rec tokenize1 str index i =
*)
-
(*
██╗███╗ ██╗████████╗███████╗██████╗ ██████╗ ██████╗ ███████╗████████╗███████╗██████╗
██║████╗ ██║╚══██╔══╝██╔════╝██╔══██╗██╔══██╗██╔══██╗██╔════╝╚══██╔══╝██╔════╝██╔══██╗
let a, s0 = pop_int stack in
let b, s1 = pop_int s0 in
(JoyInt (b - a) :: s1, expression, dictionary)
- | "clear" ->
- ([], expression, dictionary)
+ | "clear" -> ([], expression, dictionary)
| _ ->
let func = dictionary sym in
(stack, func @ expression, dictionary)