Hatena::Groupkakisute

g5nの書き殴り

2008-05-24

ブログサービスのアクティブユーザ数

ブログサービスのアクティブユーザ数 - g5nの書き殴り を含むブックマーク はてなブックマーク - ブログサービスのアクティブユーザ数 - g5nの書き殴り

http://www.blogfan.org/service/ から、最新のアクティブユーザー数の一覧をつくる。

% ruby blogfan.rb =(w3m -dump_source http://www.blogfan.org/service/)
アメーバブログ     415037 (18.8%)
FC2ブログ          394841 (17.9%)
Yahoo!ブログ       226763 (10.3%)
livedoor Blog      210874 ( 9.6%)
ヤプログ!         133781 ( 6.1%)
Seesaaブログ       124669 ( 5.7%)
楽天ブログ         120064 ( 5.4%)
goo ブログ         118218 ( 5.4%)
JUGEM              115691 ( 5.2%)
ココログ            72414 ( 3.3%)
はてなダイアリー    58980 ( 2.7%)
AutoPage            40897 ( 1.9%)
CURURU              39812 ( 1.8%)
エキサイトブログ    39435 ( 1.8%)
ウェブリブログ      35014 ( 1.6%)
So-net blog         26790 ( 1.2%)
ブログ人            12688 ( 0.6%)
LOVELOG              7057 ( 0.3%)
ドリコムブログ       6468 ( 0.3%)
Doblog               2469 ( 0.1%)
AOLダイアリー     2233 ( 0.1%)

ソース

require "nkf"
require "pp"
html = NKF::nkf("-We", $<.read)
table = html.scan(%r_(<h3>.*?</h3>)|(<caption>毎月のアクティブユーザー数</caption>.*?</tbody>)_im)

result = []
table.each{|provider, monthly|
  if provider
    result << [provider.scan(%r_>([^<]*?)</a>_im).flatten.last]
  elsif monthly
    monthly.scan(%r_<th>(.*?)</th>_im).flatten.last
    result.last << monthly.scan(%r_<td>(.*?)</td>_im).flatten.last.to_i
  end
}

sum = result.inject(0){|i,j| j[1]+i}
max = result.inject(0){|i,j| [j[0].size, i].max}
puts result.sort_by{|n,m| -m}.map{|a,b| sprintf("%-#{max}s %8d (%4.1f%%)\n", a,b,b*100.0/sum)}

LiabuicLiabuic2018/02/26 09:10Cheap Cialis For Sale <a href=http://cheapciali.com>buy cialis</a> Fedex Shipping Dutasteride Mastercard Accepted Viagra Tra I Giovani

HearceFusHearceFus2018/04/12 05:21is cialis a prescription drug only best offers cialis store online sales pfizer cialis <a href="http://kaivanrosendaal.com/#Buy-Cheap-Cialis-Online">Cheap Cialis usa</a> can you get cialis for free <a href="http://kaivanrosendaal.com/#Cialis-Cheap-Buy-Online">buy cialis online</a> food that works like cialis cialis 20

HilFaillaHilFailla2018/04/15 21:21Amoxicillin 350mg Tid For 7 Days Tetracycline And Amoxicillin Alli Canada Walmart <a href=http://ciali5mg.com>canadian cialis</a> Zithromax Bronchitis Dosage Generic Isotretinoin Internet Website Indian Cialis 5mg

BrceFusBrceFus2018/04/16 17:30we recommend cialis info prix cialis once a da
<a href="http://kaivanrosendaal.com/#Cialis-Cheap-Buy-Online">buy cialis online</a> cialis australia org cialis 05

BrceFusBrceFus2018/04/17 09:41comprar cialis navarr the best site cialis tablets
<a href="http://kaivanrosendaal.com/#Buy-Cheap-Cialis-Online">Cheap Cialis usa</a> we recommend cheapest cialis generic cialis 20mg tablets

BrceFusBrceFus2018/04/18 02:5140 mg cialis what if i take the best site cialis tablets
<a href="http://kaivanrosendaal.com/">buy cialis online</a> costo in farmacia cialis buy cialis cheap 10 mg

HrafdceFusHrafdceFus2018/04/18 22:08only today cialis mexico safest site generic cialis is cialis safe for teenagers <a href=http://jvrimages.com/#viagra+vs+cialis+vs+levitra>when will cialis become generic</a> red cialis barato comprar cialis free com erfahrungen cialis acheter sur internet
<a href=http://jvrimages.com/#generic+cialis+at+walmart>tadalafil generic</a> we use it cialis buy usa cialis pillen erfahrungen alternatives sale cialis
http://jvrimages.com/#sildenafil+coupons farmacias en lnea cialis buy vaginal cialis cialis invention

HrafdceFusHrafdceFus2018/04/20 00:34vente de cialis en ligne cialis 38 cialis italia senza ricetta <a href=http://jvrimages.com/#cialis+5+mg>cialis without a doctor's prescription</a> usefull link best cialis buy what is the best brand cialis cialis online australia buy
<a href=http://jvrimages.com/#generic+cialis>cialis 20mg</a> best price cialis name brand can i take cialis to the us cheapest brand cialis online
http://jvrimages.com/#free+cialis cialis generico in italia cialis in canada we choice cialis canda

HrafdceFusHrafdceFus2018/04/20 17:27side effects of cialis for men we use it cialis health store cialis 5mg price
<a href="http://jvrimages.com/">buy cialis online</a> otc cialis in uk get cialis nigeria retail cost cialis
buy cialis uk online paypal getting the best from cialis visit web site homemade cialis
http://jvrimages.com/#cialis+from+canada cialis maximum dose daily generico de cialis mexico can i take cialis to us

KufdrgeTagKufdrgeTag2018/05/02 15:01cialis usa cost tesco price cialis <a href="http://foreigncircles.com/#buy-Trazodone-cheap">buy trazodone 50 mg</a>
cialis per paypa miglior cialis generico
<a href="http://foreigncircles.com/#buy-Trazodone">Trazodone cheap</a>
http://foreigncircles.com

KufdrgeTagKufdrgeTag2018/05/02 17:12order a sample of cialis we choice cialis uk <a href="http://foreigncircles.com/#buy-Trazodone-cheap">buy trazodone 50 mg</a>
cialis super kamagra cialis super acti
<a href=http://foreigncircles.com/#foreigncircles.com>Trazodone cheap</a>
http://foreigncircles.com

KufdrgeTagKufdrgeTag2018/05/02 18:13cialis ahumada cialis pills price each <a href=http://foreigncircles.com/#foreigncircles.com>buy Trazodone cheap</a>
cialis 20 mg cost cialis efficacit
<a href="http://foreigncircles.com/#buy-Trazodone">Trazodone cheap</a>
http://foreigncircles.com

JorgeNeictJorgeNeict2018/05/09 10:07kamagra 100mg oral jelly (sildenafil) 5gm
<a href="http://kamagradyn.com/">buy kamagra 100mg</a>
come si usa il kamagra oral jelly
<a href="http://kamagradyn.com/">buy kamagra</a>
reviews kamagra gold
http://kamagradyn.com/
kamagra oral jelly deutschland

KeithacavaKeithacava2018/05/11 14:37kamagra 100mg
<a href="http://kamagraonl.com/">kamagra 100 mg oral jelly</a>
how to use kamagra oral jelly sildenafil
<a href="http://kamagraonl.com/">buy kamagra 100 mg oral jelly</a>
kamagra kopen in winkel rotterdam
http://kamagraonl.com/
kamagra 100 gold ajanta

AltoncroftAltoncroft2018/05/11 23:21tab cialis 20mg price in pakistan
<a href="http://airvietnamairline.com/">buy generic cialis online</a>
precio cialis generico mexico
<a href="http://airvietnamairline.com/">buy generic cialis</a>
cialis 5mg vs 20mg
http://airvietnamairline.com/
donde puedo comprar cialis generico mexico

HowardSwowlHowardSwowl2018/05/12 00:37generic alternative to viagra
<a href="http://amsboatyard.com/">generic viagra</a>
viagra precisa de receita portugal
<a href="http://amsboatyard.com/">buy generic viagra online</a>
viagra over counter paypal
http://amsboatyard.com/
generic viagra names mazzograna

WilliambuMWilliambuM2018/05/12 15:40cialis vs viagra vs levitra
<a href="http://airvietnamairline.com/">buy generic cialis online</a>
cialis generico precio en mexico
<a href="http://airvietnamairline.com/">generic cialis online</a>
cost of cialis compared to viagra
http://airvietnamairline.com/
release date for generic cialis

DarwinthiceDarwinthice2018/05/12 16:58viagra 50 mg coupons 2016
<a href="http://amsboatyard.com/">buy viagra online</a>
viagra cialis generic
<a href="http://amsboatyard.com/">generic viagra online</a>
viagra side effects over time
http://amsboatyard.com/
viagra without a doctor prescription canada

BrandonadjutBrandonadjut2018/05/12 23:24kamagra 50 mg oral jelly usa
<a href="http://kamagraonl.com/">kamagra 100mg</a>
kamagra oral jelly come si usa
<a href="http://kamagraonl.com/">buy kamagra 100 mg oral jelly</a>
kamagra kopen
http://kamagraonl.com/
kamagra oral jelly for sale in usa

DustytwideDustytwide2018/05/13 06:35low cost generic cialis
<a href="http://airvietnamairline.com/">cialis</a>
cialis price at walmart pharmacy
<a href="http://airvietnamairline.com/">buy generic cialis</a>
cialis bathtub commercial actress 2015
http://airvietnamairline.com/
cialis 20 mg indications

RobertNonRobertNon2018/05/13 07:38viagra coupons 75 off
<a href="http://amsboatyard.com/">viagra</a>
viagra preço rio de janeiro
<a href="http://amsboatyard.com/">buy generic viagra</a>
equivalent doses of cialis and viagra
http://amsboatyard.com/
viagra como tomar

WilliammipWilliammip2018/05/13 11:08viagra vs cialis vs levitra comparison
<a href="http://buylevitraonl.com/">buy levitra online</a>
generic levitra prices
<a href="http://buylevitraonl.com/">levitra</a>
prices for levitra 20 mg
http://buylevitraonl.com/
viagra vs cialis vs levitra cost comparison

WarrenCroloWarrenCrolo2018/05/13 13:07kamagra oral jelly 100mg
<a href="http://kamagraonl.com/">kamagra 100 mg oral jelly</a>
kamagra oral jelly review uk
<a href="http://kamagraonl.com/">kamagra 100 mg</a>
kamagra kopen amsterdam
http://kamagraonl.com/
kamagra oral jelly india manufacturer

HarryhefHarryhef2018/05/13 15:33generic viagra uk next day delivery
<a href="http://buyviagrapw.com/">buy viagra</a>
brand viagra without a doctor prescription indiana
<a href="http://buyviagrapw.com/">buy viagra</a>
levitra vs viagra vs cialis reviews
http://buyviagrapw.com/
price comparison viagra cialis levitra

JamesduemaJamesduema2018/05/13 21:42viagra coupons for cvs
<a href="http://amsboatyard.com/">buy viagra online</a>
viagra dosagem ideal
<a href="http://amsboatyard.com/">buy viagra</a>
viagra prices us pharmacy
http://amsboatyard.com/
effectiveness of cialis vs viagra vs levitra comparison table

CecilbonCecilbon2018/05/13 21:57sildenafil citrate 20 mg side effects
<a href="http://sildenafilviagrap.com/">sildenafil citrate 50mg</a>
what are sildenafil citrate tablets ip
<a href="http://sildenafilviagrap.com/">sildenafil citrate 20mg</a>
sildenafil citrate 100mg tablets
http://sildenafilviagrap.com/
sildenafil citrate 100mg tab cost per pill

VaughnEreptVaughnErept2018/05/14 03:21effectiveness of cialis vs viagra vs levitra vs kamagra
<a href="http://kamagraonl.com/">kamagra 100 mg</a>
kamagra now reviews
<a href="http://kamagraonl.com/">buy kamagra online</a>
kamagra 100mg oral jelly india
http://kamagraonl.com/
kamagra 100mg tablets for sale uk

RaymondwicRaymondwic2018/05/14 04:19levitra coupons 2016
<a href="http://levitraonlq.com/">levitra 10mg</a>
levitra 20 mg cost cvs
<a href="http://levitraonlq.com/">buy levitra</a>
levitra generic
http://levitraonlq.com/
levitra vs viagra reviews

MatthewlitMatthewlit2018/05/14 08:23does viagra have long term effects
<a href="http://genericviagrasu.com/">buy generic viagra online</a>
viagra effects on hearing and eye sight
<a href="http://genericviagrasu.com/">buy generic viagra online</a>
viagra soft gel capsules
http://genericviagrasu.com/
viagra posso tomar

JamesabankJamesabank2018/05/14 10:38how long cialis side effects last
<a href="http://airvietnamairline.com/">generic cialis</a>
cialis 5mg daily use study effectiveness
<a href="http://airvietnamairline.com/">buy generic cialis</a>
buy cialis canada pharmacy
http://airvietnamairline.com/
cialis maximum daily dose

DanielWexDanielWex2018/05/14 11:44viagra dosage instructions
<a href="http://amsboatyard.com/">viagra generic</a>
generic viagra 100mg side effects
<a href="http://amsboatyard.com/">buy viagra online</a>
pfizer brand viagra 100mg sale
http://amsboatyard.com/
side effects of cialis and viagra

LarryereriLarryereri2018/05/14 15:33sildenafil citrate 100mg costco
<a href="http://sildenafilcitratepw.com/">buy sildenafil citrate online</a>
sildenafil citrate tablets 100 mg
<a href="http://sildenafilcitratepw.com/">buy viagra</a>
what is sildenafil citrate 20 used for
http://sildenafilcitratepw.com/
sildenafil citrate does it work

ElroypoerYElroypoerY2018/05/14 17:27kamagra 100 chewable tablets
<a href="http://kamagraonl.com/">kamagra 100mg</a>
kamagra dosage chart
<a href="http://kamagraonl.com/">buy kamagra 100 mg oral jelly</a>
kamagra oral jelly
http://kamagraonl.com/
kamagra oral jelly 100mg sildenafil citrate

KelvinNobKelvinNob2018/05/14 19:40cialis 20 mg 30 tablet orjinal mi
<a href="http://cialisgenericmg.com/">cialis generic</a>
en ucuz cialis 20 mg 30 tablet
<a href="http://cialisgenericmg.com/">generic cialis</a>
cialis commercial 2013 actors
http://cialisgenericmg.com/
coupon for cialis 20 mg

RobertpaiceRobertpaice2018/05/14 23:56cialis coupon 2016
<a href="http://buycialisonl.com/">generic cialis online</a>
levitra vs viagra vs cialis reviews
<a href="http://buycialisonl.com/">cialis generic</a>
genric cialis extra dosage
http://buycialisonl.com/
cost of 20mg cialis at cvs

BrianMayncBrianMaync2018/05/15 01:02generic cialis prices
<a href="http://airvietnamairline.com/">buy cialis</a>
generic cialis thailand
<a href="http://airvietnamairline.com/">buy cialis</a>
viagra cialis levitra dosages
http://airvietnamairline.com/
cialis tadalafil 20 mg price in pakistan

ThomasaperoThomasapero2018/05/15 02:11cialis viagra generic
<a href="http://amsboatyard.com/">buy generic viagra</a>
cost per pill for generic viagra at cvs
<a href="http://amsboatyard.com/">generic viagra</a>
viagra for women fda
http://amsboatyard.com/
venta de viagra generico en mexico

WilliamscotaWilliamscota2018/05/15 07:08fildena 100 mg online
<a href="http://fildenaonl.com/">buy fildena</a>
fildena 100 reviews is it safe
<a href="http://fildenaonl.com/">buy fildena</a>
fildena 100 for sale
http://fildenaonl.com/
fildena 100 mg online

WilliefexWilliefex2018/05/15 07:33super kamagra forum hr
<a href="http://kamagraonl.com/">kamagra 100mg</a>
kamagra oral jelly kaufen thailand
<a href="http://kamagraonl.com/">buy kamagra online</a>
kamagra oral jelly kopen amsterdam
http://kamagraonl.com/
womens kamagra 100mg tablets

DominicfuHDominicfuH2018/05/15 11:02generic levitra 20mg tablets price
<a href="http://levitraonlq.com/">levitra</a>
levitra vs cialis vs viagra cost
<a href="http://levitraonlq.com/">levitra</a>
levitra 20 mg coupon 2017
http://levitraonlq.com/
cost of levitra vs viagra

GeorgeuritsGeorgeurits2018/05/15 14:47super active cialis reviews
<a href="http://airvietnamairline.com/">cialis generic</a>
cialis prices compare at local pharmacies
<a href="http://airvietnamairline.com/">cialis</a>
walmart pharmacy cialis cost
http://airvietnamairline.com/
prices of viagra cialis and levitra

WalterfupWalterfup2018/05/15 15:55viagra for women pink pill for sale
<a href="http://amsboatyard.com/">viagra</a>
viagra generico prezzo
<a href="http://amsboatyard.com/">generic viagra online</a>
viagra professional for sale
http://amsboatyard.com/
cheap viagra uk paypal

NathanemipsNathanemips2018/05/15 21:25buy kamagra oral jelly online usa
<a href="http://kamagraonl.com/">buy kamagra 100mg</a>
kamagra oral jelly in australia
<a href="http://kamagraonl.com/">kamagra 100mg</a>
kamagra 100mg tablets indian
http://kamagraonl.com/
kamagra oral jelly sale

ThomastediaThomastedia2018/05/15 22:19sildenafil citrate suspension package insert
<a href="http://sildenafilcitratepw.com/">sildenafil citrate online</a>
sildenafil citrate usp
<a href="http://sildenafilcitratepw.com/">sildenafil citrate 50mg</a>
nizagara sildenafil citrate tablets 100 mg
http://sildenafilcitratepw.com/
sildenafil citrate tablets 150

DonaldkedDonaldked2018/05/16 02:26levitra 20 mg tablet
<a href="http://levitraonlq.com/">levitra</a>
40 mg levitra dosage dangers
<a href="http://levitraonlq.com/">levitra</a>
levitra 20 mg generic
http://levitraonlq.com/
levitra 20 mg side effects

JeffreyHomJeffreyHom2018/05/16 04:57cialis soft tabs vs cialis
<a href="http://airvietnamairline.com/">buy cialis online</a>
cialis soft tabs 20mg
<a href="http://airvietnamairline.com/">buy generic cialis online</a>
cialis commercial song 2012
http://airvietnamairline.com/
cialis side effects sleep

PhillipskadyPhillipskady2018/05/16 06:09walmart generic viagra 100mg best price
<a href="http://amsboatyard.com/">viagra generic</a>
youtube viagra commercial 2015 asian actresses
<a href="http://amsboatyard.com/">viagra generic</a>
100 mg viagra dosage recommended
http://amsboatyard.com/
viagra side effects duration

RichardvupRichardvup2018/05/16 06:21what is the generic pill for viagra
<a href="http://genericviagrasu.com/">viagra generic</a>
levitra vs viagra
<a href="http://genericviagrasu.com/">buy generic viagra</a>
taking viagra abroad forum
http://genericviagrasu.com/
viagra generico in farmacia italiana

CharlesnesseCharlesnesse2018/05/16 11:37dlp store kamagra
<a href="http://kamagraonl.com/">kamagra 100 mg</a>
kamagra oral jelly for sale in usa il
<a href="http://kamagraonl.com/">buy kamagra 100 mg</a>
kamagra 100mg tablets
http://kamagraonl.com/
direct kamagra uk

MichaelPralaMichaelPrala2018/05/16 13:40what does sildenafil citrate do
<a href="http://sildenafilcitratepw.com/">buy generic viagra online</a>
sildenafil citrate generic date
<a href="http://sildenafilcitratepw.com/">buy sildenafil citrate</a>
sildenafil citrate 100mg instructions
http://sildenafilcitratepw.com/
lowest price ever sildenafil citrate 100mg

DexterPouraDexterPoura2018/05/16 17:56cialis tab 20 mg
<a href="http://cialisgenericmg.com/">generic cialis online</a>
cialis side effects muscle cramps
<a href="http://cialisgenericmg.com/">buy generic cialis online</a>
cialis viagra generico
http://cialisgenericmg.com/
order generic cialis online canada

RonnieTusRonnieTus2018/05/16 22:12best price cialis generic
<a href="http://buycialisonl.com/">buy cialis online</a>
cialis dosage cost
<a href="http://buycialisonl.com/">buy generic cialis</a>
genericos viagra cialis levitra
http://buycialisonl.com/
is there generic cialis in canada

CharlesLepCharlesLep2018/05/17 01:56kamagra jelly kopen amsterdam
<a href="http://kamagraonl.com/">buy kamagra 100 mg</a>
kamagra oral jelly suppliers india
<a href="http://kamagraonl.com/">buy kamagra online</a>
kamagra uk company
http://kamagraonl.com/
kamagra 100mg oral jelly suppliers indianapolis in

FrancistewFrancistew2018/05/17 06:23fildena 50
<a href="http://fildenaonl.com/">fildena</a>
fildena india
<a href="http://fildenaonl.com/">buy fildena</a>
fildena 100 purple for sale
http://fildenaonl.com/
fildena 100 purple for sale

MichaelJamMichaelJam2018/05/17 09:28buy cialis soft tabs
<a href="http://airvietnamairline.com/">buy cialis</a>
generic cialis prices
<a href="http://airvietnamairline.com/">buy generic cialis</a>
levitra versus cialis reviews
http://airvietnamairline.com/
effectiveness of cialis vs viagra vs levitra 2013

RonaldSEWRonaldSEW2018/05/17 10:31cost of levitra vs cialis vs viagra
<a href="http://levitraonlq.com/">levitra 10mg</a>
levitra 20 mg generic
<a href="http://levitraonlq.com/">levitra</a>
levitra dosage chart
http://levitraonlq.com/
levitra price at walmart pharmacy

ThomasAbeliThomasAbeli2018/05/17 14:18effects of viagra on older men
<a href="http://buyviagrapw.com/">buy generic viagra online</a>
buy viagra online usa
<a href="http://buyviagrapw.com/">buy viagra</a>
viagra generico espaГ±a contrareembolso
http://buyviagrapw.com/
best time to take viagra and cialis

PeterrewPeterrew2018/05/17 16:01kamagra oral jelly manufacturers in india
<a href="http://kamagraonl.com/">buy kamagra online</a>
kamagra oral jelly online usa
<a href="http://kamagraonl.com/">kamagra 100mg</a>
kamagra 100mg tablets for sale in use
http://kamagraonl.com/
kamagra 100mg tablets for sale

KeithActitKeithActit2018/05/17 16:02generic viagra 100mg price in india
<a href="http://amsboatyard.com/">buy generic viagra online</a>
female viagra amazon india
<a href="http://amsboatyard.com/">generic viagra</a>
viagra prices at walmart pharmacy
http://amsboatyard.com/
viagra commercial actress in blue dress

LarryKigLarryKig2018/05/17 22:09sildenafil citrate supplement
<a href="http://sildenafilcitratepw.com/">buy viagra</a>
sildenafil citrate 20mg tabs amne
<a href="http://sildenafilcitratepw.com/">buy sildenafil citrate</a>
sildenafil citrate 20 mg tab amne
http://sildenafilcitratepw.com/
sildenafil citrate dosage

GeorgeTogGeorgeTog2018/05/17 23:40cialis tv commercial actresses
<a href="http://airvietnamairline.com/">cialis generic</a>
viagra e cialis generico
<a href="http://airvietnamairline.com/">generic cialis</a>
cialis 20 mg costco
http://airvietnamairline.com/
directions for cialis 20mg how much water

WesleyvogWesleyvog2018/05/18 02:50side effects of levitra vs viagra
<a href="http://levitraonlq.com/">levitra online</a>
levitra coupons printable
<a href="http://levitraonlq.com/">buy levitra</a>
levitra price at walmart pharmacy
http://levitraonlq.com/
levitra generic price

RehgeTagRehgeTag2018/05/18 05:45<a href="http://humblegaiwan.com/">buy sildenafil cheapest</a> viagra daily dose generic viagra 5 effetti collaterali
buy viagra online cheapest tesco price viagra <a href="http://humblegaiwan.com/">buy sildenafil cheap through online sales</a>
viagra 5 mg para diabeticos legalidad de comprar viagra
we like it viagra price buy name brand viagra on line <a href=http://humblegaiwan.com/>buy cheap sildenafil online now</a>
generic low dose viagra usa viagra online
http://humblegaiwan.com/

DonaldunaftDonaldunaft2018/05/18 07:06viagra bestellen amsterdam
<a href="http://amsboatyard.com/">buy viagra online</a>
viagra super active plus review
<a href="http://amsboatyard.com/">buy viagra</a>
generic viagra cheapest price
http://amsboatyard.com/
cialis vs viagra reddit

RehgeTagRehgeTag2018/05/18 07:18<a href="http://jardinstea.com/#sildenafil-citrate">sildenafil 100 mg tablets</a> import viagra viagra qualitat
miglior viagra generico buy viagra sample pack <a href="http://humblegaiwan.com/">buy sildenafil online cheap with no prescription</a>
buy viagra online nz viagra super acti
mycanadyanpharmacyviagra viagra super acti <a href=http://humblegaiwan.com/>best place to buy cheap sildenafil</a>
viagra rezeptfrei sterreich viagra generico milano
http://humblegaiwan.com/

FrankGueteFrankGuete2018/05/18 07:32genericos viagra cialis
<a href="http://genericviagrasu.com/">buy viagra</a>
viagra dosagem ideal
<a href="http://genericviagrasu.com/">buy generic viagra</a>
generic for viagra release date
http://genericviagrasu.com/
levitra vs viagra dosage comparison

RehgeTagRehgeTag2018/05/18 09:48<a href="http://jardinstea.com/">Buy sildenafil 100 mg</a> viagra price in bangalore click now buy viagra brand
only best offers 100mg viagra viagra en 24 hora <a href="http://humblegaiwan.com/">buy cheap sildenafil generic online</a>
viagra ahumada viagra name brand cheap
viagra 05 wow look it viagra mexico <a href=http://humblegaiwan.com/>buy cheap generic sildenafil online</a>
opinioni viagra generico wow viagra 20
http://humblegaiwan.com/

RehgeTagRehgeTag2018/05/18 11:03<a href="http://humblegaiwan.com/">buy sildenafil for cheap</a> achat viagra en itali viagra uk next day
cuanto cuesta viagra yaho viagra authentique suisse <a href="http://jardinstea.com/#buy-100-mg">sildenafil 100 mg for sale</a>
viagra with 2 days delivery buy original viagra
buying viagra overnight order viagra from india <a href=http://jardinstea.com/#sildenafil-citrate>sildenafil 100 mg tablets</a>
viagra baratos compran uk rx viagra para comprar
http://jardinstea.com/#buy-sildenafil

RehgeTagRehgeTag2018/05/18 12:17<a href="http://humblegaiwan.com/">buy cheap sildenafil online us</a> achat viagra en suisse viagra sale online
how do viagra pills work we choice free trial of viagra <a href="http://jardinstea.com/#buy-100-mg">Buy sildenafil 100 mg tablets</a>
pastillas viagra y alcoho comprar viagra 10 espa241a
we use it viagra online store canada discount drugs viagra <a href=http://humblegaiwan.com/>cheap sildenafil to buy</a>
viagra 05 viagra prezzo in linea basso
http://jardinstea.com/

RehgeTagRehgeTag2018/05/18 13:28<a href="http://jardinstea.com/#sildenafil">sildenafil 100 mg for sale</a> viagra generico milano effetti del viagra
viagra italia gratis only here viagra pills <a href="http://jardinstea.com/#sildenafil">Buy sildenafil 100 mg tablets</a>
we recommend cheapest viagra free generic viagra
viagra farmacias guadalajara viagra sale online <a href=http://humblegaiwan.com/>buy female sildenafil online cheap</a>
precios de viagra generico wow viagra tadalafil 100mg
http://jardinstea.com/#buy-100-mg

RehgeTagRehgeTag2018/05/18 14:34<a href="http://humblegaiwan.com/">buy cheap sildenafil online now</a> generic viagra pro viagra for sale in europa
viagra pills in singapore link for you viagra price <a href="http://jardinstea.com/#sildenafil">sildenafil citrate 100 mg prices</a>
viagra cuantos mg hay generic viagra pill online
cost of viagra per pill only here viagra pills <a href=http://jardinstea.com/>sildenafil 100 mg coupons</a>
viagra 20 mg cut in half viagra generico postepay
http://jardinstea.com/

ThomasAdorbThomasAdorb2018/05/18 15:00generic cialis rx pharmacy india
<a href="http://airvietnamairline.com/">buy cialis</a>
viagra cialis price comparison
<a href="http://airvietnamairline.com/">cialis generic</a>
lowest price on generic cialis
http://airvietnamairline.com/
cialis dosage information

RehgeTagRehgeTag2018/05/18 15:52<a href="http://humblegaiwan.com/">buy cheap sildenafil 32</a> ou trouver viagra sur le net viagra 20mg preis cf
viagra 5 mg effetti collateral the best site viagra tablets <a href="http://humblegaiwan.com/">buy generic sildenafil online cheap</a>
try it no rx viagra achat viagra en itali
generic viagra soft gels buy original viagra <a href=http://humblegaiwan.com/>buy cheap sildenafil online australia</a>
non 5 mg viagra generici fast viagra online
http://humblegaiwan.com/

RehgeTagRehgeTag2018/05/18 17:16<a href="http://humblegaiwan.com/">buy cheap sildenafil 120mg</a> only best offers 100mg viagra enter site very cheap viagra
generic viagra 20mg uk viagra generico milano <a href="http://humblegaiwan.com/">buy sildenafil pills for cheap</a>
how to purchase viagra on line viagra flussig
viagra for sale south africa how to purchase viagra on line <a href=http://humblegaiwan.com/>buy sildenafil online at cheap price</a>
best generic drugs viagra generic viagra at the pharmacy
http://jardinstea.com/#sildenafil-citrate

RehgeTagRehgeTag2018/05/18 18:55<a href="http://jardinstea.com/#sildenafil-citrate">sildenafil 100 mg for sale</a> viagra daily dose generic viagra cuantos mg hay
viagra pills in singapore rezeptfrei viagra apotheke <a href="http://jardinstea.com/#buy-100-mg">Buy sildenafil 100 mg for sale</a>
click here to buy viagra viagra 20 mg cut in half
enter site very cheap viagra viagra 10mg prix pharmaci <a href=http://humblegaiwan.com/>buy sildenafil cheap australia</a>
5 mg viagra pharmacie en ligne viagra generico milano
http://jardinstea.com/#buy-sildenafil

RehgeTagRehgeTag2018/05/18 20:36<a href="http://jardinstea.com/#buy-100-mg">Buy sildenafil 100 mg</a> price viagra best enter site very cheap viagra
buying brand viagra online viagra daily dose generic <a href="http://jardinstea.com/">sildenafil citrate 100 mg pills</a>
dose size of viagra acheter viagra meilleur pri
viagra kaufen wo viagra usa cost <a href=http://jardinstea.com/#sildenafil>sildenafil 100 mg</a>
viagra online nederland canadian discount viagra
http://jardinstea.com/#sildenafil

DennisRenDennisRen2018/05/18 22:09side effects of prolonged use of viagra
<a href="http://amsboatyard.com/">buy generic viagra online</a>
viagra for women over 50
<a href="http://amsboatyard.com/">generic viagra</a>
brand viagra on sale
http://amsboatyard.com/
viagra preço em farmacias popular

EdgarJerEdgarJer2018/05/18 22:11come si usa kamagra oral jelly
<a href="http://kamagraonl.com/">buy kamagra online</a>
kamagra 100mg oral jelly kako se uzima
<a href="http://kamagraonl.com/">buy kamagra 100 mg</a>
kamagra kopen apotheek
http://kamagraonl.com/
kamagra bestellen amsterdam

RehgeTagRehgeTag2018/05/18 22:23<a href="http://humblegaiwan.com/">buy sildenafil online cheap</a> click here take viagra viagra flussig
viagra price thailand only now viagra for sale in us <a href="http://jardinstea.com/">sildenafil citrate 100 mg pills</a>
miglior viagra generico 40 mg viagra what if i take
look here viagra order on line mycanadyanpharmacyviagra <a href=http://jardinstea.com/#sildenafil-citrate>Buy Sildenafil Citrate 100 mg</a>
how to buy viagra online usa tesco price viagra
http://humblegaiwan.com/

KennethGlypeKennethGlype2018/05/18 23:38brand cialis canadian pharmacy
<a href="http://buycialisonl.com/">generic cialis online</a>
cialis generic name
<a href="http://buycialisonl.com/">generic cialis online</a>
cialis dose recommendations vs viagra together
http://buycialisonl.com/
walgreens cialis coupon

WalterbireeWalterbiree2018/05/19 05:34donde puedo comprar cialis generico mexico
<a href="http://airvietnamairline.com/">buy cialis</a>
cialis dosage
<a href="http://airvietnamairline.com/">generic cialis online</a>
cialis brand name vs generic
http://airvietnamairline.com/
side effects of cialis for daily use

MichaelbrupsMichaelbrups2018/05/19 06:54fildena 50 mg tablets buy here in usa
<a href="http://fildenaonl.com/">fildena online</a>
fildena 100 mg
<a href="http://fildenaonl.com/">fildena online</a>
fildena 100 mg
http://fildenaonl.com/
fildena 50 mg tablets buy here in usa

DouglasBitDouglasBit2018/05/19 15:18kamagra store reviews
<a href="http://kamagraonl.com/">buy kamagra 100 mg oral jelly</a>
kamagra oral jelly review forum
<a href="http://kamagraonl.com/">buy kamagra</a>
kamagra shop erfahrungen 2015
http://kamagraonl.com/
kamagra 100mg chewables

LutherNugLutherNug2018/05/19 19:40walmart cialis 20mg price
<a href="http://airvietnamairline.com/">buy generic cialis</a>
cialis super active 20mg pills
<a href="http://airvietnamairline.com/">generic cialis online</a>
low cost viagra cialis
http://airvietnamairline.com/
cialis generico precio en farmacias

CharlesUsaryCharlesUsary2018/05/19 21:32sildenafil citrate 100mg tablets for sale
<a href="http://sildenafilcitratepw.com/">buy sildenafil citrate online</a>
sildenafil citrate tablets 100mg reviews
<a href="http://sildenafilcitratepw.com/">buy generic viagra</a>
what is sildenafil citrate 20 used for
http://sildenafilcitratepw.com/
sildenafil citrate tablets 200 mg

JuniorRobJuniorRob2018/06/13 09:23woman in blue dress in new viagra commercial
<a href="http://viagrapipls.com/">buy generic viagra</a>
woman in viagra commercial 2014 brunette
<a href="http://viagrapipls.com/">buy generic viagra</a>
como fazer viagra feminino natural

DanielsapDanielsap2018/06/18 23:53kamagra store gutschein
<a href="http://kamagradyn.com/">buy kamagra</a>
kamagra oral jelly 100mg reviews
<a href="http://kamagradyn.com/">buy kamagra</a>
cheap kamagra uk reviews

MichaeldallyMichaeldally2018/06/20 06:56is there a generic drug for cialis or viagra
<a href="http://justinpro.com/">buy cialis</a>
cialis side effects loss of vision
<a href="http://justinpro.com/">buy cialis online</a>
generic cialis made in india

AllanReemnAllanReemn2018/06/28 02:12cialis generico prezzo
<a href="http://cialispaxl.com/">buy generic cialis</a>
generic cialis daily 5 mg
<a href="http://cialispaxl.com/">buy generic cialis</a>
cialis brand 20 mg

FloydBaxFloydBax2018/06/29 17:39kamagra oral jelly wirkung bei frauen
<a href="http://kamagradyn.com/">kamagra 100mg</a>
kamagra gold from ajanta pharma
<a href="http://kamagraonl.com/">kamagra oral jelly</a>
kamagra oral jelly 100mg side effects

AntonchactAntonchact2018/06/30 09:46cialis price vs viagra recreational use
<a href="http://cialisgenericsa.com/">buy generic cialis online</a>
cialis 20 mg tablets
<a href="http://cialisgenericsa.com/">generic cialis</a>
cialis dosage cost

MatthewChureMatthewChure2018/07/02 01:17buy generic cialis canada
<a href="http://cialisgrudj.com/">cialis generic</a>
how much does generic cialis cost
<a href="http://cialisgrudj.com/">cialis generic</a>
generic viagra and cialis online

DavidAlideDavidAlide2018/07/14 14:24buy kamagra uk review
<a href="https://www.kamagrajellyk.com/">buy kamagra oral jelly</a>
kamagra reviews forum
<a href="https://www.kamagrajellyk.com/">kamagra jelly</a>
kamagra forum 2015

CharlesbooniCharlesbooni2018/07/15 14:11best price generic viagra
<a href="http://viagrapipls.com/">generic viagra</a>
viagra professional 100mg ft myers florida
<a href="http://viagrapipls.com/">viagra generic</a>
viagra brand 100mg uk price
http://viagrapipls.com/
price of cialis and viagra

HaroldVexHaroldVex2018/07/15 16:26kamagra kopen
<a href="https://www.kamagradax.com/">kamagra 100mg</a>
kamagra shop deutschland test
<a href="https://www.kamagradax.com/">kamagra 100mg</a>
kamagra gold 100mg reviews

RobertemusyRobertemusy2018/07/17 17:56kamagra 100mg oral jelly review
<a href="https://www.kamagrapos.com/">buy kamagra</a>
kamagra shop erfahrungen
<a href="https://www.kamagrapos.com/">kamagra oral jelly</a>
kamagra customer reviews

MichaelTofMichaelTof2018/07/31 14:13kamagra store in nyc
<a href="https://www.kamagrajellyk.com/">kamagra oral jelly</a>
kamagra 100mg oral jelly wirkung bei frauen
<a href="https://www.kamagrajellyk.com/">kamagra 100mg</a>
kamagra forum doctissimo

FloydRopFloydRop2018/08/04 08:48cialis 5mg price comparison
<a href="http://theta-coach.ru/cleogiue/skachat-programmu-po-vedeniyu-ispolnitelnoy-dokumentatsii.html">скачать программу по ведению исполнительной документации</a>
cialis generic name india
<a href="http://theta-coach.ru/cleogiue/igri-na-android-simulyator-drakona.html">игры на андроид симулятор дракона</a>
cialis dose maximale
http://theta-coach.ru/cleogiue/visochno-nizhnechelyustnie-rasstroystva-daniele-manfredini-skachat.html
cialis tv commercial actors 2015

2008-03-28

コンプリートできる確率と買う個数の期待値

 コンプリートできる確率と買う個数の期待値 - g5nの書き殴り を含むブックマーク はてなブックマーク -  コンプリートできる確率と買う個数の期待値 - g5nの書き殴り

http://d.hatena.ne.jp/m_seki/20080328#c 関連

# -*- coding: utf-8 -*-
require "rational"

def akb44(n)
  # n 枚買ってそろう確率
  omake(44, n, 44)
end

def omake(k,n,m=nil)
  # n 個買って k 種類のおまけのうち m 種類がそろう確率
  m = k if m.nil?
  omake_general(k,0,k,m,n)
end

def omake_general(k,a,b,m,n)
  # k 種類のおまけのうち、欲しいものが b 種類ある。
  # そして、すでに a 種類入手しているとする。
  # これから n 個のおかしを買い増ししたとき、
  # 手元に揃った種類数が m になる確率
  # http://aquarius10.cse.kyutech.ac.jp/~otabe/shokugan/
  comb(b-a, m-a) * sum(b-m, b-a){|i|
    (-1)**(b-m+i) * comb(m-a, m-b+i) * Rational(k-i, k)**n
  }
end

def comb(x,y)
  y = x - y if y > x/2
  return 0 if x < y
  return 1 if y == 0
  return 1 if x == 0
  (x-y+1..x).inject(:*)/(1..y).inject(:*)
end

def sum(x,y)
  (x..y).inject(0){|part,i| part + yield(i)}
end

def ex(k)
  # k 種類のおまけがすべてそろうまで買う個数の期待値
  # http://kakuritsu.hp.infoseek.co.jp/omake2.html
  sum(0, k-1){|i| Rational(k,k-i)}
end

if __FILE__ == $0
  # 44種類のおまけをコンプリートするまでに買う個数の期待値
  p ex(44).to_f

  # http://d.hatena.ne.jp/m_seki/20080328#c

  # > 12種類のカードが入ってるチョコを15個買って、11種類まであつまる確率
  p omake(12,15,11).to_f
  # > 44種類を45回でそろえる確率は、44回でそろえる確率の何倍か
  p akb44(45).to_f/akb44(44).to_f
end

2008-03-07

DHCPのリースファイルを監視する

22:50 | DHCPのリースファイルを監視する - g5nの書き殴り を含むブックマーク はてなブックマーク - DHCPのリースファイルを監視する - g5nの書き殴り

% ruby -rtempfile -e 'f = "/var/db/dhcpd/var/db/dhcpd/dhcpd.leases"; a = File.read(f); loop{b = File.read(f); t0,t1 = Tempfile.new("t0"), Tempfile.new("t1"); t0.write(a); t0.flush; t1.write(b); t1.flush; diff = `diff -u #{t0.path} #{t1.path}`; puts("-"*200,diff) if !diff.empty?; a = b; t0.close; t1.close; sleep 3}'

これじゃあんまりなので、改行しておくか。

require "tempfile"
f = "/var/db/dhcpd/var/db/dhcpd/dhcpd.leases"
a = File.read(f)
loop{
  b = File.read(f)
  t0,t1 = Tempfile.new("t0"), Tempfile.new("t1")
  t0.write(a)
  t0.flush
  t1.write(b)
  t1.flush
  diff = `diff -u #{t0.path} #{t1.path}`
  puts("-"*200,diff) if !diff.empty?
  a = b
  t0.close
  t1.close
  sleep 3
}

ああ、書き直したい。でも書き直さない。それがカキステ。

2007-12-20

指定した名前のファイルを HTTP GET する

20:48 | 指定した名前のファイルを HTTP GET する - g5nの書き殴り を含むブックマーク はてなブックマーク - 指定した名前のファイルを HTTP GET する - g5nの書き殴り

ふつうのファイルがインターネットに載っててそれの URL のリストがあって、それを GET したい。たぶん wgetオプションで同じことは出来るんだろうけど、難しすぎるので書いてしまった。URLのリストはとりあえず __END__ に書くことに。

httpgetfiles.rb

require "fileutils"
require "logger"
require "uri"
require "open-uri"

include FileUtils
@logger = Logger.new(STDERR)

def http_get(c)
  if !File.exist?(c)
    mkdir_p(File.dirname(c)) unless File.directory?(File.dirname(c))
    atime = Time.now
    begin
      open(c, "w"){|f|
        @logger.info("getting #{c}")
        open("http://#{c}"){|src|
          atime = src.last_modified
          f.write(src.read.to_s)
          File.utime(atime, atime, c) if atime
        }
      }
    rescue
      @logger.warn("#{c}: #{$!.inspect}")
      rm c
    end
  else
    @logger.info("exists #{c} (not get)")
  end
end

DATA.read.scan(/\S+/).each{|path|
  http_get(path)
}
__END__
www.google.co.jp/intl/ja/about.html
www.google.co.jp/intl/ja/contact/index.html

客から戻ってきたコードはうちのどのリリースと同じか

22:41 | 客から戻ってきたコードはうちのどのリリースと同じか - g5nの書き殴り を含むブックマーク はてなブックマーク - 客から戻ってきたコードはうちのどのリリースと同じか - g5nの書き殴り

何回かリリースした後、客から不具合のレポートが来たが再現できない。聞くところによると、いろいろ手を入れたという。ファイルによっては最新リリースではないという。えっと。

とりあえずお客さんの手元にあるソースをみて、これまでのリリースのどれかと同じファイルがどれくらいあるかを調べてみた。

  • /given/files/from/your/client/ ... 客から戻ってきたソース
  • /your/checked/out/releases/*/ ... これまでのリリースのコピー。ディレクトリ名の辞書式順序と新しさの順序は等しいとする。

find_latest_identical_release.rb

require "find"
require "digest/md5"

product = "/given/files/from/your/client/"
set = Dir["/your/checked/out/releases/*/"]

hash = {}
src_base = File.basename(src)
hash[src_base] = {}

Find.find(src){|i|
  next if !File.file?(i)
  path = i.sub(src, "")
  hash[src_base][path] = Digest::MD5.hexdigest(File.read(i))
}

set.each{|dir|
  base = File.basename(dir)
  hash[base] = {}
  Find.find(dir){|i|
    next if !File.file?(i)
    path = i.sub(dir, "")
    hash[base][path] = Digest::MD5.hexdigest(File.read(i))
  }
}

dst_base = hash.keys - [src_base]

printf("%s\t\%s\n", "path", "latest release")

hash[src_base].each{|path, md5|
  match = dst_base.find_all{|version|
    hash[version][path] == md5
  }

  printf("%s\t%s\n", path, match.sort.last)
}

nqjxtqgaqmnqjxtqgaqm2013/12/17 15:02rjayolbljtvuf, <a href="http://www.gsecmphkjo.com/">jmmtepgnqn</a> , [url=http://www.ydplktqubr.com/]auhlfysmkq[/url], http://www.bfelbbfnrd.com/ jmmtepgnqn

2007-12-14

IE7が横スクロールバーの高さのために不要な縦スクロールバーを出す

10:14 | IE7が横スクロールバーの高さのために不要な縦スクロールバーを出す - g5nの書き殴り を含むブックマーク はてなブックマーク - IE7が横スクロールバーの高さのために不要な縦スクロールバーを出す - g5nの書き殴り

むかついたので再現ページつくった。

IE7 unneeded vertical scrollbar with horizontal scrollbar

とりあえずの逃げ

<!--[if IE]>
<script type="text/javascript">
<!--
window.attachEvent('onload', function(){
  bugcase.style.height = ''+(bugcase.offsetHeight+17)+'px';
});
//-->
</script>
<![endif]-->