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 methods

Browse source
This commit is contained in:
vonhyou 2021-04-15 00:55:05 +08:00
parent d0863d1636
commit 7ac16ca74e
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
prol.rb
View file

@ -55,16 +55,16 @@ module Lisp
scope.merge op => ->(*args) { args.inject(&op) } scope.merge op => ->(*args) { args.inject(&op) }
end end
end end
# @global_env.merge { mtds = { 'min': ->(arr) { arr.min },
# 'min' : ->(*args) { args.min }, 'max': ->(arr) { arr.max },
# 'max' : ->(*args) { args.max }, 'car': ->(arr) { arr[0] },
# 'car' : ->(arr) { arr[0] }, 'cdr': ->(arr) { arr[1..-1] },
# 'cdr' : ->(arr) { arr[1..-1] }, 'cons': ->(arr) { arr },
# 'cons' : ->(arr) { arr }, 'quote': ->(*args) { args },
# 'quote' : ->(arr) { arr }, 'print': ->(arg) { p arg },
# 'print' : ->(arg) { p arg }, 'begin': ->(*_args) { true }
# 'begin' : ->(*_args) { true } }
# } @global_env.merge mtds
end end
##### Lisp Eval ##### Lisp Eval