sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Eval symbols...

This commit is contained in:
Simon Forman 2022-09-24 12:54:46 -07:00
parent c7966f7ac8
commit 5db538cc5c
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
implementations/Ocaml/helloworld/bin/main.ml
View File

@ -168,13 +168,19 @@ let text_to_expression text = parse (tokenize text)
let joy stack expression dictionary = (stack @ expression, dictionary) let joy stack expression dictionary = (stack @ expression, dictionary)
*) *)
let joy : joy_list -> joy_list -> joy_dict -> joy_list * joy_dict = fun stack expression dictionary -> let joy_eval _ s e d = (s, e, d)
let rec joy : joy_list -> joy_list -> joy_dict -> joy_list * joy_dict = fun stack expression dictionary ->
match expression with match expression with
| [] -> (stack, dictionary) | [] -> (stack, dictionary)
| _ -> (*head :: tail ->*) | head :: tail ->
(stack @ expression, dictionary) match head with
| JoySymbol sym ->
let (s, e, d) = joy_eval sym stack tail dictionary in
joy s e d
| _ -> joy (head :: stack) tail dictionary
let expr = text_to_expression "1 2 3[4 5 6[7 8]9 10]11[][][[]]" let expr = text_to_expression "1 2 + 3[4 5 6[7 8]9 10]11[][][[]]"
let s = text_to_expression "23 [18 99] " let s = text_to_expression "23 [18 99] "
let stack, _ = joy s expr d let stack, _ = joy s expr d