Tobias Pape wrote

Hi all

I was curious about the relative distribution of characters in Squeak Code. I sampled the source code[1] and drew a histogram (Attached) Here are my results:

• The most frequent (printable) characters are in order

  etarsoinl:

  and more detailed, the 90 most frequent characters:

etarsoinl:cdfumhpg.ybwSv"=1CT'x][0F)(k2ANPI|M^B4O7D6R3598#EL-,zWVjU;H+q/>*<G@KX${}YQZJ~?!

• This is quit close to actual English:

  etaonishrlducmwyfgpbvkjxqz

• Observations:

  • The most frequent punctuation is : and . follows quite long after.
  • Cascading is comparatively rare. We have more blocks and

equality/identity comparisons than ;

• Blocks are more common than parenthesis and literal arrays
• You cannot spell ifTrue or ifFalse with the 20 most common characters
• ifTrue: is far more common than ifFalse:
• The most frequent uppercase Character is S. I have no conjecture here,

tho.

• Comparison:
  • Here's C, sampling the Linux kernel:

et_risancodlupfm,);(*0hvgb-E=x>ITRSACkNL.P1O/wD2My"{}UF&3GB4q86HV5:<X#[]+zK7W9Y|%!jQZ'

- under_score_case vs. camelCase is rather obvious.
- (not displayed but tab and newline are amog the 6 most frequent

characters!) - Punctuation starts much earlier. - The beginning differs a lot, the ending not so much. - 0 is far more important than 1 - : is unimportant

• Here's Ruby, sampling Rails:

etsaonridl_cupmh.f:,&quot;gb')(=y#vw/kq&gt;ATx0<1R[]@S{}CE|2?-zjDMIPN+BO\F3L5!HU%&4*98GW6;YV7J`X

- underscore shows, but not so much as in C.
- The : is (like in Smalltalk) more important
- Uppercase is more uncommon than in both C and Smalltalk.

Have fun!

Best regards -Tobias

[1]: " Uses the new HistogramMorph " | characterFrequency | CurrentReadOnlySourceFiles cacheDuring: [ characterFrequency := ((CompiledMethod allInstances select: [:method | (method allLiterals detectSum: [:lit | lit isCollection ifFalse: [0] ifTrue: [lit size]]) < 1500]) gather: [:method | method getSource reject: [:c |c isSeparator]]) asBag].

(HistogramMorph on: characterFrequency) labelBlock: [:c | c codePoint > 32 ifTrue:[c asString] ifFalse: [c printString]]; openInWorld.

((characterFrequency sortedCounts collect: [:ea | ea value]) first: 90) join.

etarsoinl.png (9K) &lt;http://forum.world.st/attachment/4902372/0/etarsoinl.png%3E;

:)

"Do you think the author might be interested in rewriting his work to cut it down? If you cut out all the 'O's, you might lose six pages there." http://www.dailymotion.com/video/x4n10h_mr-mann-bookshop_fun

Best, Marcel

-- View this message in context: http://forum.world.st/etarsoinl-tp4902372p4902397.html Sent from the Squeak - Dev mailing list archive at Nabble.com.