kristopolous/cartalk_solution.rb

## cartalk_solution.rb
set = []
8.upto(1000).each { | x |
  pop = []
  8.step(x - 8, 8).each { | y |
    popeye_2 = y
    popeye_1 = x - y
    bats = popeye_1 * 0.250
    if bats.to_i == bats
      hits = 3 * popeye_2 / 8 + bats
      pop << [hits, popeye_1, popeye_2]
    end
  }
  blut = []
  5.step(x - 5, 5).each { | y |
    bluto_2 = y
    bluto_1 = x - y
    bats = bluto_1 * 0.3
    if bats.to_i == bats
      hits = 2 * bluto_2 / 5 + bats
      blut << [hits, bluto_1, bluto_2]
    end
  }
  if blut.length > 0 and pop.length > 0
    popmax = pop.sort { | x, y | x[0] - y[0] }.last
    blutmax = blut.sort { | x, y | x[0] - y[0] }.first
    if(popmax[0] > blutmax[0])
      popmax[0] = popmax[0].to_i
      blutmax[0] = blutmax[0].to_i
      puts ""
      puts "Assuming they were both at bat #{popmax[1] + popmax[2]} times."
 puts "%-10s . %-19s .. %-19s .. %s" % [ "", "Pre All-Star", "Post All-Star", "Total" ]
 puts "%-10s | %3s | %3s | %5s  || %3s | %3s | %5s  || %3s | %4s | %3s" % [
   "Player", "Hit", "@Bat", "Avg",
   "Hit", "@Bat", "Avg",
   "Hit", "@Bat", "Avg"
 ]

      puts "%-10s | %3d | %4d | %.3f  || %3d | %4d | %.3f  || %3d | %4d | %.3f" % [
        "Popeye",
        popmax[1] / 4, popmax[1], 0.250,
        popmax[2] * 3 / 8, popmax[2], 0.375,
        popmax[1] / 4 + popmax[2] * 3 / 8, popmax[1] + popmax[2],
        (popmax[1] / 4 + popmax[2] * 3 / 8).to_f / (popmax[1] + popmax[2]).to_f
      ]
      puts "%-10s | %3d | %4d | %.3f  || %3d | %4d | %.3f  || %3d | %4d | %.3f" % [
        "Bluto",
        blutmax[1] * 3 / 10, blutmax[1], 0.300,
        blutmax[2] * 2 / 5, blutmax[2], 0.400,
        blutmax[1] * 3 / 10 + blutmax[2] * 2 / 5, blutmax[1] + blutmax[2],
        (blutmax[1] * 3 / 10 + blutmax[2] * 2 / 5).to_f / (blutmax[1] + blutmax[2]).to_f
      ]

    end
  end
}
	set = []
	8.upto(1000).each { \| x \|
	pop = []
	8.step(x - 8, 8).each { \| y \|
	popeye_2 = y
	popeye_1 = x - y
	bats = popeye_1 * 0.250
	if bats.to_i == bats
	hits = 3 * popeye_2 / 8 + bats
	pop << [hits, popeye_1, popeye_2]
	end
	}
	blut = []
	5.step(x - 5, 5).each { \| y \|
	bluto_2 = y
	bluto_1 = x - y
	bats = bluto_1 * 0.3
	if bats.to_i == bats
	hits = 2 * bluto_2 / 5 + bats
	blut << [hits, bluto_1, bluto_2]
	end
	}
	if blut.length > 0 and pop.length > 0
	popmax = pop.sort { \| x, y \| x[0] - y[0] }.last
	blutmax = blut.sort { \| x, y \| x[0] - y[0] }.first
	if(popmax[0] > blutmax[0])
	popmax[0] = popmax[0].to_i
	blutmax[0] = blutmax[0].to_i
	puts ""
	puts "Assuming they were both at bat #{popmax[1] + popmax[2]} times."
	puts "%-10s . %-19s .. %-19s .. %s" % [ "", "Pre All-Star", "Post All-Star", "Total" ]
	puts "%-10s \| %3s \| %3s \| %5s \|\| %3s \| %3s \| %5s \|\| %3s \| %4s \| %3s" % [
	"Player", "Hit", "@Bat", "Avg",
	"Hit", "@Bat", "Avg",
	"Hit", "@Bat", "Avg"
	]

	puts "%-10s \| %3d \| %4d \| %.3f \|\| %3d \| %4d \| %.3f \|\| %3d \| %4d \| %.3f" % [
	"Popeye",
	popmax[1] / 4, popmax[1], 0.250,
	popmax[2] * 3 / 8, popmax[2], 0.375,
	popmax[1] / 4 + popmax[2] * 3 / 8, popmax[1] + popmax[2],
	(popmax[1] / 4 + popmax[2] * 3 / 8).to_f / (popmax[1] + popmax[2]).to_f
	]
	puts "%-10s \| %3d \| %4d \| %.3f \|\| %3d \| %4d \| %.3f \|\| %3d \| %4d \| %.3f" % [
	"Bluto",
	blutmax[1] * 3 / 10, blutmax[1], 0.300,
	blutmax[2] * 2 / 5, blutmax[2], 0.400,
	blutmax[1] * 3 / 10 + blutmax[2] * 2 / 5, blutmax[1] + blutmax[2],
	(blutmax[1] * 3 / 10 + blutmax[2] * 2 / 5).to_f / (blutmax[1] + blutmax[2]).to_f
	]

	end
	end
	}