# # @ Javier Felipe Toribio 2019-10-25 # # challenge by Oma Falk # # Abap translator # # In Abap - the language for SAP-Systems - # one can describe a range of numbers with an # object/list of four fields: # # sign option low high # # sign is I or E means Including Exluding. # option has many opportunities, we might take # EQ like equal, # BT like between # GT > or LT <. # low and high are the boundaries. # If option is EQ or GT # or LT high may not be filled or ignored. # Now given a domain 1 to 1000... or as u # want 95, 96 maybe # # I EQ 95 I EQ 96 # # or I BT 95 96 # # A bit more 5,6....12, 14,15,...18,20,...900 # # I GT 4 I LT 901 E EQ 13 E EQ 19 # # easy challenge: user enters 3 lines like I # BT 3 11 as one line example and the progs # output are the numbers. # # for runaways: User enters a set of numbers # within the domain and the prog tries to # describe the set with the given Syntax but # as little lines as possible. # # NOTE: # # There aren't limits. # Domain is -Infinity .. Infinity # # INPUT: # # Each command in a different line # or # empty input for test cases # # Infinite $Inf = 1/0.0 class AbapToRubyTranslator @@actions = {:BT => -> f,l { f..l }, :EQ => -> n,_ { n..n }, :GT => -> f,_ { f+1..$Inf }, :LT => -> l,_ { -$Inf..l-1 }} # Constructor def initialize() @inputs=[] @ranges=[] end # Check if two ranges don't intersect def disjointed?(r1,r2) r1.max < r2.min or r2.max < r1.min end # Range result of intersection of two ranges def intersection(r1,r2) return nil if disjointed?(r1,r2) [r1.first,r2.first].max .. [r1.last ,r2.last].min end # Merge insersecting ranges def merge_ranges() new_ranges = [] size = @ranges.size (0..size-2).each do |i| r1 = @ranges[i] r2 = @ranges[i+1] if not intersection(r1,r2).nil? new = [*r1]|[*r2] new.sort! new_range = new.first .. new.last new_ranges << new_range else new_ranges << r1 new_ranges << r2 if i == size-2 end end @ranges = new_ranges end # Sorted insert def insert_range(r) @ranges.each_with_index do |c,i| if r.first < c.first @ranges.insert(i,r) return end end @ranges << r end # Sum of two ranges def add_ranges(r1,r2) return nil if disjointed?(r1,r2) [r1.first,r2.first].min .. [r1.last,r2.last].max end # Add range to the ranges collection def include_range(r1) if @ranges.size == 0 @ranges << r1 return end i=0 to_be_added=true while i < @ranges.size r2 = @ranges[i] sum = add_ranges(r1,r2) to_be_added = to_be_added && sum.nil? @ranges[i] = sum if ! sum.nil? i += 1 end insert_range(r1) if to_be_added merge_ranges() end # Remove range r2 from range r1 # r1 - r2 def substract_ranges(r1,r2) return nil if disjointed?(r1,r2) return [] if r1 == r2 result=[] subr1=1..0 subr2=1..0 if r1.first < r2.first subr1 = r1.first .. r2.first-1 end if r1.last > r2.last subr2 = r2.last+1 .. r1.last end if subr1.size > 0 result << subr1 end if subr2.size > 0 result << subr2 end result end # Substract range to the ranges collection def exclude_range(r1) return if @ranges.size == 0 i=0 while i < @ranges.size r2 = @ranges[i] results = substract_ranges(r2,r1) if results.nil? i += 1 next end @ranges.delete_at(i) if not results.empty? results.each do |result| @ranges.insert(i,result) i += 1 end end end end # Add new abap command # Convert input to command elements def add_command(input) @inputs << input sign,option,low,high=input.split(" ") l = low.to_i h = high.nil? ? nil : high.to_i range = @@actions[option.to_sym].(l,h) if sign == "I" include_range(range) elsif sign == "E" exclude_range(range) else throw "Wrong input" end end # Return image of ranges def report() image="" ranges=[] @ranges.each do |r| if r.size > 1 ranges << r.to_s else ranges << r.first.to_s end end image = "Inputs:\n" + @inputs.join("\n")+"\n" image += "\nRanges:\n" + ranges.join(",") puts image end end # Insert abap commands and show ranges def process(inputs) translator = AbapToRubyTranslator.new inputs.each { |i| translator.add_command(i) } translator.report() puts end # process test cases def test_cases tests=[["I BT 2 11","I BT 20 30", "I EQ 8","I EQ -2","E GT 28"], ["I BT 1 10","I BT 20 30","E BT 5 25"], ["I BT 1 10","E LT 2","E GT 8"], ["I BT 10 30","E BT 15 25"], ["I LT -49","I GT 49"]] tests.each do |inputs| process(inputs) end end # Obtain abap commands from input inputs=[] input="" loop do input = gets break if input.nil? || input.chomp.empty? inputs << input.chomp end if inputs.empty? puts "Empty input." + " Using test cases as default" puts test_cases else process(inputs) end

[challenge] abap translator