全然関係ないけど、神がRbで人を組んだらたぶんこんな感じ。

Sub ある人の一生(遺伝子 As DNA)
Dim TheMan,ThePartner As 人

TheMan = Make_Human(遺伝子)

do until あぼーん(TheMan.年) = true
　ThePartner = Get_Partner(TheMan.かっこよさ,TheMan.おもしろさ)
　If ThePartner = nil then
　　TheMan.おなーに
　else
　　TheMan.せくーす(ThePartner)
　　if TheMan.性別 <> ThePartner.性別 then
　　　if Is_MakeChild(1/TheMan.かしこさ,1/ThePartner.かしこさ) = true then
　　　　ある人の一生((TheMan.遺伝子+ThePartner.遺伝子)/2)
　　　end if
　　end if
　end if
loop

end sub


人class
Propertys
遺伝子 As DNA
性別 As Boolean
かしこさ,おもしろさ,かっこよさ,年 As Integer
Methods
おなーに
せくーす(相手 As 人)

誰か使って(w