Михаил обнови решението на 28.12.2016 20:44 (преди почти 8 години)
+class ArnoldCPM
+ @printer = nil
+ @scopes = []
+ @builtin_variables = {i_lied: 0, no_problemo: 1}
+ @suppress_execution = false
+ @in_true_branch = false
+ @just_defined_parameter = false
+
+ class << self
+ attr_writer :printer
+
+ def totally_recall(&block)
+ instance_eval &block
+ end
+
+ private
+
+ def method_missing(method)
+ method
+ end
+
+ # main start
+ def its_showtime
+ @scopes.push Scope.new
+ end
+
+ # main end
+ def you_have_been_terminated
+ @scopes.pop
+ end
+
+ # print
+ def talk_to_the_hand(something)
+ return if handle_possible_func_def __method__, something
+ return if @suppress_execution
+ scope.after_parameter_def = false
+ # unless @scopes.empty?
+ with_value(something) do |value|
+ @printer.print value
+ end
+ # end
+ end
+
+ # def var
+ def get_to_the_chopper(variable_name)
+ return if handle_possible_func_def __method__, variable_name
+ return if @suppress_execution
+ scope.after_parameter_def = false
+ @init_variable = variable_name
+ end
+
+ # init value in var def
+ def here_is_my_invitation(value)
+ return if handle_possible_func_def __method__, value
+ return if @suppress_execution
+ with_value(value) do |value|
+ scope.variables[@init_variable] = value
+ end
+ end
+
+ # +
+ def get_up(value)
+ return if handle_possible_func_def __method__, value
+ return if @suppress_execution
+ apply_operator :+, value
+ end
+
+ # -
+ def get_down(value)
+ return if handle_possible_func_def __method__, value
+ return if @suppress_execution
+ apply_operator :-, value
+ end
+
+ # *
+ def youre_fired(value)
+ return if handle_possible_func_def __method__, value
+ return if @suppress_execution
+ apply_operator :*, value
+ end
+
+ # /
+ def he_had_to_split(value)
+ return if handle_possible_func_def __method__, value
+ return if @suppress_execution
+ apply_operator :/, value
+ end
+
+ # %
+ def i_let_him_go(value)
+ return if handle_possible_func_def __method__, value
+ return if @suppress_execution
+ apply_operator :%, value
+ end
+
+ # or
+ def consider_that_a_divorce(value)
+ return if handle_possible_func_def __method__, value
+ return if @suppress_execution
+ with_value(value) do |value|
+ current = scope.variables[@init_variable]
+ return current if current != 0
+ value
+ end
+ end
+
+ # and
+ def knock_knock(value)
+ return if handle_possible_func_def __method__, value
+ return if @suppress_execution
+ with_value(value) do |value|
+ current = scope.variables[@init_variable]
+ return current if current == 0
+ value
+ end
+ end
+
+ # end var definitian
+ def enough_talk
+ return if handle_possible_func_def __method__
+ return if @suppress_execution
+ @init_variable = nil
+ end
+
+ # if
+ def because_im_going_to_say_please(condition)
+ return if handle_possible_func_def __method__, condition
+ return if @suppress_execution
+ scope.after_parameter_def = false
+ @scopes.push Scope.new
+ with_value(condition) do |value|
+ @in_true_branch = value != 0
+ @suppress_execution = !@in_true_branch
+ end
+ end
+
+ # else
+ def bull_shit
+ return if handle_possible_func_def __method__
+ @suppress_execution = @in_true_branch
+ end
+
+ # fi
+ def you_have_no_respect_for_logic
+ return if handle_possible_func_def __method__
+ @suppress_execution = false
+ @in_true_branch = false
+ @scopes.pop
+ end
+
+ # def func
+ def listen_to_me_very_carefully(function_name)
+ return if handle_possible_func_def __method__, function_name
+ return if @suppress_execution
+ scope.functions[function_name] = {args: [], body: []}
+ scope.defining_function = function_name
+ end
+
+ # parameter
+ def i_need_your_clothes_your_boots_and_your_motorcycle(argument_name)
+ # return if handle_possible_func_def __method__, argument_name
+ return if @suppress_execution
+ scope.functions[scope.defining_function][:args] << argument_name
+ scope.after_parameter_def = true
+ end
+
+ # return
+ def ill_be_back(value = 0)
+ return if handle_possible_func_def __method__, value
+ return if @suppress_execution
+ scope.after_parameter_def = false
+ with_value(value) do |value|
+ value
+ end
+ end
+
+ # end function definition
+ def hasta_la_vista_baby
+ # return if handle_possible_func_def __method__
+ return if @suppress_execution
+ scope.after_parameter_def = false
+ scope.defining_function = nil
+ end
+
+ def do_it_now(function_name, *arguments)
+ return if handle_possible_func_def __method__
+ return if @suppress_execution
+ scope.after_parameter_def = false
+ function = get_function(function_name)
+ args_to_values = Hash[function[:args].zip(arguments)]
+ @scopes.push Scope.new
+ result = execute_function function, args_to_values
+ @scopes.pop
+ scope.variables[scope.put_result_in_var] = result if scope.put_result_in_var
+ end
+
+ # marks a function that returns a result
+ def give_these_people_air
+ scope.functions[scope.defining_function][:produces_result] = true
+ end
+
+ def get_your_ass_to_mars(variable_name)
+ scope.put_result_in_var = variable_name
+ end
+
+ # non-api internal functions
+
+ def execute_function(function, parameters)
+ function[:body].each do |function_call|
+ arguments = function_call[:args].map do |a|
+ a.is_a?(Symbol) ? parameters[a] : a
+ end
+ result = send function_call[:method], *arguments
+ return result if function_call[:method] == :ill_be_back && !result.nil?
+ end
+ end
+
+ def get_var(name)
+ @scopes.reverse.each do |scope|
+ return scope.variables[name] if scope.variables.key? name
+ end
+ @builtin_variables.fetch name, nil
+ end
+
+ def get_function(name)
+ @scopes.reverse.each do |scope|
+ return scope.functions[name] if scope.functions.key? name
+ end
+ nil
+ end
+
+ def apply_operator(operator, value)
+ with_value(value) do |value|
+ new_value = scope.variables[@init_variable].send(operator, value)
+ scope.variables[@init_variable] = new_value
+ end
+ end
+
+ def with_value(value)
+ if value.is_a? Symbol
+ yield get_var(value)
+ else
+ yield value
+ end
+ end
+
+ def scope
+ @scopes.last
+ end
+
+ def handle_possible_func_def(method, *arguments)
+ if scope&.defining_function
+ scope.functions[scope.defining_function][:body] << {method: method, args: arguments}
+ end
+ scope&.defining_function
+ end
+ end
+
+ class Scope
+ attr_accessor :functions, :variables, :defining_function, :after_parameter_def,
+ :put_result_in_var
+
+ def initialize
+ @functions = {}
+ @variables = {}
+ @after_parameter_def = false
+ end
+ end
+
+ # put one general scope at the beginning
+ @scopes << Scope.new
+end