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) }
end
end
# @global_env.merge {
# 'min' : ->(*args) { args.min },
# 'max' : ->(*args) { args.max },
# 'car' : ->(arr) { arr[0] },
# 'cdr' : ->(arr) { arr[1..-1] },
# 'cons' : ->(arr) { arr },
# 'quote' : ->(arr) { arr },
# 'print' : ->(arg) { p arg },
# 'begin' : ->(*_args) { true }
# }
mtds = { 'min': ->(arr) { arr.min },
'max': ->(arr) { arr.max },
'car': ->(arr) { arr[0] },
'cdr': ->(arr) { arr[1..-1] },
'cons': ->(arr) { arr },
'quote': ->(*args) { args },
'print': ->(arg) { p arg },
'begin': ->(*_args) { true }
}
@global_env.merge mtds
end
##### Lisp Eval