supercavitation
Veteran
Whilst you're at it, can you also add their rank too, please?
Done!
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.

Whilst you're at it, can you also add their rank too, please?
So yesterday at my comp I got a 7x7 mean and a 5x5 average but I didn't reach cut off in 6x6. Has anyone else done this?
| Rank | Name | Number of States |
| 1 | Bob Burton | 20 |
| 2 | Kit Clement | 18 |
| 3 | Brandon Mikel | 17 |
| 4 | Tim Reynolds | 16 |
| 5 | Takao Hashimoto (橋本貴夫) | 15 |
| Dan Cohen | 15 | |
| 7 | Jim Mertens | 14 |
| Shelley Chang | 14 | |
| Adam Zamora | 14 | |
| Tyson Mao (毛台勝) | 14 | |
| Christopher Olson | 14 | |
| Anthony Brooks | 14 | |
| 13 | Ryan DeLine | 13 |
| Corey Sakowski | 13 | |
| Rowe Hessler | 13 | |
| Bruce Norskog | 13 | |
| Dave Campbell | 13 | |
| Chester Lian | 13 | |
| 19 | AJ Blair | 12 |
| Walker Welch | 12 | |
| Evan Liu | 12 | |
| Jeremy Fleischman | 12 | |
| Kian Barry | 12 | |
| Felix Lee | 12 | |
| Shaden Smith | 12 | |
| John Brechon | 12 | |
| David Woner | 12 | |
| 28 | James Hildreth | 11 |
| Mike Hughey | 11 | |
| Ethan Crislip | 11 | |
| Jaclyn Sawler | 11 | |
| James LaChance | 11 | |
| Chris Krueger | 11 | |
| Shane Rowland | 11 | |
| Timothy Sun | 11 | |
| Chris Hardwick | 11 | |
| Waris Ali | 11 | |
| Joshua Feran | 11 | |
| 39 | Tristan Wright | 10 |
| Bobby D'Angelo | 10 | |
| Kyle Barry | 10 | |
| Ryan Olson | 10 | |
| John Tamanas | 10 | |
| Anthony Hsu | 10 | |
| Marie Hughey | 10 | |
| Rebecca Hughey | 10 | |
| Noah Arthurs | 10 | |
| Kevin Hays | 10 | |
| Aina Hashimoto (橋本愛那) | 10 | |
| Leyan Lo | 10 | |
| Kevin Costello III | 10 | |
| Dan Selzer | 10 | |
| Phil Yu | 10 | |
| Jason Baum | 10 | |
| 55 | Lauren Klemz | 9 |
| Andrew Hwang | 9 | |
| Quentin McLean | 9 | |
| Sam Boyles | 9 | |
| Gavin Nelson | 9 | |
| Kevin Zhou | 9 | |
| Justin Jaffray | 9 | |
| Carson Penticuff | 9 | |
| Frank Morris | 9 | |
| Mike Kotch | 9 | |
| Justin Mallari | 9 | |
| Eric Zhao | 9 | |
| Sreeram Venkatarao | 9 | |
| Ian Winokur | 9 | |
| Bryan Logan | 9 | |
| Pavan Ravindra | 9 | |
| Henry Savich | 9 | |
| Chris Braiedy | 9 | |
| Kennan LeJeune | 9 | |
| 74 | Weston Mizumoto | 8 |
| Michael Young | 8 | |
| Nathan Dwyer | 8 | |
| Devin Corr-Robinett | 8 | |
| Clark Cheng | 8 | |
| Joe Epstein | 8 | |
| Daniel Hayes | 8 | |
| Jackson Warley | 8 | |
| Casey Pernsteiner | 8 | |
| Matthew Bahner | 8 | |
| Alex Ozer | 8 | |
| Dan Dzoan | 8 | |
| Lucas Garron | 8 | |
| Chris Dzoan | 8 | |
| Michael Gottlieb | 8 | |
| Shotaro Makisumi (牧角章太郎) | 8 | |
| Ravi Fernando | 8 | |
| Arthur Adams | 8 | |
| Myles Casanas | 8 | |
| Christopher Resendiz | 8 | |
| Collin Burns | 8 | |
| Zach Goldman | 8 | |
| Kate Sosik | 8 | |
| Adomous Wright | 8 | |
| Ilkyoo Choi (최일규) | 8 | |
| Mike Stewart | 8 | |
| Julianna Bennett | 8 | |
| Brandon Delacruz | 8 | |
| Louis Cormier | 8 | |
| Damian Bias | 8 | |
| Alese Devin | 8 | |
| Lucas Etter | 8 | |
| Zachary Nikolaus | 8 | |
| Phillip Lewicki | 8 | |
| Daniel Kottenstette | 8 | |
| Jasmine Lee | 8 | |
| Peter Still | 8 |
results = read.csv("WCA_export_Results.tsv", sep="\t", encoding="UTF-8")
competitions = read.csv("WCA_export_Competitions.tsv", sep="\t", encoding="UTF-8")
competitionsUSA = competitions[competitions$countryId == "USA",]
competitionsUSA_list = competitionsUSA$id
resultsUSA = results[results$competitionId %in% competitionsUSA_list,]
competitionsUSA$State = lapply(strsplit(as.character(competitionsUSA$cityName), ", "), "[", 2)
mergedtable = merge(competitionsUSA, resultsUSA, by.x = 'id', by.y = 'competitionId')
mergedtable = mergedtable[mergedtable$id != "FMCUSA2014",]
countstates = function(name) {
dummy = mergedtable[mergedtable$personName == as.character(name),]
number = length(unique(dummy$State))
return(number)
}
competitors = as.character(unique(mergedtable$personName))
numComps = sapply(competitors, countstates) #really slow
outTable = as.data.frame(cbind(competitors, numComps))
outTable = outTable[order(-numComps),]
outTable$competitors = as.character(outTable$competitors)
write.csv(outTable,"outTable.csv",fileEncoding="UTF-8")
con <- file("outTable.csv", open="w", encoding="UTF-8")
write.table(outTable, con, sep=",",row.names=FALSE)
close(con)
I couldn't sit here and do nothing about it.Whoever cleaned up the inconsistencies surrounding how states were entered into the database, thank you, you made my life really easy on this statistic.
I couldn't sit here and do nothing about it.
I'll also be adding one to my total this weekend!
Whoever cleaned up the inconsistencies surrounding how states were entered into the database, thank you, you made my life really easy on this statistic.
Rank Name Number of States 1 Bob Burton 20 2 Kit Clement 18 3 Brandon Mikel 17 4 Tim Reynolds 16 5 Takao Hashimoto (橋本貴夫) 15 Dan Cohen 15 7 Jim Mertens 14 Shelley Chang 14 Adam Zamora 14 Tyson Mao (毛台勝) 14 Christopher Olson 14 Anthony Brooks 14 13 Ryan DeLine 13 Corey Sakowski 13 Rowe Hessler 13 Bruce Norskog 13 Dave Campbell 13 Chester Lian 13 19 AJ Blair 12 Walker Welch 12 Evan Liu 12 Jeremy Fleischman 12 Kian Barry 12 Felix Lee 12 Shaden Smith 12 John Brechon 12 David Woner 12 28 James Hildreth 11 Mike Hughey 11 Ethan Crislip 11 Jaclyn Sawler 11 James LaChance 11 Chris Krueger 11 Shane Rowland 11 Timothy Sun 11 Chris Hardwick 11 Waris Ali 11 Joshua Feran 11 39 Tristan Wright 10 Bobby D'Angelo 10 Kyle Barry 10 Ryan Olson 10 John Tamanas 10 Anthony Hsu 10 Marie Hughey 10 Rebecca Hughey 10 Noah Arthurs 10 Kevin Hays 10 Aina Hashimoto (橋本愛那) 10 Leyan Lo 10 Kevin Costello III 10 Dan Selzer 10 Phil Yu 10 Jason Baum 10 55 Lauren Klemz 9 Andrew Hwang 9 Quentin McLean 9 Sam Boyles 9 Gavin Nelson 9 Kevin Zhou 9 Justin Jaffray 9 Carson Penticuff 9 Frank Morris 9 Mike Kotch 9 Justin Mallari 9 Eric Zhao 9 Sreeram Venkatarao 9 Ian Winokur 9 Bryan Logan 9 Pavan Ravindra 9 Henry Savich 9 Chris Braiedy 9 Kennan LeJeune 9 74 Weston Mizumoto 8 Michael Young 8 Nathan Dwyer 8 Devin Corr-Robinett 8 Clark Cheng 8 Joe Epstein 8 Daniel Hayes 8 Jackson Warley 8 Casey Pernsteiner 8 Matthew Bahner 8 Alex Ozer 8 Dan Dzoan 8 Lucas Garron 8 Chris Dzoan 8 Michael Gottlieb 8 Shotaro Makisumi (牧角章太郎) 8 Ravi Fernando 8 Arthur Adams 8 Myles Casanas 8 Christopher Resendiz 8 Collin Burns 8 Zach Goldman 8 Kate Sosik 8 Adomous Wright 8 Ilkyoo Choi (최일규) 8 Mike Stewart 8 Julianna Bennett 8 Brandon Delacruz 8 Louis Cormier 8 Damian Bias 8 Alese Devin 8 Lucas Etter 8 Zachary Nikolaus 8 Phillip Lewicki 8 Daniel Kottenstette 8 Jasmine Lee 8 Peter Still 8
Note that this will not preserve unicode in Windows, but it will on Mac/Linux. I also removed FMC USA from these results -- no info regarding what state they were actually in, and it's probably safe to assume that FMC USA competitors were competing in a state they had already competed in.
Code:results = read.csv("WCA_export_Results.tsv", sep="\t", encoding="UTF-8") competitions = read.csv("WCA_export_Competitions.tsv", sep="\t", encoding="UTF-8") competitionsUSA = competitions[competitions$countryId == "USA",] competitionsUSA_list = competitionsUSA$id resultsUSA = results[results$competitionId %in% competitionsUSA_list,] competitionsUSA$State = lapply(strsplit(as.character(competitionsUSA$cityName), ", "), "[", 2) mergedtable = merge(competitionsUSA, resultsUSA, by.x = 'id', by.y = 'competitionId') mergedtable = mergedtable[mergedtable$id != "FMCUSA2014",] countstates = function(name) { dummy = mergedtable[mergedtable$personName == as.character(name),] number = length(unique(dummy$State)) return(number) } competitors = as.character(unique(mergedtable$personName)) numComps = sapply(competitors, countstates) #really slow outTable = as.data.frame(cbind(competitors, numComps)) outTable = outTable[order(-numComps),] outTable$competitors = as.character(outTable$competitors) write.csv(outTable,"outTable.csv",fileEncoding="UTF-8") con <- file("outTable.csv", open="w", encoding="UTF-8") write.table(outTable, con, sep=",",row.names=FALSE) close(con)
I'll have to do a refresh of this statistic once Utah results are uploaded and I go to my first Oregon competition.![]()
I'm just curious... How many people have competed on all 6 continents? I know Anders Larsson has, but are there any others? And how many have competed on 5 continents?
Could we have top 100 comp/podium ratio? I believe I am in there with 3.3
Could we have top 100 comp/podium ratio?
ohboyohboyohboyohboyohboyohboyohboy
Could we have top 100 comp/podium ratio? I believe I am in there with 3.3
I thought of this the other day while I was eating dinner because my Grandma said, "China must be the best in cubing." But, I thought even Canada should be better than China in terms of sub-x solvers per z persons.
I decided to take the top 10 countries with the most cubers (according to https://www.worldcubeassociation.org/results/statistics.php) for this sample calculation.
Equation:
y = number of 3x3 competitors in a country.
n = number of 3x3 competitors with a sub-10 average in a country.
y/n = 1 sub-10 average 3x3 competitor/per z 3x3 competitors
Results:
(I rounded to one decimal point).
1. Germany 1 sub-10 average 3x3 competitor/per 60.8 competitors
2. Japan 1 sub-10 average 3x3 competitor/per 75.1 competitors
3. Poland 1 sub-10 average 3x3 competitor/per 110 competitors
4. France 1 sub-10 average 3x3 competitor/per 125.3 competitors
5. Canada 1 sub-10 average 3x3 competitor/per 134.1 competitors
6. USA 1 sub-10 average 3x3 competitor/per 143.5 competitors
7. Brazil 1 sub-10 average 3x3 competitor/per 176.9 competitors
8. Indonesia 1 sub-10 average 3x3 competitor/per 255.75 competitors
9. China 1 sub-10 average 3x3 competitor/per 306.8 competitors
10. India 1 sub-10 average 3x3 competitor/per 333.9 competitors
I would like to see where you crazy statistic experts can take my idea. Possibly all countries averaged over all events (although some countries and events would need to be removed so the data doesn't get skewed).
Interesting. Calculated it for the UK, got 1 in 61.4 (430 competitors, 7 sub-10), very close to Germany.