frequencycount.st.txt

来自「内存受限系统软件开发一书的代码。（虽不及Gang of Four的模式掷地有声」· 文本 代码 · 共 8 行

Frequencies := Array new: 256.
 (1 to: 256) do: [ :i |  Frequencies at: i put: 0 ].
 P :=  (File pathName: 'd:\tmp\comp.txt').
 [ P atEnd ] whileFalse:
    [  J := (P nextByte)+1.  Frequencies at: J put: ((Frequencies at: J) + 1). ].
 P:= nil.