Find words which contain the most consonants: Difference between revisions

(Added Wren)
Line 550:
next
 
result = sortsortsecond(result,2)
result = reverse(result)
 
Line 558:
 
see "done..." + nl
 
func sortsecond(alist)
aList = sort(alist,2)
for n=1 to len(alist)-1
for m=n to len(aList)-1
if alist[m+1][2] = alist[m][2] and strcmp(alist[m+1][1],alist[m][1]) > 0
temp = alist[m+1]
alist[m+1] = alist[m]
alist[m] = temp
ok
next
next
return aList
</lang>
{{out}}
<pre>
working...
 
1. comprehensible 9
 
2. indecipherable 8
32. boustrophedonadministrable 8
43. bricklayinganthropology 8
54. demonstrableblameworthy 8
65. chemisorptionbluestocking 8
76. indecomposableboustrophedon 8
87. indiscoverablebricklaying 8
98. discriminablechemisorption 8
109. shipbuildingchristendom 8
10. claustrophobia 8
....
50. deliquescent 7
51. inscrutable 7
52. declamatory 7
53. decomposition 7
54. decomposable 7
55. leatherback 7
56. exclusionary 7
57. convertible 7
58. exculpatory 7
59. loudspeaking 7
60. consumptive 7
...
50. bartholomew 7
180. eigenvector 6
51. bidirectional 7
181. exceptional 6
52. bloodstream 7
182. archipelago 6
53. boardinghouse 7
183. anisotropic 6
54. cartilaginous 7
184. encapsulate 6
55. centrifugal 7
185. evolutionary 6
56. chamberlain 7
186. elizabethan 6
57. charlemagne 7
187. declaration 6
58. clairvoyant 7
188. declarative 6
59. combinatorial 7
189. declamation 6
60. compensable 7
190. comparative 6
....
180. beneficiary 6
181. borosilicate 6
182. cabinetmake 6
183. californium 6
184. codetermine 6
185. coextensive 6
190186. comparative 6
187. compilation 6
188. composition 6
189. confabulate 6
190. confederate 6
....
330. equilibrate 5
330331. equilibrium 5
331332. equinoctial 5
333. expeditious 5
334. hereinabove 5
335. interviewee 5
336. leeuwenhoek 5
336337. homogeneous 5
333338. inequitable 5
339. injudicious 5
332340. onomatopoeic 5
...
330. equilibrium 5
331. equinoctial 5
332. onomatopoeic 5
333. inequitable 5
334. requisition 5
335. diatomaceous 5
336. homogeneous 5
337. radioactive 5
338. deleterious 5
339. inoperative 5
340. inquisitive 5
....
345. audiovisual 4
346. onomatopoeiabourgeoisie 4
347. bourgeoisieonomatopoeia 4
 
done...
</pre>
2,468

edits