From: Jenny Purcell <dontspamme@...>
Date: 2007-10-02T14:20:06+09:00
Subject: Outputting results as html in a file

Background: I'm working on a Ruby program to simulate horse races for
a fantasy horse racing league. It works off a csv file I put together
by hand with the information necessary for each race.

I realize it would be easier for people in the group to follow if I
was programming with objects. However, I just don't understand OO
programming, my skills (such as they are) are procedural.  Ruby was
pointed out to me as a language that would allow me to write
procedural programs and so far it is working out very nicely in that
regard.

After much hammering and fiddling, I have expanded the program
significantly since I last posted to the group. I can now run multiple
races off a single csv file, and I've added some additional features I
wanted.

What I'd like to be able to do, now, is provide minimally formatted
html "results" for each race.

What I'd like is output that would be something like this:

<br><br> 1a  Mdn 2yoC/G Trot $3500 <br>
Winner: Ima Winnah, 2005 chestnut colt ABC<br>
Bred by: Suzie Creamcheese<br>
T= 2:00.1f
<br>	1(8) Ima Winnah, 	05 cc,	ABC,	unplcd,	pp4,	by
neck,	Given pace and in control from gate to wire, T=2:00.1f<br>

Using my variable names, it would be something like this:

<br><br> race_name <br> (race #1)
Winner, details, time, etc, not coded into original program yet <br>
<br> position[j](count + 1) horse_name[j], horse_info[j],
owners_initials[j], best_result[j], pp pole_new[j], by <margin - not
coded yet>, <Space for comments, added by hand for each race>, T=
<time not coded yet>
<br><details on horse #2>
<br><details on horse #3>

<br> <br> race_name<br> (race #2)

For the most part, once someone shows me the basics of doing this, I
can fill in the rest.

Code included below:

#! /usr/bin/env ruby

require 'csv'

# Written by Jenny Purcell and Anthony Purcell based off starter code
# provided by Robbert Haarman 

 # assign counter to keep track of number of horses
  count=-1
 # create new arrays
  horse_name=Array.new(20)
  horse_info=Array.new(20)
  owners_initials=Array.new(20)
  best_result=Array.new(20)
  race_style=Array.new(20)
  best_time=Array.new(20)
  pre_points=Array.new(20)
  start_points=Array.new(20)
  luck_roll=Array.new(20)
  roll_1=Array.new(20)
  roll_2=Array.new(20)
  roll_3=Array.new(20)
  roll_4=Array.new(20)
  roll_5=Array.new(20)
  score=Array.new(20)
  pre_point_string = String.new
  race_name = String.new
  race = 0
  file_lines = Array.new


# For each record in the CSV file...
CSV::Reader.parse(File.open('horses2.csv')) do |record|

  test_string = record[0]
  if test_string == "" || test_string == nil then
    if race == 1 then
      # Randomizing Post Position
      # i is a counter to count up to the number of horses
      pole = Array.new(count + 1) { |m| m + 1 }
      number = Array.new(count + 1) { |m| m + 1 }
      position = Array.new(count + 1)
      pole_new=pole.sort_by { rand }
      
      # Determining each horse's finishing position
      temp_score = Array.new(count + 1) {|c| 100 * score[c] + 20 -
pole_new[c]}
      sort_score = temp_score.sort
      sort_score.reverse!
      number.each {|a| position[a - 1] = number.detect {|b|
sort_score[b - 1] == temp_score[a - 1]}}

      i=0
      line = CSV.generate_line([race_name])
      file_lines.push(line)
      while i <= count do
        j = number.detect {|c| position[c - 1] == i + 1}
        j = j - 1
        # Push each horse's name, owner, score, pre_points, dice
rolls, and other info into a new csv file
        line = CSV.generate_line(["pp#{pole_new[j]}", horse_name[j],
horse_info[j], owners_initials[j], best_result[j], race_style[j],
best_time[j], "#{pre_points[j]} (#{start_points[j]} #{luck_roll[j]})"
, roll_1[j], roll_2[j], roll_3[j], roll_4[j], roll_5[j], score[j],
"#{position[j]}(#{count + 1})"])
        
        # Here is where we put the new line on the end of the csv
array
        file_lines.push(line)
        i = i + 1  
      end
      # generate a blank line and write it
      line = CSV.generate_line([])
      file_lines.push(line)
  

    end  
    race = 0
  elsif race == 0 then
    race = 1
    count = -1
    race_name = record[0]  
  else
    count = count + 1  # count the number of horses in a particular
race
    # Now we assign the appropriate fields of the record to
    # variables named after the fields in the CSV file.
    horse_name[count] = record[0]
    horse_info[count] = record[1]
    owners_initials[count] = record[2]
    best_result[count] = record[3]
    race_style[count] = record[4]
    best_time[count] = record[5]  
    pre_point_string = record[6]

    # Extract lead character for luck rolls
    pre_roll_check = pre_point_string[0, 1]
    temp_string = pre_point_string[1, pre_point_string.length]

    # Use the lead character to determine how many luck rolls are
needed
    # Use the remainder of the input string to evaluate initial point
allotment
    if pre_roll_check == "a" then
      num_rolls = 3
    elsif pre_roll_check == "b" then
      num_rolls = 2
    elsif pre_roll_check == "c" then
      num_rolls = 1
    else
      num_rolls = 0
      luck_roll[count] = 0
      pre_points[count] = pre_point_string.to_i
      start_points[count] = pre_points[count]
    end
   
    # Generate luck rolls if needed to calculate pre-point total
    if num_rolls > 0 then
      pre_roll_dice = (1..num_rolls).map { rand(4) + 1}
      pre_points[count] = temp_string.to_i
      start_points[count] = pre_points[count]
      luck_roll[count] = 0
      pre_roll_dice.each { |p| pre_points[count] = pre_points[count] +
p }
      pre_roll_dice.each { |q| luck_roll[count] = luck_roll[count] + q
}
    end
   
    #puts CSV.generate_line([num_rolls, pre_points[count],
temp_string, pre_roll_check])
    
    # Roll the dice.
    # This generates an array containing five die rolls,
    # each die roll ranging from 1 to 6
    dice = (1..5).map { rand(6) + 1 }

    # Calculate score.
    # The score is the sum pre_points, and each of the die rolls
    temp_score = pre_points[count]
    dice.each { |n| temp_score = temp_score + n }
    score[count]=temp_score
    roll_1[count]=dice[0]
    roll_2[count]=dice[1]
    roll_3[count]=dice[2]
    roll_4[count]=dice[3]
    roll_5[count]=dice[4]

  
    # Share out pre-points based on running style

    # Assign margins based on final points

    # end of over-arching conditional statement
  end
 
    #end of the "do" statement for reading in CSV files
end
 
    # Write to a csv file to archive "full" results (all points, etc).
    filename = 'results.csv'
    File.open filename, 'w+' do |f|
    f.puts file_lines 
    end