[CoCoRiCo]

Belki merak edeniniz olmuştur.. Dünyada savaşlar hastalıklar vb. bir çok olay olmasına rağmen, kadın ve Erkekler'in nufusnu kontrol
eden bir insan yapımı yada başka mekanizma yok.
Bu populasyonun kadın - erkek nufuslarının birbirine oranı çok yakın..
Bende bunu bilgisayarda simüle etmek istedim..

Bu iş için de 1-50'ye kadar olan ve 50'den - 100'e kadar sayıları kadın ve erkek olarak ayırdım..
kod, Rastgele 50 ve 50 den büyük sayıları üreterek sonuçların bir ortalamasını alıyor.. ve birbirine oranını kontrol ediyor, bu işlemi
milyar/1 ölçekli oranla (7 milyar ise 70) sınıyor.. ortaya ilgiç bir sonuç çıkıyor..
örnek:
eğer Dünya nufusu 7500 olsaydı
/Wpop 7500

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias wpop {
  if $regex($1,/\d+/) { 
    var %w $1 | while (%w) { var %i $rand(1,100) | $iif(%i <= 50,inc -u %k,inc -u %e) | dec %w }
    while %w < 100 { var -u %b $calc(%b + $calc(($sorttok(%k - %e,45,nr))/ %e * 100)) | inc %w }
    echo Erkek: %e Kadın. %k Oran: $(%) $+ $calc(%b / 100 )
  }
}

iyi eğlenceler..