Juri Linkov <[EMAIL PROTECTED]> writes:
> List of nodes:
>
> 1347 (info "(emacs)Command Index")
> ...
> 10 (info "(emacs)Highlight Changes")
oooo -- a histogram opportunity!
(sorry, couldn't resist.)
thi
________________________________
(setq ht (make-hash-table))
(while (< (point) (point-max))
(let ((n (read (current-buffer))))
(puthash n (1+ (or (gethash n ht) 0)) ht)
(forward-line 1)))
(setq al (let (acc)
(maphash (lambda (k v)
(setq acc (cons (cons k v) acc)))
ht)
acc))
(mapc (lambda (p)
(insert (format "%5d - %s\n"
(car p)
(make-string (cdr p) ?#))))
(sort al (lambda (a b)
(> (car a) (car b)))))
1347 - #
1334 - #
1185 - #
992 - #
856 - #
802 - #
645 - #
544 - #
375 - ##
362 - #
361 - ##
358 - #
348 - #
337 - #
291 - #
258 - #
252 - ##
242 - #
240 - #
236 - #
233 - #
232 - #
231 - #
221 - #
217 - #
216 - #
215 - #
211 - #
209 - #
208 - #
207 - #
205 - #
204 - ##
202 - ##
200 - ##
199 - #
197 - #
195 - ##
193 - #
192 - ##
191 - ##
189 - ##
188 - #
187 - ##
183 - ####
182 - #
180 - #
178 - #
177 - ##
176 - #
175 - ##
174 - ##
171 - ##
170 - ###
169 - #
168 - ##
166 - #
165 - ####
164 - ##
160 - #
158 - #
157 - ##
156 - ####
155 - #
154 - ###
153 - ###
152 - #
151 - ##
149 - #
148 - ####
146 - ###
145 - ##
144 - ###
143 - ####
142 - ##
141 - ###
139 - #
138 - ##
137 - #
136 - #
135 - ##
133 - #####
132 - ##
131 - #
130 - ###
129 - ###
128 - ###
127 - ##
126 - ##
125 - ####
124 - #
123 - ######
122 - ###
121 - #####
120 - ##
118 - ###
117 - ###
116 - #####
115 - ###
114 - ###
113 - #####
112 - #####
111 - ####
110 - ########
109 - ###
108 - ##
107 - ####
106 - ####
105 - ####
104 - ######
103 - #####
102 - #####
101 - ######
100 - ######
99 - ###
98 - #######
97 - #########
96 - ##
95 - ########
94 - ########
93 - #####
92 - #
91 - #######
90 - ##########
89 - ######
88 - ######
87 - ############
86 - ####
85 - ##
84 - ########
83 - #####
82 - #######
81 - #############
80 - ###########
79 - ####
78 - #######
77 - ##############
76 - ###########
75 - ####
74 - #######
73 - ########
72 - ####
71 - #########
70 - ##############
69 - ##########
68 - ###########
67 - ##########
66 - #########
65 - ##############
64 - #######
63 - ############
62 - ##############
61 - ##########
60 - ###############
59 - ###########
58 - ##############
57 - ##############
56 - ##############################
55 - #################
54 - ##################
53 - ############
52 - ##############
51 - ###########
50 - #################
49 - ###############
48 - ############
47 - ###############
46 - ####################
45 - #####################
44 - ##################
43 - ################
42 - #####################
41 - ########################
40 - #################
39 - ####################
38 - ###################
37 - ##########################
36 - #################
35 - ########################
34 - ##################
33 - ##############
32 - ####################
31 - ####################
30 - #########################
29 - ##############################
28 - #######################
27 - ##################
26 - #########################
25 - #########################
24 - ###################
23 - #######################
22 - ##################
21 - ##################
20 - ###############
19 - ##################
18 - #########
17 - #################
16 - ###########
15 - ####
14 - ########
13 - ##
12 - #
11 - #
10 - #
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
