Петко обнови решението на 28.12.2016 04:07 (преди над 7 години)
+module ArnoldCPM
+ def self.reset_variables
+ @arnold_parsed = ""
+ @depth = 0
+ @returning_value = false
+ @main_function = false
+ @current_expression = ArnoldExpression.new
+ @current_function_declaration = LambdaFunctionDeclaration.new
+ @block_name = 0
+ @current_variable = nil
+ end
+
+ class << self
+ attr_accessor :printer
+ end
+
+ def self.totally_recall(&block)
+ reset_variables
+ instance_eval(&block)
+ instance_eval(@arnold_parsed)
+ end
+
+ def self.talk_to_the_hand(operand)
+ @arnold_parsed << calc_depth << "@printer.print(#{operand})\n"
+ end
+
+ def self.get_to_the_chopper(variable_name)
+ @expression = ArnoldExpression.new
+ @expression.variable_name = variable_name
+ end
+
+ def self.here_is_my_invitation(initial_value)
+ @expression.change_initial_value(initial_value)
+ end
+
+ def self.enough_talk
+ @arnold_parsed << (calc_depth + @expression.to_s) << "\n"
+ end
+
+ def self.get_up(operand)
+ @expression.add_operation(:+, operand)
+ end
+
+ def self.get_down(operand)
+ @expression.add_operation(:-, operand)
+ end
+
+ def self.youre_fired(operand)
+ @expression.add_operation(:*, operand)
+ end
+
+ def self.he_had_to_split(operand)
+ @expression.add_operation(:/, operand)
+ end
+
+ def self.i_let_him_go(operand)
+ @expression.add_operation(:%, operand)
+ end
+
+ def self.i_lied
+ 0
+ end
+
+ def self.no_problemo
+ 1
+ end
+
+ def self.consider_that_a_divorce(operand)
+ @expression.add_operation(:arnold_or, operand)
+ end
+
+ def self.knock_knock(operand)
+ @expression.add_operation(:arnold_and, operand)
+ end
+
+ def self.let_off_some_steam_bennet(operand)
+ @expression.add_operation(:arnold_greater_than, operand)
+ end
+
+ def self.you_are_not_you_you_are_me(operand)
+ @expression.add_operation(:arnold_equals, operand)
+ end
+
+ def self.because_im_going_to_say_please(condition)
+ @arnold_parsed << calc_depth << "if #{condition}.nonzero?\n"
+ @depth += 1
+ end
+
+ def self.bull_shit
+ @depth -= 1
+ @arnold_parsed << calc_depth << "else\n"
+ @depth += 1
+ end
+
+ def self.you_have_no_respect_for_logic
+ @depth -= 1
+ @arnold_parsed << calc_depth << "end\n"
+ end
+
+ def self.listen_to_me_very_carefully(function_name)
+ @current_function_declaration = LambdaFunctionDeclaration.new
+ @current_function_declaration.function_name = function_name
+ @arnold_parsed << calc_depth << @current_function_declaration.to_s
+ @depth += 1
+ @returning_value = false
+ end
+
+ def self.i_need_your_clothes_your_boots_and_your_motorcycle(parameter_name)
+ lines = @arnold_parsed.split("\n")
+ lines.pop
+ @arnold_parsed = lines.join("\n")
+ @current_function_declaration.add_parameter(parameter_name)
+ @depth -= 1
+ @arnold_parsed << calc_depth << @current_function_declaration.to_s
+ @depth += 1
+ end
+
+ def self.give_these_people_air
+ @returning_value = true
+ end
+
+ def self.ill_be_back(return_value = 0)
+ @arnold_parsed << calc_depth << "return #{return_value}\n"
+ end
+
+ def self.hasta_la_vista_baby
+ @depth -= 1
+ @arnold_parsed << calc_depth << "end\n"
+ end
+
+ def self.do_it_now(function_name, *parameters)
+ parameters_block = '(' + parameters.join(', ') + ')'
+
+ if @current_variable
+ @arnold_parsed << calc_depth <<
+ "#{@current_variable} = #{function_name}.call#{parameters_block}\n"
+ @current_variable = nil
+ else
+ @arnold_parsed << calc_depth << "#{function_name}.call#{parameters_block}\n"
+ end
+
+ end
+
+ def self.get_your_ass_to_mars(variable)
+ @current_variable = variable
+ end
+
+ def self.method_missing(method)
+ method.to_s
+ end
+
+ def self.calc_depth
+ ' ' * @depth
+ end
+end
+
+class LambdaFunctionDeclaration
+ attr_accessor :function_name
+
+ def initialize
+ @parameters = []
+ @function_name = ''
+ end
+
+ def add_parameter(parameter_name)
+ @parameters.push(parameter_name)
+ end
+
+ def to_s
+ if @parameters.empty?
+ "#{@function_name} = lambda do\n"
+ else
+ parameters = '|' + @parameters.join(", ") + '|'
+ "#{@function_name} = lambda do #{parameters}\n"
+ end
+ end
+end
+
+class Integer
+ def arnold_or(other)
+ if self != 0
+ self
+ else
+ other
+ end
+ end
+
+ def arnold_and(other)
+ if self == 0
+ self
+ else
+ other
+ end
+ end
+
+ def arnold_greater_than(other)
+ if self > other
+ 1
+ else
+ 0
+ end
+ end
+
+ def arnold_equals(other)
+ if self == other
+ 1
+ else
+ 0
+ end
+ end
+end
+
+class Proc
+ def arnold_equals(other)
+ if self == other
+ 1
+ else
+ 0
+ end
+ end
+end
+
+class ArnoldExpression
+ attr_accessor :variable_name
+
+ def initialize
+ @expression = ''
+ @variable_name = ''
+ end
+
+ def change_initial_value(initial_value)
+ @expression << initial_value.to_s
+ end
+
+ def add_operation(operator, operand)
+ @expression << ".#{operator} #{operand}"
+ add_parentheses
+ end
+
+ def to_s
+ "#{@variable_name} = " + @expression
+ end
+
+ private
+ def add_parentheses
+ @expression.prepend('(')
+ @expression[@expression.size] = ')'
+ end
+end
Може ли да се предефинират променливи от обграждащия binding в блока?
Може да дефинираш променлива със същото име като обграждащия scope. Тя ще прикрие външната, но няма да промени стойността й извън блока.
В този случай
подходящо ли е или има и по-просто решение?
edit: всъщност, след доста опити, това няма как да стане. По условие искате всичко да е Proc за да може да се подава като параметър, а Proc-a няма scope gate и няма как да има две променливи с еднакви имена(една локална и една външна за блока).
Както сам си забелязал чист proc няма да свърши работа. Помисли дали можеш да измислиш друга репрезентация.
В условието не сме казали, че ArnoldC+- функциите трябва да са proc-ове. В някои примери използвахме методи, в други proc-ове, точно защото нито едно от двете не съответства напълно.