[#35036] Intentional Programming — "John" <nojgoalbyspam@...>
Hi all
Noone here interested in Intentional Programming? Anybody have an idea of
[#35057] Re: Ruby Regular Expression problem — "Olonichev Sergei" <olonichev@...>
[#35058] here documents as method parameter problem — mrp@...
in the following code, the first 2 "puts" work, but the last produces:
[#35060] Just noticed: 1.6.7 — Dave Thomas <Dave@...>
[#35112] RDoc question — Michael Davis <mdavis@...>
I have a question about RDoc. I would like to reference an external
Dave Thomas wrote:
Michael Davis <mdavis@sevainc.com> writes:
On Sun, Mar 03, 2002 at 08:07:52AM +0900, Dave Thomas wrote:
[#35118] TestUnit 0.1.4 — <nathaniel@...>
From the README:
[#35162] string to array and back — Ron Jeffries <ronjeffries@...>
I am needing to convert strings to arrays of bytes and back. I see pack and
[#35175] Readline loses stdin? — Massimiliano Mirra <list@...>
When I run the following code...
[#35182] RubyStudio UI Question — Chris Gehlker <gehlker@...>
I've been noodling all day about how the editing window in RubyStudio should
[#35186] ruby-dev summary 16040-16125 — Minero Aoki <aamine@...>
Hi all,
[#35200] Ruby and Parrot in The Perl Review — "Paul E.C. Melis" <melis@...>
Hi all,
[#35244] require 'file path' ? — Audun Tonnesen <aut@...2i.net>
This is a stupid question from a newbie. I have installed the windows version, and I wanted to try a graphic example from the 'pragmatic' using tk.
[#35276] Please help me!!!!!!!!!!!!! — rahmanian mohsen <rahmanian60@...>
where I can ask a question?
[#35322] How Ruby differs from Other Languages? — S Sridevi <shridevi@...>
Hi,
[#35341] Ruby Serial Ports under Windows — David Wende <DWende@...>
I've started using Ruby a week ago as my first OOP
[#35364] file reading impossibly slow? — Ron Jeffries <ronjeffries@...>
So I'm doing this benchmark to work with my set program. Part of the problem is
On Thu, 07 Mar 2002 13:52:41 GMT, nobu.nokada@softhome.net wrote:
I'm jumping into this thread late, so apologies if I'm repeating well-known
[#35378] RDoc now generates .chm files — Dave Thomas <Dave@...>
[#35386] What are the Ruby 1.8 plans? — Matt Armstrong <matt@...>
There have been two recent threads about slow Ruby IO under Win32
[#35388] Re: file reading impossibly slow? 1.6.6 vs. 1.6.2 numbers — Pete McBreen <pete@...>
Matt Armstrong wrote
[#35393] net/http; 302 — Tobias Reif <tobiasreif@...>
Hi,
[#35409] Talking Trash About Ruby — Lyle Johnson <lyle@...>
All,
[#35429] Interesting link on static/dynamic typing... — Robert Feldt <feldt@...>
...relevant to Ruby compared to other languages discussion:
Robert Feldt <feldt@ce.chalmers.se> writes:
On Fri, Mar 08, 2002 at 05:34:43PM +0900, Robert Feldt wrote:
On 3/8/02 7:56 AM, "Paul Brannan" <paul@atdesk.com> wrote:
[#35430] Spooky backtick bug w/large file support — jonathan@... (Jonathan Baker)
Discovered that the patch for large files caused a nasty side effect:
[#35439] Opinions wanted (long) — Massimiliano Mirra <list@...>
These are some embryonic ideas that generated after a discussion with
[#35443] RE: Text stuff and appending to a file — Wyss Clemens <WYS@...>
By heart I would guess:
[#35460] Spam, ruby-talk, and me — Dave Thomas <Dave@...>
Dave Thomas <Dave@PragmaticProgrammer.com> writes:
On Sat, Mar 09, 2002 at 07:12:56AM +0900, Yohanes Santoso wrote:
[#35477] is there any way ... — Ron Jeffries <ronjeffries@...>
is there any way we could fix the bug whereby a..b is /longer/ than a...b ?
[#35478] file closing — Ron Jeffries <ronjeffries@...>
So I'm going to create an object that wraps a file and gives it some new kind of
[#35519] Open Watcom — Massimiliano Mirra <list@...>
I'm not directly interested in this since I run Linux, but I stumbled
[#35537] Confusion — David Corbin <dcorbin@...>
The following is from my debugging through xmlc.rb
David Corbin wrote:
[#35553] Fiddling with ruby/tk canvas — Thomas Sondergaard <tsondergaard@...>
I've got a TkCanvas with a number of TkcImage items on it. I've set it
[#35557] Issue with trapping errors in instance_eval — Michael Davis <mdavis@...>
I need to be able to trap error during a call to instance_eval. Here is
[#35567] Which GUI interface to use! — "Douglas J van Vliet" <dougie@...>
Hi,
[#35579] RE: WIN32OLE and LDAP — "Morris, Chris" <chris.morris@...>
> The new version 0.4.2 of Win32OLE has WIN32OLE.bind method.
ehlo.
[#35580] packages (jar-alike) — Vladimir Dozen <Vladimir.Dozen@...>
ehlo.
[#35608] Using 'uniq' question — edjbaker@... (Ed Baker)
If I have an array of data, where each record looks like the example
[#35609] Config::CONFIG['build_alias'] ? — Massimiliano Mirra <list@...>
Which are the build aliases of the platforms ruby runs on?
[#35636] gzip again... — Massimiliano Mirra <list@...>
I can't seem to process from within Ruby with gzip files that exceed a
On Tue, Mar 12, 2002 at 12:34:29PM +0900, Massimiliano Mirra wrote:
[#35639] Controlling Mouse/Keyboard — "Norman Makoto Su" <normsu@...>
Hi,
[#35653] Some potential RCRs — "Bob Alexander" <bobalex@...>
Here are a few thing I am considering submitting as RCRs. I'm looking for comments to help decide whether to make them official, so please let know what you think is good and bad about these...
Following are summarized responses to the passle of RCR candidates I posted
Hi,
On Wed, Mar 13, 2002 at 03:58:01AM +0900, Yukihiro Matsumoto wrote:
Hello --
[#35692] Module Syntax — "Sean O'Dell" <sean@...>
Being primarily a C++ programmer, I'm happy with Ruby's Module concept
[#35694] rpkg 0.3 — Massimiliano Mirra <list@...>
>
james@rubyxml.com writes:
Dave Thomas <Dave@PragmaticProgrammer.com> writes:
On Wed, Mar 13, 2002 at 08:48:03PM +0900, Piers Cawley wrote:
[#35718] RE: testunit, was RE: [ANN] rpkg 0.3 — Thomas Sdergaard <tsondergaard@...>
> I believe the reason is because your standard Ruby
It is the merging of Lapidary and RubyUnit (backward compatibility APIs for
Rich Kilmer [mailto:rich@infoether.com] wrote:
On Wed, Mar 13, 2002 at 11:48:15PM +0900, nathaniel@talbott.ws wrote:
[#35742] how do i: add_observer( { small bit of code } ) — mrp@...
observing an object, i want to run a small bit of code when update is
[#35757] process two arrays pairwise? — Ron Jeffries <ronjeffries@...>
Is there somewhere in Ruby a way to process the elements of two arrays (of equal
[#35766] Ruby/zlib 0.5.0 — UENO Katsuhiro <unnie@...>
Hello,
[#35776] Anyone using the WASTE editing library with Ruby? — ptkwt@...1.aracnet.com (Phil Tomson)
[#35787] testunit - setup -> set_up ? — "Morris, Chris" <chris.morris@...>
I'm just starting to use testunit instead of rubyunit ... I noticed with an
Morris, Chris [mailto:chris.morris@snelling.com] wrote:
"Nathaniel Talbott" <nathaniel@talbott.ws> writes:
dave@thomases.com [mailto:dave@thomases.com] wrote:
"Nathaniel Talbott" <nathaniel@talbott.ws> writes:
Hi,
On Fri, 15 Mar 2002 02:10:16 GMT, "Nathaniel Talbott" <nathaniel@talbott.ws>
[#35790] RE: Some potential RCRs — "Morris, Chris" <chris.morris@...>
> > - - A much better solution would be added support for file "type"
[#35825] Test::Unit — "Steve Merrick" <Steve.Merrick@...>
Can someone explain to me the *details* of how to use Test::Unit,
[#35826] Newbie -- Please help!! — "Firestone, Mark - Technical Support" <mark.firestone@...>
First an apology for asking what are probably lamer questions.
[#35845] Debugger problem — "Nathaniel Talbott" <nathaniel@...>
Perhaps this is a known issue, but given the following program:
[#35866] new user confused by multidimensional Ruby hashes — Ian Macdonald <ian@...>
Hi all,
[#35879] language addition: automatic 'new' — Vardhan Varma <vardhan.v@...>
[#35898] camelCase and underscore_style — "Morris, Chris" <chris.morris@...>
First, a question. If underscore_style is the Ruby norm for methods and the
Phil Tomson wrote:
Guy N. Hurst [mailto:gnhurst@hurstlinks.com] wrote:
On Sat, Mar 16, 2002 at 09:14:30AM +0900, Nathaniel Talbott wrote:
[#35900] Re: camelCase and underscore_style — Andrew Hunt <andy@...>
>I noticed code samples in the pickaxe book used camelCase. Dave/Andy, was
[#35929] Reading from a string — David Corbin <dcorbin@...>
Is there a class that provides the IO interface from a String? It seems
Hi,
On Sat, 2002-03-16 at 07:33, nobu.nokada@softhome.net wrote:
On Sat, Mar 16, 2002 at 05:28:27PM +0900, Thomas Sondergaard wrote:
[#35937] rpkg 0.3.1 — Massimiliano Mirra <list@...>
rpkg is a system for quick installation, removal, and browsing of Ruby
On 3/15/02 6:00 PM, "Massimiliano Mirra" <list@chromatic-harp.com> wrote:
[#35947] Newbie problem — Liorean <Liorean@...>
In a small program I wrote at school, using mswin32, I used $stdin to get
Hi,
At 15:43 2002-03-16 +0900, nobu.nokada@softhome.net wrote:
Hi,
At 17:23 2002-03-16 +0900, nobu.nokada@softhome.net wrote:
Hi,
At 16:26 2002-03-17 +0900, nobu.nokada@softhome.net wrote:
[#35973] how does gtk curve work? — Massimiliano Mirra <list@...>
I'm trying to initialize the curve in the Gtk::Curve widget.
[#35986] Good example Ruby program? — jennyw <jennyw@...>
I was hoping someone could suggest a good example Ruby program for me to
I haven't read it yet (planning on buying it), but I understand that
I totally agree with Dennis. I own "The Ruby Way" by Hal Fulton.
[#35989] ANN: Locana GUI and GUI Builder version 0.81 — Michael Davis <mdavis@...>
I am pleased to announce release 0.81 of Locana. Locana is a GUI
[#35992] XPath — Michael Schuerig <schuerig@...>
Tobias Reif wrote:
[#36004] Rubicon -> Test::Unit — Bil Kleb <W.L.Kleb@...>
Are there plans a foot for Rubicon to use Test::Unit?
[#36034] Mini Rant: Indenting — Thomas Hurst <tom.hurst@...>
Why is it that I see *so* much code like:
[#36042] instance_respond_to? — Thomas Sondergaard <tsondergaard@...>
Shouldn't module have an instance_respond_to? method?
[#36049] web templating for static sites? — Massimiliano Mirra <list@...>
I'm using the Template Toolkit for generating static web sites and I
> I am fascinated by the approach of tools like Iowa or Walrus, and how
Massimiliano Mirra <list@chromatic-harp.com> wrote in message news:<20020317204303.C5717@prism.localnet>...
On Mon, Mar 18, 2002 at 04:23:46PM +0900, Patrick May wrote:
Massimiliano Mirra <list@chromatic-harp.com> wrote in message news:<20020319153126.B3694@prism.localnet>...
How do you Ruby/HTML guys deal with the different versions of
Albert Wagner wrote:
Jason Voegele wrote:
> > I apologize for continuing an off-topic thread, but I've heard several
* Carl Parrish (cparrish@cox.net) wrote:
> People who don't care about current standards or nice
[#36052] Xml Serialization for Ruby — "Chris Morris" <chrismo@...>
=Xml Serialization for Ruby
On Mon, Mar 18, 2002 at 05:20:56AM +0900, Chris Morris wrote:
> </MyClass>
On Mon, Mar 18, 2002 at 12:51:14PM +0900, Chris Morris wrote:
> These two are mostly equivalent. The main reasons I prefer the first
> I agree that that smells ... the inconsistency of "root element is class
Hi Chris,
[#36067] eval/Module question — David Corbin <dcorbin@...>
If I have a String src that is similar to the following:
Let me try again.
[#36093] Test::Unit GTk GUI — Bil Kleb <W.L.Kleb@...>
While trying to get a "green bar" with Test::Unit using the GTk
Bil Kleb wrote:
[#36107] Extconf.rb: how to add specific include/lib dirs? — "Paul E.C. Melis" <melis@...>
Is it possible to specify a complete include or lib directory that is needed
[#36142] Why is Ruby so slow? — Venherm.Borchers@... (Venherm Borchers)
WHY IS RUBY SO SLOW?
Venherm Borchers wrote:
Kent Dahl wrote:
[#36157] Development of Windows version of Ruby — ptkwt@...1.aracnet.com (Phil Tomson)
Now that we've dumped the cygwin requirement for the Windows version of
On Tue, 19 Mar 2002 14:05:27 GMT, "Albert L. Wagner" <alwagner@uark.edu> wrote:
Dennis Newbold <dennisn@pe.net> wrote in message news:<Pine.GSO.3.96.1020320113603.22242B-100000@shell2>...
Some thoughts on the 2 first Windows issues, plus a 4th one...
"Christian Boos" <cboos@bct-technology.com> writes:
Hi,
nobu.nokada@softhome.net writes:
Hi,
A couple of times I've posted questions to this list,
Something like all the PC programs in the world are written for Windows.
[#36171] Weekly RCR Summary — RubyGarden@...
This is an automatically generated list of Ruby Change Requests.
[#36175] Wanted: slick rubyesqe algorithm — David Corbin <dcorbin@...>
Say I've got a list of Objects
On Tue, Mar 19, 2002 at 09:36:59AM +0900, David Corbin wrote:
[#36211] dots in Dir.entries — matz@... (Yukihiro Matsumoto)
Hi,
At 4:22 PM +0900 3/19/02, Yukihiro Matsumoto wrote:
[#36231] style choice — Ron Jeffries <ronjeffries@...>
A style question for the community ... which of the following do you prefer, and
[#36271] RE: Development of Windows version of Ruby — "Morris, Chris" <chris.morris@...>
Can I try to steer the thread here?
[#36294] RE: Development of Windows version of Ruby — "Morris, Chris" <chris.morris@...>
Here's an overview of fork on Windows with Perl. (Google rocks):
[#36298] Other than fork, what is vc++ ruby win missing? — "Morris, Chris" <chris.morris@...>
Is there anything other than fork (remember popen works) that Ruby on
On Tue, 19 Mar 2002 18:27, Morris, Chris wrote:
[#36301] another Test::Unit question — Pat Eyler <pate@...>
Okay, so I'm moving along doing unit testing to build a small application
[#36310] Re: Why is Ruby so slow? - Solution — Venherm.Borchers@... (Venherm Borchers)
Dear colleagues,
[#36318] Increased traffic? — Massimiliano Mirra <list@...>
Is it just my impression or has the traffic on the list increased
[#36322] Why no String#bin? — ptkwt@...1.aracnet.com (Phil Tomson)
We've got:
[#36345] ANN: REXML 2.0 — Sean Russell <ser@...>
I have a feeling there will only be three major revisions of REXML. Version
[#36396] Archives — Massimiliano Mirra <list@...>
Those interested in archive-like containers like Tar and Zip but also
[#36401] building latest cvs ruby on win — "Morris, Chris" <chris.morris@...>
I'm trying to build the latest cvs on Windows with msvc ... I found the
[#36402] Ruby/Tk on OSX — jack_d_herrington@... (Jack Herrington)
Has anyone had any success running Ruby/Tk on OSX.
[#36423] Linux Journal Ruby article — mike@... (Mike Stok)
I just noticed this ... http://www.linuxjournal.com//article.php?sid=5915
Mike Stok wrote:
[#36448] Ruby speak — Carl Parrish <cparrish@...>
[#36491] erb: how to include(import,load) another erb file? — Norbert Gawor <ngawor@...>
Sorry for not being able to find this by myself,
[#36580] www.selfruby.de — "Jonas Hoffmann" <ruby@...>
Hallo !
[#36597] RE: Hello! Can you help me? — "Morris, Chris" <chris.morris@...>
> -Can you tel me that ,is a way for convert Ruby source to .EXE file?
[#36608] Unicode in Regexp followup — ser@... (Sean Russell)
In fact, the unicode regular expressions have problems with the
[#36610] Re: Windows version of Ruby (proposals) — Ron Jeffries <ronjeffries@...>
On Thu, 21 Mar 2002 14:11:55 GMT, Dave Thomas <Dave@PragmaticProgrammer.com> wrote:
Another dumb question about syntax, but I haven't been
[#36613] Unicode in Regexp (a question) — ser@... (Sean Russell)
Does anybody know how to specify UTF-8 characters in regular
[#36617] Etiquette of RCRs — Chris Gehlker <gehlker@...>
I have a specific addition I would like to see in mkmf. I also have some
Hi,
On 3/22/02 8:30 PM, "nobu.nokada@softhome.net" <nobu.nokada@softhome.net>
[#36642] extracting multi-line <a> tags? — Tobias DiPasquale <anany@...>
Hi all,
[#36644] ruby-gtk fatal error — Patrik Sundberg <ps@...>
hi,
[#36645] Ruby for Mac OS 10.1 — Jim Freeze <jim@...>
Hi:
Chris Gehlker <gehlker@fastq.com> wrote:
On 3/25/02 1:19 PM, "Jayce Piel" <jayce@mosx.net> wrote:
On Tue, Mar 26, 2002 at 10:25:57AM +0900, Chris Gehlker wrote:
[#36670] sendmail undisclosed-recipients — "Chris Morris" <chrismo@...>
Have the following code:
[#36690] CGI testing — "Norman Makoto Su" <normsu@...>
Hi,
[#36691] ruby-dev summary 16301-16500 — Minero Aoki <aamine@...>
Hi all,
[#36712] ruby -n -e doesn't find things ... — Ron Jeffries <ronjeffries@...>
I'm confused. This line
[#36721] How to split an Array efficiently? + non-inplace Delete_if —
Hi,
[#36726] A mode-ruby.el for xemacs ? — jayce@... (Jayce Piel)
[#36733] dbm/gdbm/sdbm — Urban Hafner <ruby-lists@...>
Hey hey,
[#36768] Re: Difference between 'do' and 'begin' — Clemens Hintze <c.hintze@...>
In <slrna9ulvi.f2h.mwg@fluffy.isd.dp.ua> Wladimir Mutel <mwg@fluffy.isd.dp.ua> writes:
james@rubyxml.com wrote:
On Tue, 2002-03-26 at 11:27, Kent Dahl wrote:
Hi,
> Using direct translation, we use "block" for the former (do), "statement
james@rubyxml.com wrote:
[#36771] yield in iterator's body - — Wladimir Mutel <mwg@...>
Can we write in Ruby something like this :
[#36808] Error calling Tk in a loop — <james@...>
I'm trying to write some code that pops up a Tk window when for certain
Hi,
[#36829] Experience with larger web-projects in Ruby? — "Jonas Delfs" <jonas@...>
Hi -
[#36841] RE: Windows version of Ruby (proposals) — "Andres Hidalgo" <sol123@...>
I believe that Ruby has a place in windows (Office), I happened to have
I looked in the FAQ and didn't see this, but can someone give me their opinion
[#36863] Hash.new(Hash.new) doesn't use Hash.new as default value — "Jonas Delfs" <jonas@...>
Hi -
>>>>> "J" == Jonas Delfs <jonas@NOSPAMdelfs.dk> writes:
"Yukihiro Matsumoto" <matz@ruby-lang.org> skrev i en meddelelse
"Jonas Delfs" <jonas@NOSPAMdelfs.dk> writes:
Hi,
[#36871] RE: File change notification? — Dale Martenson <dmartenson@...>
Hello,
[#36879] Ruby SWIG problems — "James Adam" <james@...>
Hi
[#36882] Webrick book ?? — Markus Jais <mjais@...>
hello
[#36910] Variable variables in Ruby? — "Jonas Delfs" <jonas@...>
Hi -
[#36934] parsing strings into numbers — "Chris Morris" <chrismo@...>
Ruby knows that:
[#36944] Anyone in or around Bergen want to talk Ruby? — Dave Thomas <Dave@...>
[#36977] Dir.glob => Enumerable.glob? — Thomas Sdergaard <thomass@...>
Why not?
[#36990] rubydbi in debian? — Tom Robinson <tom@...>
It would be nice to have this as a package in debian. Any ruby debian
On Fri, 29 Mar 2002 12:00:22 GMT, Massimiliano Mirra
[#37005] Matz's book ?? — Markus Jais <info@...>
hello
[#37009] optimization questions — George Moschovitis <gmosx@...>
Hi there,
[#37036] My sprintf methods and props for FXRuby — Jonathan Gillette <jonathan@...>
I've had a blast with Ruby over the past seven or so months and thought I'd pass on a bit of favorite code. I always find myself laying out my strings with sprintf and found it handy to add sprintf methods to arrays, hashes, and the REXML::Element class. I thought someone else might find this useful or might clue me in on some optimizations.
[#37038] RUNIT: mixin instead of inheriting? — ptkwt@...1.aracnet.com (Phil Tomson)
[#37043] Creating an instance of a class without calling initialize() — harryo@... (Harry Ohlsen)
For reasons that I'll go into if someone's interested,
[#37060] Re: Creating an instance of a class without calling initialize() — "Joseph Girgis" <jbgirgis@...>
Why don't you want the initialize() method?
"Joseph Girgis" <jbgirgis@msn.com> wrote in message news:<OE74EzcT1ePyu91wCJW00002df4@hotmail.com>...
[#37080] Why isn't Math object-oriented? — Bil Kleb <W.L.Kleb@...>
So I'm reading along in the Pixaxe book (yet again), and I am told
On Sun, 31 Mar 2002 15:44:46 GMT, matz@ruby-lang.org (Yukihiro Matsumoto) wrote:
Hi,
[#37093] Timezone name -> UTC hour offset? — Sean Chittenden <sean@...>
Is there any way of going from -0800 to (PST|PDT) ? Is there a module
[#37115] rbot - ruby IRC bot — Tom Gilbert <tom@...>
Hi,
i've not used ruby for that long, but i've found the need to do the
[#37119] Detecting class variables.... — Sean Chittenden <sean@...>
I have a class that will have many objects and each object has a
Hello --
> > I have a class that will have many objects and each object has a
Hi --
[#37121] String#begins?(s) — timsuth@... (Tim Sutherland)
class String
Hi,
Re: ruby simulations
When I had learned of ruby I had thought that it would be useful to create a quick and dirty simulation. Living in Louisiana we have small towns almost everyone who has the same last name and I have also wondered about the growth of communities such as the Mayflower community and the lost colony in Virginia. It was a great way to learn ruby. Tom Reilly
Attachments (1)
#----------------------------------------------------------------
#
# famnam.rb - family name simulation
#
#----------------------------------------------------------------
$mar_rate = .11
$birth_rate = .21
$divorce_rate = .013
$pstart = 200 # of people at the start of simulation
$simyrs = 1000 # years of simulation
def lookup(arg,argt,argf)
i = 0
if argt.size == argf.size
argt.each_index do |i|
if argt[i] >= arg
break
end
end
if argt[i + 1] == argt[i]
argf[i]
else
delta = (argf[i + 1] - argf[i])/(argt[i + 1] - argt[i])
dd = (arg - argt[i]) / (argt[i + 1] - argt[i])
argf[i] + (dd * delta)
end
else
print "ARRAY SIZE ERROR ", argt.size, " ", argf.size, "\n"
exit
end
end
#----------------------------------------------------------------------
class Birth
def initialize(father, mother)
@sex = rand(2)
if @sex == 1
@dom = $yr + lookup(rand() * 100,$ixm,$ixa)
else
@dom = $yr + lookup(rand() * 100,$ixf,$ixa)
end
@dob = $yr
@pid = getgene
@name = ""
@married = false
@gene = Array.new
if father == nil
@gene[0] = getgene
@gene[1] = getgene
@gene[2] = getgene
mkname
else
@name = father.name
@gene[0] = father.pid
@gene[1] = father.gene[0]
@gene[2] = father.gene[1]
end
if mother == nil
@gene[3] = getgene
@gene[4] = getgene
@gene[5] = getgene
else
@gene[3] = mother.pid
@gene[4] = mother.gene[0]
@gene[5] = mother.gene[1]
mkname if father == nil
end
end
def view
print "name ", @name, " pid ", @pid, " dob ", @dob, " mort ", @dom, " sex ", @sex, "\n"
print " parents "
print gene.each {|i| print i, " "}
print "---\n"
end
def name
@name
end
def pid
@pid
end
def gene
@gene
end
def dom
@dom
end
def rip
$yr > @dom
end
def married
@married
end
def marry
@married = true
end
def unmarry
@married = false
end
def age
$yr - @dob
end
def sex
@sex
end
def dob
@dob
end
private
def mkname
@name = ""
(1..5).each do |i|
ch = rand(25)
ch += "A".slice(0)
@name = @name + ch.chr
end
end
def getgene
$pix += 1
end
end
#--------------------------------------------------------------------------
public
class Population
def initialize
@plist = Array.new
@marriages = Array.new
@male_eligible = Array.new
@female_eligible = Array.new
@birth_count = 0
@marriage_count = 0
@died = 0
@name_count = 0
$pstart.times do
@plist.push(Birth.new(nil,nil))
end
end
def birth(dad,mom)
@plist.push(Birth.new(dad,mom))
end
def size
@plist.size
end
def kill
@died = 0
#| @plist.each_index do |person|
#| print @plist[person].dom, " ", @plist[person].dom.type, "\n"
#| end
@plist.each {|per| @died += 1 if per.rip}
@plist.delete_if {|per| per.rip}
@plist.compact
@died
end
def each
for i in @plist
yield(i)
end
end
# - Count the number of names in the population
def names
names = Hash.new(0)
@plist.each {|p| names[p.name] += 1}
@name_count = names.size
end
def stats
print "YEAR ", $yr, ", POPULATION ", @plist.size, ", MARRIAGES ", @marriage_count, ", BIRTHS ", @birth_count, ", DEATHS ", @died, ", NAMES ", @name_count, "\n"
exit if @plist.size == 0
end
def marriage_end
@marriages.each_index do |m|
msw = false
if $yr > @marriages[m].him.dom || $yr > @marriages[m].her.dom
@marriages[m].unmarry
@marriages[m].smend
else
if rand() < $divorce_rate
@marriages[m].unmarry
@marriages[m].smend
end
end
end
@marriages.delete_if {|mp| mp.mend == true}
@marriages.compact
end
def year
marry
make_babies
names
marriage_end
kill
stats
wstat
end
def make_babies
@birth_count = 0
@marriages.each do |m|
if $yr - m.her.dob > 15 && $yr - m.her.dob < 45
if rand() < $birth_rate
@birth_count += 1
@plist.push(Birth.new(m.him,m.her))
end
end
end
end
def marry
@male_eligible.clear
@female_eligible.clear
@marriage_count = 0
@plist.each do |p|
if p.sex == 1 && p.age > 16 && p.married == false then @male_eligible.push(p)
end
if p.sex == 0 && p.age > 16 && p.married == false then @female_eligible.push(p)
end
end
melig = @male_eligible.size
felig = @female_eligible.size
if melig < felig
marmin = melig
else
marmin = felig
marmin = felig
end
(1..marmin).each do |i|
marsw = false
malep = rand(melig)
femp = rand(felig)
man_elig = @male_eligible[malep]
lady_elig = @female_eligible[femp]
# insest prevention
lady_elig.gene.each do |fi|
man_elig.gene.each do |mi|
if fi == mi
marsw = true
end
end
end
marsw = true if rand() > $mar_rate
if marsw == false
@marriages.push(Marriage.new(@male_eligible[ malep ], @female_eligible[ femp]))
@marriage_count += 1
# @male_eligible[malep].delete
# @female_eligible[femp].delete
melig -= 1
felig -= 1
end
end
end
def pop_dist
pop_a = Array.new(15,0)
pop_tot = 0
@plist.each {|p| pop_a[(p.age / 10).to_i] += 1}
pop_a.each {|i| pop_tot += i}
pop_a.each_index do |i|
pf = 1000.0 * pop_a[i].to_f / pop_tot.to_f
printf("%d %0.2d\n",i,pf)
end
end
def wstat
$stfile.write("#{$yr}\t#{size}\t#{@marriages.size}\t#{@male_eligible.size}\t#{@female_eligible.size}\t#{@birth_count}\t#{@marriage_count}\t#{@died}\t#{@name_count}\n")
end
end
#----------------------------------------------------------------------
class Marriage
def initialize(him,her)
@mend_flag = false
@him = him
@her = her
@him.marry
@her.marry
end
def unmarry
@him.unmarry
@her.unmarry
end
def her
@her
end
def him
@him
end
def mend
@mend
end
def smend
@mend = true
end
end
#----------------------------------------------------------------------
$yr = 1
$pix = 0
$ixa = [1,2,3,4,5,10,20,30,40,50,60,70,80,90,100,110,120,120]
$ixm = [0,1.33,2,2,2.67,3.33,4,4.67,5.33,14,24,47.33,77.33,96,99.33,100,100,100]
$ixf = [0,1.33,2,2,2,2,2.67,2.67,4,8,5.33,22,50,88.67,98,99.33,100,100]
$stfile = File.open("stfile","w")
$stfile.write("year\tsize\tmarriages\tmale_eligible\tfemale_eligible\tbirth_count\tmarriage_count\tdied\tname_count\n")
population = Population.new
(1..$simyrs).each do
population.year
$yr += 1
end
population.pop_dist
names = Hash.new(0)
population.each {|p| names[p.name] += 1}
names.each {|n,c| $stfile.write "#{n}\t#{c}\n"}
$stfile.close