sfeng/lisp-interpreter-rb
1
0
Fork 0
mirror of https://github.com/vonhyou/lisp-interpreter.git synced 2025-06-08 02:02:01 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

add logical operators

Browse source
This commit is contained in:
vonhyou 2021-04-14 22:01:31 +08:00
parent efd5b22761
commit c265b81c43
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
minlisp.rb
View file

@ -87,6 +87,12 @@ def lisp_eval(elem, env = $global_env)
elsif elem[0] == :lambda
_, params, body = elem
->(*args) { lisp_eval body, env.merge(Hash[params.zip(args)]) }
elsif elem[0] == :and
lisp_eval(elem[1], env) && lisp_eval(elem[2], env)
elsif elem[0] == :or
lisp_eval(elem[1], env) || lisp_eval(elem[2], env)
elsif elem[0] == :not
!lisp_eval(elem[1], env)
else
args = []
elem[1..-1].each { |arg| args << lisp_eval(arg, env) }