蛋糕比較算法

這實際上是關於比較蛋糕。我的朋友正在舉辦一場蛋糕派對，目的是確定曼哈頓最好的杯子蛋糕。實際上，它比這更雄心勃勃。請繼續閱讀。蛋糕比較算法

有27個麪包房，19人蔘加（可能有一兩個沒有表演）。如果可能的話，包括主食 - 香草，巧克力和紅色天鵝絨在內，每個麪包店都會有4個紙杯蛋糕，並且通配符口味四捨五入。有4個屬性可以評價紙杯蛋糕：味道，溼度，呈現（可愛）和一般的善良。人們將爲他們抽樣的每個蛋糕的每個屬性提供5分制的評分。最後，每個蛋糕可以切成4或5塊。

的問題是：什麼是未來與麪包店的每個屬性的統計意義排名的過程，並針對每種口味（治療「通配符」的味道）？具體來說，我們希望對面包店進行8次排名：對於每種口味，我們希望通過良好度來評定麪包房（優點是其中一個屬性），並且對於每種屬性，我們想要在所有口味上對面包房進行排名（即獨立於口味，即聚合所有味道）。大獎頒發給優質屬性的頂級麪包店。

當然，這個概括性的獎勵要點。

這是在約12小時發生的事情，所以我會後作爲回答我們結束了，如果在此期間沒有一個答案做。

PS：這裏有專方博客文章吧：http://gracenotesnyc.com/2009/08/05/gracenotes-nycs-cupcake-cagematch-the-sweetest-battle-ever/

來源

2009-08-01 dreeves

我擔心有人會認爲這是作業，所以我講了有關派對的全部故事。我死得很嚴肅;我們真的有這個派對！ – dreeves 2009-08-01 06:13:52

這與編程有什麼關係？ – 2009-08-01 06:16:41

那麼，一個理想的答案會推廣它，並將其編碼爲一個程序，該程序將個人評級和輸出排名，甚至可能計算統計顯着性水平。這可能是一個有趣的小問題！ – dreeves 2009-08-01 06:22:50

這就是我們最終做的。我在http://etherpad.com/sugarorgy（修訂版25，爲防萬一因爲添加此公共鏈接而被破壞）中收集了大家的評分，然後使用以下Perl腳本將數據解析爲CSV文件：

#!/usr/bin/env perl 
# Grabs the cupcake data from etherpad and parses it into a CSV file. 

use LWP::Simple qw(get); 

$content = get("http://etherpad.com/ep/pad/export/sugarorgy/latest?format=txt"); 
$content =~ s/^.*BEGIN_MAGIC\s*//s; 
$content =~ s/END_MAGIC.*$//s; 
$bakery = "none"; 
for $line (split('\n', $content)) { 
    next if $line =~ /sar kri and deb/; 
    if ($line =~ s/bakery\s+(\w+)//) { $bakery = $1; } 
    $line =~ s/\([^\)]*\)//g; # strip out stuff in parens. 
    $line =~ s/^\s+(\w)(\w)/$1 $2/; 
    $line =~ s/\-/\-1/g; 
    $line =~ s/^\s+//; 
    $line =~ s/\s+$//; 
    $line =~ s/\s+/\,/g; 
    print "$bakery,$line\n"; 
}

然後我做數學中的平均和諸如此類的東西：

data = Import["!~/svn/sugar.pl", "CSV"]; 

(* return a bakery's list of ratings for the given type of cupcake *) 
tratings[bak_, t_] := Select[Drop[[email protected][data, 
         #[[1]]==bak && #[[2]]==t && #[[3]]=="g" &], 3], #!=-1&] 

(* return a bakery's list of ratings for the given cupcake attribute *) 
aratings[bak_, a_] := Select[Flatten[Drop[#,3]& /@ 
         Select[data, #[[1]]==bak && #[[3]]==a&]], #!=-1&] 

(* overall rating for a bakery *) 
oratings[bak_] := Join @@ (tratings[bak, #] & /@ {"V", "C", "R", "W"}) 

bakeries = [email protected][[All, 1]] 

SortBy[{#, [email protected]#, Round[[email protected][#], .01]}& /@ bakeries, -#[[3]]&]

的結果是在http://etherpad.com/sugarorgy底部。

來源

2009-08-03 04:25:43 dreeves