Word with most consonants

All Words: Gypsy, nymph, psych, lynch, crypt, myrrh, wryly, lymph, glyph, tryst, Pygmy, sylph, Gwynn, shyly, FHLMC, dryly, PDFLP, stymy, slyly, and shdsl

You are searching for all words that do not have vowels. Since a vowel is a,e,i,o,u and sometimes y, you might want to search for words with no vowels that do not have the letter y! But, You Go Words provides abbreviations for the most common word/phrases which makes it difficult to find words with no vowels and no y. What to do, is view the words with no vowels (no aeiou) and determine which words would not classify the letter y as a vowel.

The largest free 5 letters words list online. Does not include all of the plural forms of five letter words.

Completed AZ word finder features completed

• Word Unscambler has been renamed and will be altered to a complete Anagram Solver
• Syllable counter is now available for text and documents.
• In The Middle / In The Center word finding. Searching «two syllable words with qu in the middle», «ab in the center»,etc. will bring you to a list of words spelled with _a-z_. For «exactly center» use a search like «6 letters with qu in the middle»
• Word unscrambling. For fastest speed possible,
  you will now land on the top viewed set of characters for that set of letters.
• New search abilities «words with all vowels» or «words with no vowels», «ends in a vowel», or «start with a vowel».

• 

  Puzzle solving using underscores or dashes such as «solve _ _ e _ _ _ _ _ _, singular nouns 4 vowels and 3 syllables»

• Find words or names by their second, third and fourth letter up to the eighth letter
  with eazy search like «words with the second letter b».
• Puzzle solver & missing letters. Wordbrain Themes, Words With Friends, Scrabble, 4Pics1Word, Word Cookies cheats, answers, and more. Example answers search: «solve the puzzle b_r», complete this 6 letter word from o-e-h, «spelled like out», «words containing out». Use an underscore or dash where the puzzle is
  missing a letter.
• Length queries including 6 letter words now include quick navigation for speech type and starts/ends letters such as 6 letter words with the second letter c.
• Rhymes and sounds like tool for any word, spelling, or text entered. Different
  results appear for sounds and rhymes.
• Palindromes word Lists now available by searching palindrome words.
• Unscrambler & Decoder — decode phrases such as «dining table» for «egbindinatl».
• Negative search filters
  words that do not have the letter e
• Quick word find. Single word searches bring you to the word page. Solving word puzzles using an underscore or dash ( Example: _a_t_i_a ). All words/letters without a dedicated page will be unscrambled.
• Find scrabble words by points! Add «scrabble» in your query, such as Scrabble words with 14 points.
• Favorite words to your account

View All English Words

Any Word finder ideas you want? Send a word find feature request to let me know.

Are you interested in learning Japanese while improving your English with You Go Words!? You can learn Japanese
online and free with Misa of Japanese Ammo including grammer and vocabulary.

In Progress Finder features I’m working on.

• Phonograms searching
  coming soon due to many users searching such as «words ending with a multiple phonogram»
• Root word search. Show with prefix and suffix options, only if it has a root word.
• Alternative spelling of words from American English to British English. Mouse over example: Color
• Printable & downloadable word lists.
• Frequency of a words appearance in books, and other texts.
• Allow word find such as «words which contain the consonants N, T, and R». This would provide a list of words with letters in a specific order, such as the consonants in the order of ntr.
• Plural and singular words with information and example sentences.
• Word games by school grade from Kindergarten to grade 12.
• Provide words that can be used twice or more in one sentence with example sentences.
• Paraphrasing, pronunciation, and free grammar tools.
• Seperate
  words by area of focus. ( Technology, Education, Science, Psychology, etc. )

Did You Find Your Words?

If you could not find the words you were looking for, please submit feedback or leave a comment below. Let me know what word list you could not find, and I’ll be sure to get it fixed up for you.

What 5 letter word has the least vowels?

What 5 letter word has lots of consonants?

What are the best first 5 words in Wordle?

What word has the most consonants?

The most consecutive consonants in a word is six. This occurs in a number of words, the most familiar being catchphrase, sightscreen, and watchstrap. The word euouae (a mnemonic used in medieval music) is the only word to contain six consecutive vowels, and unsurprisingly is the longest word with no consonants in it.

Categories
Nooks and crannies
Yesteryear
Semantic enigmas
The body beautiful
Red tape, white lies
Speculative science
This sceptred isle
Root of all evil
Ethical conundrums
This sporting life
Stage and screen
Birds and the bees

SEMANTIC ENIGMAS

Which English word has the most consecutive consonants? I cannot beat six — ‘catchphrase’ or ‘watchstrap’ being less elegant than ‘Knightsbridge’ in that category?

• THERE ARE at least two words with seven consecutive consonants: ‘rhythms’ and ‘strychnine’.

  Miranda Blayney, Richmond, Surrey.

• UNSYNCHRONISED.

  B. N. Tattersall, Prestbury, Lancs.

• IF ‘CONSONANT’ is used in the spelling sense of ‘letter of the alphabet representing (part of) a consonant sound’, the questioner has probably reached the limit. In English STR-, PHR-, -TCH and -GHT are frequent sequences at the beginnings and ends of simple words. You can get six consonants in this sense when two such sequences meet in a compound word, as in the examples quoted. This rarely gives as many actual consonant sounds: ‘watchstrap’, for example, has only four (-tstr-), according to one common way of counting the sounds of English.

  Peter Sherwood, School of Slavonic and East European Studies, University of London.

• THERE ARE several words which contain more than six consecutive consonants, although most of them depend on the use of the letters ‘y’ or ‘w’ as surrogate vowels, and many are either obsolete words or obsolete spellings of modern words. Those with seven consecutive consonants include cyttyns (sits), schylds (children), schynds (Orcadian inquests), schyrche (church), schyyds (shides), and thryssce (thrush); all of these are in the OED. For eight consecutive consonants there is the obsolete word cytlyngs (kitlings) (in OED). There are nine consecutive consonants in aspartyltryptophan, the dipeptide formed from the amino acids aspartic acid and tryptophan, and Gardner gives wppwrmwste (an obsolete spelling of uppermost). But perhaps the record, with 12 consecutive consonants, goes to the Welsh village Mynydd-y-Slwyn.

  D. G. Tallis, Oxford.

• PSYCHOLOGICAL rapid heart rates are occasionally referred to as tachydysrhythmia.

  Dr Peter C. Barnes, Hope Hospital, Salford.

• THE EXAMPLES given by your correspondents are all incorrect. The letter ‘y’ can be either a consonant or a vowel as the context requires. In each of the instances given, it is used as a vowel.

  J. G. Stanford, Southwick, Brighton.

• SORRY, D.G. Tallis. In the Welsh alphabet Y (pronounced «uh» or «ee» according to the context), and W (pronounced «oo»), are both vowels. In any case, as dd (pronounced as a hard «th» sound) is actually one letter in Welsh, the combined name has only eleven letters. Didn’t the questioner restrict the query to English words?

  Richard Harrold Suratthani, Thailand (mathus@samart.co.th)

• English students of the German language normally have
  an outbreak of «cold sweat»
  when they try to pronounce
  the German equivalent word :
  » Angstschweiss » — eight consecutive consonants .

  Uwe Junge, Niebuell, Germany

• Congenital aganglionosis of the gut goes by the name of Hirschsprung’s disease which has seven consecutive consonants (without y or w).

  Neil Bodsworth, Sydney Australia

• In Slovak you can produce an entire sentence with only consonants: «Strc prst skrz krk», meaning «Stick your finger through your neck».

  Actually it is not really a vowel-less sentence; the «r» in each of the words is effectively a vowel. But it looks cool.

  Geoff, London UK

Add your answer

Find words which contain the most consonants is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

Task

Use the dictionary  unixdict.txt

Find the words which contains most consonants,   but each consonant should appear only once in a word.

The length of any word shown should have a length   >  10.

11l[edit]

Translation of: Python

V lines = File(‘unixdict.txt’).read().split("n")

V words = lines.filter(w -> w.len > 10 & !re:‘[^a-z]’.search(w))

DefaultDict[Int, [String]] good
L(word) words
   V c = word.replace(re:‘[aeiou]’, ‘’)
   I sorted(Array(c)) == sorted(Array(Set(Array(c))))
      good[c.len].append(word)

L(k, v) sorted(good.items(), reverse' 1B)
   I v.len > 30
      print(k‘: ’v.len‘ words’)
   E
      print(k‘: ’sorted(v).join(‘ ’))

9: comprehensible
8: 39 words
7: 130 words
6: 152 words
5: acquisition acquisitive acrimonious ceremonious deleterious diatomaceous egalitarian equilibrate equilibrium equinoctial expeditious hereinabove homogeneous inequitable injudicious inoperative inquisitive interviewee leeuwenhoek onomatopoeic radioactive requisition
4: audiovisual bourgeoisie onomatopoeia

Action![edit]

In the following solution the input file unixdict.txt is loaded from H6 drive. Altirra emulator automatically converts CR/LF character from ASCII into 155 character in ATASCII charset used by Atari 8-bit computer when one from H6-H10 hard drive under DOS 2.5 is used.

CHAR ARRAY line(256)

BYTE FUNC ConsonantsCount(CHAR ARRAY word)
  BYTE len,i,c,count
  BYTE ARRAY chars(128)

  len=word(0)
  IF len<=10 THEN RETURN (0) FI

  SetBlock(chars,128,0)
  count=0
  FOR i=1 TO len
  DO
    c=word(i)
    IF c#'a AND c#'e AND c#'i AND c#'o AND c#'u THEN
      IF chars(c) THEN RETURN (0) FI
      chars(c)=1
      count==+1
    FI
  OD
RETURN (count)

BYTE FUNC FindMostConsonants(CHAR ARRAY fname)
  BYTE max,count,dev=[1]

  max=0
  Close(dev)
  Open(dev,fname,4)
  WHILE Eof(dev)=0
  DO
    InputSD(dev,line)
    count=ConsonantsCount(line)
    IF max<count THEN
      max=count
    FI
  OD
  Close(dev)
RETURN (max)

PROC FindWords(CHAR ARRAY fname BYTE n)
  BYTE count,dev=[1]

  Close(dev)
  Open(dev,fname,4)
  WHILE Eof(dev)=0
  DO
    InputSD(dev,line)
    count=ConsonantsCount(line)
    IF count=n THEN
      Print(line) Put(32)
    FI
  OD
  Close(dev)
  PutE() PutE()
RETURN

PROC Main()
  CHAR ARRAY fname="H6:UNIXDICT.TXT"
  BYTE i,max

  PrintE("Finding the most consonants...")
  PutE()
  max=FindMostConsonants(fname)

  i=max
  WHILE i>=max-1
  DO
    PrintF("%B consonants:%E",i)
    FindWords(fname,i)
    i==-1
  OD
RETURN

Screenshot from Atari 8-bit computer

Finding the most consonants...

9 consonants:
comprehensible

8 consonants:
administrable anthropology blameworthy bluestocking boustrophedon bricklaying chemisorption christendom
claustrophobia compensatory comprehensive counterexample demonstrable disciplinary discriminable geochemistry
hypertensive indecipherable indecomposable indiscoverable lexicography manslaughter misanthropic mockingbird
monkeyflower neuropathology paralinguistic pharmacology pitchblende playwriting shipbuilding shortcoming
springfield stenography stockholder switchblade switchboard switzerland thunderclap

Ada[edit]

with Ada.Text_Io;
with Ada.Strings.Fixed;
with Ada.Containers.Indefinite_Vectors;

procedure Most_Consonants is
   use Ada.Text_Io;

   package String_Vectors is
     new Ada.Containers.Indefinite_Vectors (Index_Type   => Positive,
                                            Element_Type => String);

   function Is_Vowel (Letter : Character) return Boolean
   is (Ada.Strings.Fixed.Index ("aeiou", "" & Letter) /= 0);

   type Consonant_Count is range 0 .. 15;
   Filename : constant String := "unixdict.txt";
   File     : File_Type;
   Words    : array (Consonant_Count) of String_Vectors.Vector;
begin
   Open (File, In_File, Filename);
   while not End_Of_File (File) loop
      declare
         Word  : constant String  := Get_Line (File);
         Found : array (Character) of Boolean := (others => False);
         Conso : Consonant_Count := 0;
         Bad   : Boolean         := False;
      begin
         for Letter of Word loop
            if Is_Vowel (Letter) then
               null;
            elsif Found (Letter) then
               Bad := True;
            else
               Found (Letter) := True;
               Conso := Conso + 1;
            end if;
         end loop;
         if not Bad and Word'Length > 10 then
            Words (Conso).Append (Word);
         end if;
      end;
   end loop;
   Close (File);


   for Cons in Words'Range loop
      if not Words (Cons).Is_Empty then
         Put (Cons'Image & " consonants: ");
         Put (Words (Cons).Length'Image & " words");
         New_Line;
      end if;
      declare
         Column : Natural := 0;
         Image  : String (1 .. 15);
      begin
         for Word of Words (Cons) loop
            Ada.Strings.Fixed.Move (Word, Image);
            Put (Image);
            Column := Column + 1;
            if Column mod 8 = 0 then
               New_Line;
            end if;
         end loop;
      end;
      if not Words (Cons).Is_Empty then
         New_Line;
      end if;
   end loop;

end Most_Consonants;

 4 consonants:  3 words
audiovisual    bourgeoisie    onomatopoeia
 5 consonants:  22 words
acquisition    acquisitive    acrimonious    ceremonious    deleterious    diatomaceous   egalitarian    equilibrate
equilibrium    equinoctial    expeditious    hereinabove    homogeneous    inequitable    injudicious    inoperative
inquisitive    interviewee    leeuwenhoek    onomatopoeic   radioactive    requisition
 6 consonants:  152 words
aboveground    advantageous   adventurous    aerodynamic    anglophobia    anisotropic    archipelago    automorphic
baltimorean    beneficiary    borosilicate   cabinetmake    californium    codetermine    coextensive    comparative
compilation    composition    confabulate    confederate    considerate    consolidate    counterpoise   countervail
decisionmake   declamation    declaration    declarative    deemphasize    deformation    deliverance    demountable
denumerable    deoxyribose    depreciable    deprivation    destabilize    diagnosable    diamagnetic    dichotomize
dichotomous    disambiguate   eigenvector    elizabethan    encapsulate    enforceable    ephemerides    epidemiology
evolutionary   exceptional    exclamation    exercisable    exhaustible    exoskeleton    expenditure    experiential
exploration    fluorescein    geometrician   hemosiderin    hereinbelow    hermeneutic    heterogamous   heterogeneous
heterosexual   hexadecimal    hexafluoride   homebuilder    homogeneity    housebroken    icosahedral    icosahedron
impersonate    imprecision    improvisate    inadvisable    increasable    incredulous    indivisible    indomitable
ineradicable   inescapable    inestimable    inexcusable    infelicitous   informatica    informative    inseparable
insuperable    ionospheric    justiciable    kaleidescope   kaleidoscope   legerdemain    liquefaction   loudspeaker
machinelike    magisterial    maladaptive    mantlepiece    manufacture    masterpiece    meetinghouse   meteorology
minesweeper    ministerial    multifarious   musculature    observation    patrimonial    peasanthood    pediatrician
persecution    pertinacious   picturesque    planetarium    pleistocene    pomegranate    predominate    prejudicial
prohibition    prohibitive    prolegomena    prosecution    provisional    provocation    publication    quasiperiodic
reclamation    religiosity    renegotiable   residential    rooseveltian   safekeeping    saloonkeeper   serviceable
speedometer    subrogation    sulfonamide    superficial    superlative    teaspoonful    trapezoidal    tridiagonal
troublesome    vainglorious   valediction    venturesome    vermiculite    vocabularian   warehouseman   wisenheimer
 7 consonants:  130 words
acknowledge    algorithmic    alphanumeric   ambidextrous   amphibology    anchoritism    atmospheric    autobiography
bakersfield    bartholomew    bidirectional  bloodstream    boardinghouse  cartilaginous  centrifugal    chamberlain
charlemagne    clairvoyant    combinatorial  compensable    complaisant    conflagrate    conglomerate   conquistador
consumptive    convertible    cosmopolitan   counterflow    countryside    countrywide    declamatory    decomposable
decomposition  deliquescent   description    descriptive    dilogarithm    discernible    discriminate   disturbance
documentary    earthmoving    encephalitis   endothermic    epistemology   everlasting    exchangeable   exclamatory
exclusionary   exculpatory    explanatory    extemporaneous extravaganza   filamentary    fluorescent    galvanometer
geophysical    glycerinate    groundskeep    herpetology    heterozygous   homebuilding   honeysuckle    hydrogenate
hyperboloid    impenetrable   imperceivable  imperishable   imponderable   impregnable    improvident    improvisation
incomparable   incompatible   incomputable   incredulity    indefatigable  indigestible   indisputable   inexhaustible
inextricable   inhospitable   inscrutable    jurisdiction   lawbreaking    leatherback    leatherneck    leavenworth
logarithmic    loudspeaking   maidservant    malnourished   marketplace    merchandise    methodology    misanthrope
mitochondria   molybdenite    nearsighted    obfuscatory    oceanography   palindromic    paradigmatic   paramagnetic
perfectible    phraseology    politicking    predicament    presidential   problematic    proclamation   promiscuity
providential   purchasable    pythagorean    quasiparticle  quicksilver    radiotelephone sedimentary    selfadjoint
serendipity    sovereignty    subjunctive    superfluity    terminology    valedictorian  valedictory    verisimilitude
vigilantism    voluntarism
 8 consonants:  39 words
administrable  anthropology   blameworthy    bluestocking   boustrophedon  bricklaying    chemisorption  christendom
claustrophobia compensatory   comprehensive  counterexample demonstrable   disciplinary   discriminable  geochemistry
hypertensive   indecipherable indecomposable indiscoverable lexicography   manslaughter   misanthropic   mockingbird
monkeyflower   neuropathology paralinguistic pharmacology   pitchblende    playwriting    shipbuilding   shortcoming
springfield    stenography    stockholder    switchblade    switchboard    switzerland    thunderclap
 9 consonants:  1 words
comprehensible

ALGOL 68[edit]

# find words longer than 10 characters and sort by the number of consonants  #
# they contain                                                               #
IF  FILE input file;
    STRING file name = "unixdict.txt";
    open( input file, file name, stand in channel ) /= 0
THEN
    # failed to open the file #
    print( ( "Unable to open """ + file name + """", newline ) )
ELSE
    # file opened OK #
    BOOL at eof := FALSE;
    # set the EOF handler for the file #
    on logical file end( input file
                       , ( REF FILE f )BOOL:
                         BEGIN # note that we reached EOF on the latest read #
                               # and return TRUE so processing can continue  #
                               at eof := TRUE
                         END
                       );

    # in-place quick sort an array of strings                                #
    PROC s quicksort = ( REF[]STRING a, INT lb, ub )VOID:
         IF ub > lb
         THEN
            # more than one element, so must sort                            #
            INT  left  := lb;
            INT  right := ub;
            # choosing the middle element of the array as the pivot          #
            STRING pivot := a[ left + ( ( right + 1 ) - left ) OVER 2 ];
            WHILE
                WHILE IF left  <= ub THEN a[ left  ] < pivot ELSE FALSE FI
                DO
                    left  +:= 1
                OD;
                WHILE IF right >= lb THEN a[ right ] > pivot ELSE FALSE FI
                DO
                    right -:= 1
                OD;
                left <= right
            DO
                STRING t   := a[ left  ];
                a[ left  ] := a[ right ];
                a[ right ] := t;
                left      +:= 1;
                right     -:= 1
            OD;
            s quicksort( a, lb,   right );
            s quicksort( a, left, ub    )
         FI # s quicksort # ;

    # returns the length of s                                                #
    OP LENGTH     = ( STRING s )INT: 1 + ( UPB s - LWB s );
    # returns the consonant count of s or 0 if the consonants are not unique #
    OP UNIQUECONSONANTS = ( STRING s )INT:
       BEGIN
        [ 0 : 26 ]INT count;
        FOR c FROM LWB count TO UPB count DO count[ c ] := 0 OD;
        FOR i FROM LWB s TO UPB s DO
            CHAR c := s[ i ];
            IF c >= "A" AND c <= "Z" THEN
                c := REPR ( ABS c + ( ABS "a" - ABS "A" ) )
            FI;
            IF c >= "b" AND c <= "z" THEN
                IF c /= "e" AND c /= "i" AND c /= "o" AND c /= "u" THEN
                   count[ ABS c - ABS "a" ] +:= 1
                FI
            FI
        OD;
        BOOL all unique := TRUE;
        INT  consonants := 0;
        FOR c FROM LWB count TO UPB count WHILE all unique := count[ c ] < 2 DO
            consonants +:= count[ c ]
        OD;
        IF all unique THEN consonants ELSE 0 FI
       END # UNIQUECONSONANTS # ;
    [ 1 : 2 000 ]STRING words;
    INT w count    := 0;
    INT max length := 0;
    WHILE NOT at eof
    DO
        STRING word;
        get( input file, ( word, newline ) );
        IF NOT at eof THEN
            # have another word                                              #
            IF INT w length = LENGTH word;
               w length > 10
            THEN
                IF INT consonants = UNIQUECONSONANTS word;
                   consonants > 0
                THEN
                    # word is long enough to include and contains only uniue #
                    # consonants, store it prefixed by the max abs char      #
                    # complement of the number of consonants in it, so we    #
                    # can sort the words into reverse consonant count order  #
                    words[ w count +:= 1 ] := REPR ( max abs char - consonants ) + word;
                    IF w length > max length THEN max length := w length FI
                FI
            FI
        FI
    OD;
    close( input file );
    # sort the words                                                         #
    s quicksort( words, 1, w count );
    # display the words                                                      #
    INT prev count  := 0;
    INT p count     := 0;
    BOOL need nl    := FALSE;
    FOR w TO w count DO
        STRING s word   = words[ w ];
        INT    count    = max abs char - ABS s word[ 1 ];
        STRING word     = s word[ 2 : ];
        INT    w length = LENGTH word;
        IF count /= prev count THEN
            IF need nl THEN print( ( newline ) ) FI;
            print( ( newline, whole( count, 0 ), " consonants:", newline ) );
            prev count := count;
            p count    := 0;
            need nl    := FALSE
        FI;
        print( ( " ", " " * ( max length - w length ), word ) );
        IF NOT ( need nl := ( p count +:= 1 ) MOD 5 /= 0 ) THEN
            print( ( newline ) )
        FI
    OD
FI

9 consonants:
 comprehensible

8 consonants:
  administrable   anthropology    blameworthy   bluestocking  boustrophedon
    bricklaying  chemisorption    christendom claustrophobia   compensatory
  comprehensive counterexample   demonstrable   disciplinary  discriminable
   geochemistry   hypertensive indecipherable indecomposable indiscoverable
   lexicography   manslaughter   misanthropic    mockingbird   monkeyflower
 neuropathology paralinguistic   pharmacology    pitchblende    playwriting
   shipbuilding    shortcoming    springfield    stenography    stockholder
    switchblade    switchboard    switzerland    thunderclap

7 consonants:
    acknowledge    algorithmic   alphanumeric   ambidextrous    amphibology
    anchoritism    atmospheric  autobiography    bakersfield    bartholomew
  bidirectional    bloodstream  boardinghouse  cartilaginous    centrifugal
    chamberlain    charlemagne    clairvoyant  combinatorial    compensable
    complaisant    conflagrate   conglomerate   conquistador    consumptive
    convertible   cosmopolitan    counterflow    countryside    countrywide
    declamatory   decomposable  decomposition   deliquescent    description
    descriptive    dilogarithm    discernible   discriminate    disturbance
    documentary    earthmoving   encephalitis    endothermic   epistemology
    everlasting   exchangeable    exclamatory   exclusionary    exculpatory
    explanatory extemporaneous   extravaganza    filamentary    fluorescent
   galvanometer    geophysical    glycerinate    groundskeep    herpetology
   heterozygous   homebuilding    honeysuckle    hydrogenate    hyperboloid
   impenetrable  imperceivable   imperishable   imponderable    impregnable
    improvident  improvisation   incomparable   incompatible   incomputable
    incredulity  indefatigable   indigestible   indisputable  inexhaustible
   inextricable   inhospitable    inscrutable   jurisdiction    lawbreaking
    leatherback    leatherneck    leavenworth    logarithmic   loudspeaking
    maidservant   malnourished    marketplace    merchandise    methodology
    misanthrope   mitochondria    molybdenite    nearsighted    obfuscatory
   oceanography    palindromic   paradigmatic   paramagnetic    perfectible
    phraseology    politicking    predicament   presidential    problematic
   proclamation    promiscuity   providential    purchasable    pythagorean
  quasiparticle    quicksilver radiotelephone    sedimentary    selfadjoint
    serendipity    sovereignty    subjunctive    superfluity    terminology
  valedictorian    valedictory verisimilitude    vigilantism    voluntarism

6 consonants:
    aboveground   advantageous    adventurous    aerodynamic    anglophobia
    anisotropic    archipelago    automorphic    baltimorean    beneficiary
   borosilicate    cabinetmake    californium    codetermine    coextensive
    comparative    compilation    composition    confabulate    confederate
    considerate    consolidate   counterpoise    countervail   decisionmake
    declamation    declaration    declarative    deemphasize    deformation
    deliverance    demountable    denumerable    deoxyribose    depreciable
    deprivation    destabilize    diagnosable    diamagnetic    dichotomize
    dichotomous   disambiguate    eigenvector    elizabethan    encapsulate
    enforceable    ephemerides   epidemiology   evolutionary    exceptional
    exclamation    exercisable    exhaustible    exoskeleton    expenditure
   experiential    exploration    fluorescein   geometrician    hemosiderin
    hereinbelow    hermeneutic   heterogamous  heterogeneous   heterosexual
    hexadecimal   hexafluoride    homebuilder    homogeneity    housebroken
    icosahedral    icosahedron    impersonate    imprecision    improvisate
    inadvisable    increasable    incredulous    indivisible    indomitable
   ineradicable    inescapable    inestimable    inexcusable   infelicitous
    informatica    informative    inseparable    insuperable    ionospheric
    justiciable   kaleidescope   kaleidoscope    legerdemain   liquefaction
    loudspeaker    machinelike    magisterial    maladaptive    mantlepiece
    manufacture    masterpiece   meetinghouse    meteorology    minesweeper
    ministerial   multifarious    musculature    observation    patrimonial
    peasanthood   pediatrician    persecution   pertinacious    picturesque
    planetarium    pleistocene    pomegranate    predominate    prejudicial
    prohibition    prohibitive    prolegomena    prosecution    provisional
    provocation    publication  quasiperiodic    reclamation    religiosity
   renegotiable    residential   rooseveltian    safekeeping   saloonkeeper
    serviceable    speedometer    subrogation    sulfonamide    superficial
    superlative    teaspoonful    trapezoidal    tridiagonal    troublesome
   vainglorious    valediction    venturesome    vermiculite   vocabularian
   warehouseman    wisenheimer

5 consonants:
    acquisition    acquisitive    acrimonious    ceremonious    deleterious
   diatomaceous    egalitarian    equilibrate    equilibrium    equinoctial
    expeditious    hereinabove    homogeneous    inequitable    injudicious
    inoperative    inquisitive    interviewee    leeuwenhoek   onomatopoeic
    radioactive    requisition

4 consonants:
    audiovisual    bourgeoisie   onomatopoeia

ALGOL W[edit]

begin % find the words longer than 10 characters that contain most consonants %
    % an element of a WordList %
    record WordListElement ( string(32) w; reference(WordListElement) next );
    % structure to hold lists of words %
    record WordList ( reference(WordListElement) first, last );
    % lists of words indexed by number of consonants %
    reference(WordList) array words ( 1 :: 32 );
    string(32) word;
    integer aCode, aPos, ePos, iPos, oPos, uPos;
    for wPos := 1 until 32 do words( wPos ) := null;
    % allow the program to continue after reaching end-of-file %
    ENDFILE := EXCEPTION( false, 1, 0, false, "EOF" );
    % handle the input %
    aCode := decode( "a" );
    aPos  := 0;
    ePos  := decode( "e" ) - aCode;
    iPos  := decode( "i" ) - aCode;
    oPos  := decode( "o" ) - aCode;
    uPos  := decode( "u" ) - aCode;
    readcard( word );
    while not XCPNOTED(ENDFILE) do begin
        integer len;
        len   := 31;
        while len > 0 and word( len // 1 ) = " " do len := len - 1;
        len   := len + 1;
        if len > 10 then begin % word is at least 11 characters long %
            logical noRepeatedletters;
            integer consonants;
            integer array letterCount ( 0 :: 25 );
            for cPos := 0 until 25 do letterCount( cPos ) := 0;
            for cPos := 0 until len do begin
                integer c;
                c := decode( word( cPos // 1 ) ) - aCode;
                if c >= 0 and c <= 25 then % have a letter % letterCount( c ) := letterCount( c ) + 1;
            end for_cPos;
            % reset the vowel counts %
            letterCount( aPos ) := letterCount( ePos ) := letterCount( iPos ) := letterCount( oPos ) := letterCOunt( uPos ) := 0;
            % check at most 1 of each letter and at least one non-vowel %
            noRepeatedletters   := true;
            consonants          := 0;
            for cPos := 0 until 25 do begin
                if letterCount( cPos ) = 1 then consonants := consonants + 1 
                else if letterCount( cPos ) > 1 then begin
                    % a repeated letter %
                    noRepeatedletters := false;
                    goto endLookFOrRepeatedLetters;
                end if_single_letter__repeated_letter
            end for_cPos ;
endLookFOrRepeatedLetters:
            if consonants > 0 and noRepeatedLetters then begin
                % have a word with more than 10 characters that has no repeated consonants %
                if words( consonants ) not = null then begin
                    % second or subsequent word with this many consonants %
                    last( words( consonants ) ) := next( last( words( consonants ) ) ) := WordListElement( word, null );
                    end
                else begin
                    % first word with this many consonants %
                    words( consonants ) := WordList( WordListElement( word, null ), null );
                    last( words( consonants ) ) := first( words( consonants ) )
                end if_words_consonants_ne_null__
            end if_have_no_repeated_consonants
        end if_len_gt_10 ;
        readcard( word );
    end while_not_eof ;
    % show the words %
    for wPos := 32 step -1 until 1 do begin
        if words( wPos ) not = null then begin
            % have words with wPos consonants %
            reference(WordListElement) rWord;
            integer wNumber;
            write( i_w := 1, s_w := 0,"Words with ", wPos, " consonants:" );
            rWord := first( words( wPos ) );
            wNumber := 0;
            while rWord not = null do begin
                if wNumber rem 5 = 0
                then write( "  ", w( rWord )( 0 // 18 ) )
                else writeon(     w( rWord )( 0 // 18 ) )
                ;
                wNumber := wNUmber + 1;
                rWord := next( rWord )
            end while_rWord_ne_null
        end if_words_wPos_ne_null
    end for_wPos
end.

Words with 9 consonants:
  comprehensible
Words with 8 consonants:
  administrable     anthropology      blameworthy       bluestocking      boustrophedon
  bricklaying       chemisorption     christendom       claustrophobia    compensatory
  comprehensive     counterexample    demonstrable      disciplinary      discriminable
  geochemistry      hypertensive      indecipherable    indecomposable    indiscoverable
  lexicography      manslaughter      misanthropic      mockingbird       monkeyflower
  neuropathology    paralinguistic    pharmacology      pitchblende       playwriting
  shipbuilding      shortcoming       springfield       stenography       stockholder
  switchblade       switchboard       switzerland       thunderclap
Words with 7 consonants:
  acknowledge       algorithmic       alphanumeric      ambidextrous      amphibology
  anchoritism       atmospheric       autobiography     bakersfield       bartholomew
  bidirectional     bloodstream       boardinghouse     cartilaginous     centrifugal
  chamberlain       charlemagne       clairvoyant       combinatorial     compensable
  complaisant       conflagrate       conglomerate      conquistador      consumptive
  convertible       cosmopolitan      counterflow       countryside       countrywide
  declamatory       decomposable      decomposition     deliquescent      description
  descriptive       dilogarithm       discernible       discriminate      disturbance
  documentary       earthmoving       encephalitis      endothermic       epistemology
  everlasting       exchangeable      exclamatory       exclusionary      exculpatory
  explanatory       extemporaneous    extravaganza      filamentary       fluorescent
  galvanometer      geophysical       glycerinate       groundskeep       herpetology
  heterozygous      homebuilding      honeysuckle       hydrogenate       hyperboloid
  impenetrable      imperceivable     imperishable      imponderable      impregnable
  improvident       improvisation     incomparable      incompatible      incomputable
  incredulity       indefatigable     indigestible      indisputable      inexhaustible
  inextricable      inhospitable      inscrutable       jurisdiction      lawbreaking
  leatherback       leatherneck       leavenworth       logarithmic       loudspeaking
  maidservant       malnourished      marketplace       merchandise       methodology
  misanthrope       mitochondria      molybdenite       nearsighted       obfuscatory
  oceanography      palindromic       paradigmatic      paramagnetic      perfectible
  phraseology       politicking       predicament       presidential      problematic
  proclamation      promiscuity       providential      purchasable       pythagorean
  quasiparticle     quicksilver       radiotelephone    sedimentary       selfadjoint
  serendipity       sovereignty       subjunctive       superfluity       terminology
  valedictorian     valedictory       verisimilitude    vigilantism       voluntarism
Words with 6 consonants:
  aboveground       advantageous      adventurous       aerodynamic       anglophobia
  anisotropic       archipelago       automorphic       baltimorean       beneficiary
  borosilicate      cabinetmake       californium       codetermine       coextensive
  comparative       compilation       composition       confabulate       confederate
  considerate       consolidate       counterpoise      countervail       decisionmake
  declamation       declaration       declarative       deemphasize       deformation
  deliverance       demountable       denumerable       deoxyribose       depreciable
  deprivation       destabilize       diagnosable       diamagnetic       dichotomize
  dichotomous       disambiguate      eigenvector       elizabethan       encapsulate
  enforceable       ephemerides       epidemiology      evolutionary      exceptional
  exclamation       exercisable       exhaustible       exoskeleton       expenditure
  experiential      exploration       fluorescein       geometrician      hemosiderin
  hereinbelow       hermeneutic       heterogamous      heterogeneous     heterosexual
  hexadecimal       hexafluoride      homebuilder       homogeneity       housebroken
  icosahedral       icosahedron       impersonate       imprecision       improvisate
  inadvisable       increasable       incredulous       indivisible       indomitable
  ineradicable      inescapable       inestimable       inexcusable       infelicitous
  informatica       informative       inseparable       insuperable       ionospheric
  justiciable       kaleidescope      kaleidoscope      legerdemain       liquefaction
  loudspeaker       machinelike       magisterial       maladaptive       mantlepiece
  manufacture       masterpiece       meetinghouse      meteorology       minesweeper
  ministerial       multifarious      musculature       observation       patrimonial
  peasanthood       pediatrician      persecution       pertinacious      picturesque
  planetarium       pleistocene       pomegranate       predominate       prejudicial
  prohibition       prohibitive       prolegomena       prosecution       provisional
  provocation       publication       quasiperiodic     reclamation       religiosity
  renegotiable      residential       rooseveltian      safekeeping       saloonkeeper
  serviceable       speedometer       subrogation       sulfonamide       superficial
  superlative       teaspoonful       trapezoidal       tridiagonal       troublesome
  vainglorious      valediction       venturesome       vermiculite       vocabularian
  warehouseman      wisenheimer
Words with 5 consonants:
  acquisition       acquisitive       acrimonious       ceremonious       deleterious
  diatomaceous      egalitarian       equilibrate       equilibrium       equinoctial
  expeditious       hereinabove       homogeneous       inequitable       injudicious
  inoperative       inquisitive       interviewee       leeuwenhoek       onomatopoeic
  radioactive       requisition
Words with 4 consonants:
  audiovisual       bourgeoisie       onomatopoeia

Arturo[edit]

words: read.lines relative "unixdict.txt"
vowels: ["a" "e" "i" "o" "u"]

nofConsonants: function [w][
    cons: (split w) -- vowels
    if? cons = unique cons -> return size cons
    else -> return 0
]

freqs: array.of: 20 []

loop words 'word [
    if 10 < size word [
        noc: nofConsonants word
        if noc > 0 [
            freqs[noc]: freqs[noc] ++ word
        ]
    ]
]

loop.with:'i reverse freqs 'freq [
    if not? empty? freq [
        print "-----------------------------------------------"
        print ~"Found |size freq| words with |dec 20-i| different consonants"
        print "-----------------------------------------------"
        print join.with:"n" freq
        print ""
    ]
]

-----------------------------------------------
Found 1 words with 9 different consonants
-----------------------------------------------
comprehensible

-----------------------------------------------
Found 39 words with 8 different consonants
-----------------------------------------------
administrable
anthropology
blameworthy
bluestocking
boustrophedon
bricklaying
chemisorption
christendom
claustrophobia
compensatory
comprehensive
counterexample
demonstrable
disciplinary
discriminable
geochemistry
hypertensive
indecipherable
indecomposable
indiscoverable
lexicography
manslaughter
misanthropic
mockingbird
monkeyflower
neuropathology
paralinguistic
pharmacology
pitchblende
playwriting
shipbuilding
shortcoming
springfield
stenography
stockholder
switchblade
switchboard
switzerland
thunderclap

-----------------------------------------------
Found 130 words with 7 different consonants
-----------------------------------------------
acknowledge
algorithmic
alphanumeric
ambidextrous
amphibology
anchoritism
atmospheric
autobiography
bakersfield
bartholomew
bidirectional
bloodstream
boardinghouse
cartilaginous
centrifugal
chamberlain
charlemagne
clairvoyant
combinatorial
compensable
complaisant
conflagrate
conglomerate
conquistador
consumptive
convertible
cosmopolitan
counterflow
countryside
countrywide
declamatory
decomposable
decomposition
deliquescent
description
descriptive
dilogarithm
discernible
discriminate
disturbance
documentary
earthmoving
encephalitis
endothermic
epistemology
everlasting
exchangeable
exclamatory
exclusionary
exculpatory
explanatory
extemporaneous
extravaganza
filamentary
fluorescent
galvanometer
geophysical
glycerinate
groundskeep
herpetology
heterozygous
homebuilding
honeysuckle
hydrogenate
hyperboloid
impenetrable
imperceivable
imperishable
imponderable
impregnable
improvident
improvisation
incomparable
incompatible
incomputable
incredulity
indefatigable
indigestible
indisputable
inexhaustible
inextricable
inhospitable
inscrutable
jurisdiction
lawbreaking
leatherback
leatherneck
leavenworth
logarithmic
loudspeaking
maidservant
malnourished
marketplace
merchandise
methodology
misanthrope
mitochondria
molybdenite
nearsighted
obfuscatory
oceanography
palindromic
paradigmatic
paramagnetic
perfectible
phraseology
politicking
predicament
presidential
problematic
proclamation
promiscuity
providential
purchasable
pythagorean
quasiparticle
quicksilver
radiotelephone
sedimentary
selfadjoint
serendipity
sovereignty
subjunctive
superfluity
terminology
valedictorian
valedictory
verisimilitude
vigilantism
voluntarism

-----------------------------------------------
Found 152 words with 6 different consonants
-----------------------------------------------
aboveground
advantageous
adventurous
aerodynamic
anglophobia
anisotropic
archipelago
automorphic
baltimorean
beneficiary
borosilicate
cabinetmake
californium
codetermine
coextensive
comparative
compilation
composition
confabulate
confederate
considerate
consolidate
counterpoise
countervail
decisionmake
declamation
declaration
declarative
deemphasize
deformation
deliverance
demountable
denumerable
deoxyribose
depreciable
deprivation
destabilize
diagnosable
diamagnetic
dichotomize
dichotomous
disambiguate
eigenvector
elizabethan
encapsulate
enforceable
ephemerides
epidemiology
evolutionary
exceptional
exclamation
exercisable
exhaustible
exoskeleton
expenditure
experiential
exploration
fluorescein
geometrician
hemosiderin
hereinbelow
hermeneutic
heterogamous
heterogeneous
heterosexual
hexadecimal
hexafluoride
homebuilder
homogeneity
housebroken
icosahedral
icosahedron
impersonate
imprecision
improvisate
inadvisable
increasable
incredulous
indivisible
indomitable
ineradicable
inescapable
inestimable
inexcusable
infelicitous
informatica
informative
inseparable
insuperable
ionospheric
justiciable
kaleidescope
kaleidoscope
legerdemain
liquefaction
loudspeaker
machinelike
magisterial
maladaptive
mantlepiece
manufacture
masterpiece
meetinghouse
meteorology
minesweeper
ministerial
multifarious
musculature
observation
patrimonial
peasanthood
pediatrician
persecution
pertinacious
picturesque
planetarium
pleistocene
pomegranate
predominate
prejudicial
prohibition
prohibitive
prolegomena
prosecution
provisional
provocation
publication
quasiperiodic
reclamation
religiosity
renegotiable
residential
rooseveltian
safekeeping
saloonkeeper
serviceable
speedometer
subrogation
sulfonamide
superficial
superlative
teaspoonful
trapezoidal
tridiagonal
troublesome
vainglorious
valediction
venturesome
vermiculite
vocabularian
warehouseman
wisenheimer

-----------------------------------------------
Found 22 words with 5 different consonants
-----------------------------------------------
acquisition
acquisitive
acrimonious
ceremonious
deleterious
diatomaceous
egalitarian
equilibrate
equilibrium
equinoctial
expeditious
hereinabove
homogeneous
inequitable
injudicious
inoperative
inquisitive
interviewee
leeuwenhoek
onomatopoeic
radioactive
requisition

-----------------------------------------------
Found 3 words with 4 different consonants
-----------------------------------------------
audiovisual
bourgeoisie
onomatopoeia

AutoHotkey[edit]

FileRead, db, % A_Desktop "unixdict.txt"
vowels := ["a", "e", "i", "o", "u"]
oRes := []
for i, word in StrSplit(db, "`n", "`r")
{
    if StrLen(word) < 11
        continue
    tWord := word
    for j, v in vowels
        word := StrReplace(word, v)
    if !(word ~= "(.)(?=.*?1)")
        oRes[0-StrLen(word), tword] := 1 ; result .= tword "`n"
}

for l, obj in oRes
{
    result .= 0-l " Unique consonants, word count: " obj.Count() "`n"
    for word in obj
        result .= word (!Mod(A_Index, 9) ? "`n" : "`t")
    result .= "`n`n"
}
MsgBox, 262144, , % result

9 Unique consonants, word count: 1
comprehensible	

8 Unique consonants, word count: 39
administrable	anthropology	blameworthy	bluestocking	boustrophedon	bricklaying	chemisorption	christendom	claustrophobia
compensatory	comprehensive	counterexample	demonstrable	disciplinary	discriminable	geochemistry	hypertensive	indecipherable
indecomposable	indiscoverable	lexicography	manslaughter	misanthropic	mockingbird	monkeyflower	neuropathology	paralinguistic
pharmacology	pitchblende	playwriting	shipbuilding	shortcoming	springfield	stenography	stockholder	switchblade
switchboard	switzerland	thunderclap	

7 Unique consonants, word count: 130
acknowledge	algorithmic	alphanumeric	ambidextrous	amphibology	anchoritism	atmospheric	autobiography	bakersfield
bartholomew	bidirectional	bloodstream	boardinghouse	cartilaginous	centrifugal	chamberlain	charlemagne	clairvoyant
combinatorial	compensable	complaisant	conflagrate	conglomerate	conquistador	consumptive	convertible	cosmopolitan
counterflow	countryside	countrywide	declamatory	decomposable	decomposition	deliquescent	description	descriptive
dilogarithm	discernible	discriminate	disturbance	documentary	earthmoving	encephalitis	endothermic	epistemology
everlasting	exchangeable	exclamatory	exclusionary	exculpatory	explanatory	extemporaneous	extravaganza	filamentary
fluorescent	galvanometer	geophysical	glycerinate	groundskeep	herpetology	heterozygous	homebuilding	honeysuckle
hydrogenate	hyperboloid	impenetrable	imperceivable	imperishable	imponderable	impregnable	improvident	improvisation
incomparable	incompatible	incomputable	incredulity	indefatigable	indigestible	indisputable	inexhaustible	inextricable
inhospitable	inscrutable	jurisdiction	lawbreaking	leatherback	leatherneck	leavenworth	logarithmic	loudspeaking
maidservant	malnourished	marketplace	merchandise	methodology	misanthrope	mitochondria	molybdenite	nearsighted
obfuscatory	oceanography	palindromic	paradigmatic	paramagnetic	perfectible	phraseology	politicking	predicament
presidential	problematic	proclamation	promiscuity	providential	purchasable	pythagorean	quasiparticle	quicksilver
radiotelephone	sedimentary	selfadjoint	serendipity	sovereignty	subjunctive	superfluity	terminology	valedictorian
valedictory	verisimilitude	vigilantism	voluntarism	

6 Unique consonants, word count: 152
aboveground	advantageous	adventurous	aerodynamic	anglophobia	anisotropic	archipelago	automorphic	baltimorean
beneficiary	borosilicate	cabinetmake	californium	codetermine	coextensive	comparative	compilation	composition
confabulate	confederate	considerate	consolidate	counterpoise	countervail	decisionmake	declamation	declaration
declarative	deemphasize	deformation	deliverance	demountable	denumerable	deoxyribose	depreciable	deprivation
destabilize	diagnosable	diamagnetic	dichotomize	dichotomous	disambiguate	eigenvector	elizabethan	encapsulate
enforceable	ephemerides	epidemiology	evolutionary	exceptional	exclamation	exercisable	exhaustible	exoskeleton
expenditure	experiential	exploration	fluorescein	geometrician	hemosiderin	hereinbelow	hermeneutic	heterogamous
heterogeneous	heterosexual	hexadecimal	hexafluoride	homebuilder	homogeneity	housebroken	icosahedral	icosahedron
impersonate	imprecision	improvisate	inadvisable	increasable	incredulous	indivisible	indomitable	ineradicable
inescapable	inestimable	inexcusable	infelicitous	informatica	informative	inseparable	insuperable	ionospheric
justiciable	kaleidescope	kaleidoscope	legerdemain	liquefaction	loudspeaker	machinelike	magisterial	maladaptive
mantlepiece	manufacture	masterpiece	meetinghouse	meteorology	minesweeper	ministerial	multifarious	musculature
observation	patrimonial	peasanthood	pediatrician	persecution	pertinacious	picturesque	planetarium	pleistocene
pomegranate	predominate	prejudicial	prohibition	prohibitive	prolegomena	prosecution	provisional	provocation
publication	quasiperiodic	reclamation	religiosity	renegotiable	residential	rooseveltian	safekeeping	saloonkeeper
serviceable	speedometer	subrogation	sulfonamide	superficial	superlative	teaspoonful	trapezoidal	tridiagonal
troublesome	vainglorious	valediction	venturesome	vermiculite	vocabularian	warehouseman	wisenheimer	

5 Unique consonants, word count: 22
acquisition	acquisitive	acrimonious	ceremonious	deleterious	diatomaceous	egalitarian	equilibrate	equilibrium
equinoctial	expeditious	hereinabove	homogeneous	inequitable	injudicious	inoperative	inquisitive	interviewee
leeuwenhoek	onomatopoeic	radioactive	requisition	

4 Unique consonants, word count: 3
audiovisual	bourgeoisie	onomatopoeia	

AWK[edit]

# syntax: GAWK -f FIND_WORDS_WHICH_CONTAINS_MOST_CONSONANTS.AWK unixdict.txt
#
# sorting:
#   PROCINFO["sorted_in"] is used by GAWK
#   SORTTYPE is used by Thompson Automation's TAWK
#
BEGIN {
    a2z = "abcdefghijklmnopqrstuvwxyz"
    gsub(/[aeiou]/,"",a2z) # remove vowels
    leng = length(a2z)
}
{   if (length($0) <= 10) {
      next
    }
    consonants = 0
    for (i=1; i<=leng; i++) {
      c = substr(a2z,i,1)
      if (gsub(c,"&",$0) > 1) {
        next
      }
      if (gsub(c,"&",$0) == 1) {
        consonants++
      }
    }
    arr[consonants][$0] = ""
    words++
}
END {
    show = 4
    PROCINFO["sorted_in"] = "@ind_str_asc" ; SORTTYPE = 1
    for (i in arr) {
      printf("%1d %3d ",i,length(arr[i]))
      shown = 0
      for (j in arr[i]) {
        if (++shown <= show) {
          printf("%s ",j)
        }
      }
      printf("%sn",(length(arr[i])>show)?(" ...  "j):"")
    }
    printf("%5d wordsn",words)
    exit(0)
}

4   3 audiovisual bourgeoisie onomatopoeia
5  22 acquisition acquisitive acrimonious ceremonious  ...  requisition
6 152 aboveground advantageous adventurous aerodynamic  ...  wisenheimer
7 130 acknowledge algorithmic alphanumeric ambidextrous  ...  voluntarism
8  39 administrable anthropology blameworthy bluestocking  ...  thunderclap
9   1 comprehensible
  347 words

C++[edit]

#include <bitset>
#include <cctype>
#include <cstdlib>
#include <fstream>
#include <iomanip>
#include <iostream>
#include <map>
#include <string>
#include <vector>

// Returns number of consonants in the word if they are all unique,
// otherwise zero.
size_t consonants(const std::string& word) {
    std::bitset<26> bits;
    size_t bit = 0;
    for (char ch : word) {
        ch = std::tolower(static_cast<unsigned char>(ch));
        if (ch < 'a' || ch > 'z')
            continue;
        switch (ch) {
        case 'a':
        case 'e':
        case 'i':
        case 'o':
        case 'u':
            break;
        default:
            bit = ch - 'a';
            if (bits.test(bit))
                return 0;
            bits.set(bit);
            break;
        }
    }
    return bits.count();
}

int main(int argc, char** argv) {
    const char* filename(argc < 2 ? "unixdict.txt" : argv[1]);
    std::ifstream in(filename);
    if (!in) {
        std::cerr << "Cannot open file '" << filename << "'.n";
        return EXIT_FAILURE;
    }
    std::string word;
    std::map<size_t, std::vector<std::string>, std::greater<int>> map;
    while (getline(in, word)) {
        if (word.size() <= 10)
            continue;
        size_t count = consonants(word);
        if (count != 0)
            map[count].push_back(word);
    }
    const int columns = 4;
    for (const auto& p : map) {
        std::cout << p.first << " consonants (" << p.second.size() << "):n";
        int n = 0;
        for (const auto& word : p.second) {
            std::cout << std::left << std::setw(18) << word;
            ++n;
            if (n % columns == 0)
                std::cout << 'n';
        }
        if (n % columns != 0)
            std::cout << 'n';
        std::cout << 'n';
    }
    return EXIT_SUCCESS;
}

9 consonants (1):
comprehensible    

8 consonants (39):
administrable     anthropology      blameworthy       bluestocking      
boustrophedon     bricklaying       chemisorption     christendom       
claustrophobia    compensatory      comprehensive     counterexample    
demonstrable      disciplinary      discriminable     geochemistry      
hypertensive      indecipherable    indecomposable    indiscoverable    
lexicography      manslaughter      misanthropic      mockingbird       
monkeyflower      neuropathology    paralinguistic    pharmacology      
pitchblende       playwriting       shipbuilding      shortcoming       
springfield       stenography       stockholder       switchblade       
switchboard       switzerland       thunderclap       

7 consonants (130):
acknowledge       algorithmic       alphanumeric      ambidextrous      
amphibology       anchoritism       atmospheric       autobiography     
bakersfield       bartholomew       bidirectional     bloodstream       
boardinghouse     cartilaginous     centrifugal       chamberlain       
charlemagne       clairvoyant       combinatorial     compensable       
complaisant       conflagrate       conglomerate      conquistador      
consumptive       convertible       cosmopolitan      counterflow       
countryside       countrywide       declamatory       decomposable      
decomposition     deliquescent      description       descriptive       
dilogarithm       discernible       discriminate      disturbance       
documentary       earthmoving       encephalitis      endothermic       
epistemology      everlasting       exchangeable      exclamatory       
exclusionary      exculpatory       explanatory       extemporaneous    
extravaganza      filamentary       fluorescent       galvanometer      
geophysical       glycerinate       groundskeep       herpetology       
heterozygous      homebuilding      honeysuckle       hydrogenate       
hyperboloid       impenetrable      imperceivable     imperishable      
imponderable      impregnable       improvident       improvisation     
incomparable      incompatible      incomputable      incredulity       
indefatigable     indigestible      indisputable      inexhaustible     
inextricable      inhospitable      inscrutable       jurisdiction      
lawbreaking       leatherback       leatherneck       leavenworth       
logarithmic       loudspeaking      maidservant       malnourished      
marketplace       merchandise       methodology       misanthrope       
mitochondria      molybdenite       nearsighted       obfuscatory       
oceanography      palindromic       paradigmatic      paramagnetic      
perfectible       phraseology       politicking       predicament       
presidential      problematic       proclamation      promiscuity       
providential      purchasable       pythagorean       quasiparticle     
quicksilver       radiotelephone    sedimentary       selfadjoint       
serendipity       sovereignty       subjunctive       superfluity       
terminology       valedictorian     valedictory       verisimilitude    
vigilantism       voluntarism       

6 consonants (152):
aboveground       advantageous      adventurous       aerodynamic       
anglophobia       anisotropic       archipelago       automorphic       
baltimorean       beneficiary       borosilicate      cabinetmake       
californium       codetermine       coextensive       comparative       
compilation       composition       confabulate       confederate       
considerate       consolidate       counterpoise      countervail       
decisionmake      declamation       declaration       declarative       
deemphasize       deformation       deliverance       demountable       
denumerable       deoxyribose       depreciable       deprivation       
destabilize       diagnosable       diamagnetic       dichotomize       
dichotomous       disambiguate      eigenvector       elizabethan       
encapsulate       enforceable       ephemerides       epidemiology      
evolutionary      exceptional       exclamation       exercisable       
exhaustible       exoskeleton       expenditure       experiential      
exploration       fluorescein       geometrician      hemosiderin       
hereinbelow       hermeneutic       heterogamous      heterogeneous     
heterosexual      hexadecimal       hexafluoride      homebuilder       
homogeneity       housebroken       icosahedral       icosahedron       
impersonate       imprecision       improvisate       inadvisable       
increasable       incredulous       indivisible       indomitable       
ineradicable      inescapable       inestimable       inexcusable       
infelicitous      informatica       informative       inseparable       
insuperable       ionospheric       justiciable       kaleidescope      
kaleidoscope      legerdemain       liquefaction      loudspeaker       
machinelike       magisterial       maladaptive       mantlepiece       
manufacture       masterpiece       meetinghouse      meteorology       
minesweeper       ministerial       multifarious      musculature       
observation       patrimonial       peasanthood       pediatrician      
persecution       pertinacious      picturesque       planetarium       
pleistocene       pomegranate       predominate       prejudicial       
prohibition       prohibitive       prolegomena       prosecution       
provisional       provocation       publication       quasiperiodic     
reclamation       religiosity       renegotiable      residential       
rooseveltian      safekeeping       saloonkeeper      serviceable       
speedometer       subrogation       sulfonamide       superficial       
superlative       teaspoonful       trapezoidal       tridiagonal       
troublesome       vainglorious      valediction       venturesome       
vermiculite       vocabularian      warehouseman      wisenheimer       

5 consonants (22):
acquisition       acquisitive       acrimonious       ceremonious       
deleterious       diatomaceous      egalitarian       equilibrate       
equilibrium       equinoctial       expeditious       hereinabove       
homogeneous       inequitable       injudicious       inoperative       
inquisitive       interviewee       leeuwenhoek       onomatopoeic      
radioactive       requisition       

4 consonants (3):
audiovisual       bourgeoisie       onomatopoeia      

CLU[edit]

% If a word has no repeated consonants, return the amount
% of consonants. If it does have repeated consonants, return
% -1.
consonants = proc (word: string) returns (int)
    own vowels: string := "aeiou" % shorter than listing all consonants
    letters: array[int] := array[int]$fill(0,26,0)
    
    for c: char in string$chars(word) do
        if string$indexc(c,vowels) ~= 0 then continue end
        if c<'a' cor c>'z' then continue end
        i: int := char$c2i(c) - char$c2i('a')
        letters[i] := letters[i] + 1
    end
    
    total: int := 0
    for i: int in array[int]$elements(letters) do
        if i>1 then return(-1) end
        total := total + i
    end
    return(total)
end consonants

start_up = proc ()
    dictfile: file_name := file_name$parse("unixdict.txt")
    dict: stream := stream$open(dictfile, "read")

    words: array[array[string]] := 
        array[array[string]]$fill_copy(0,10,array[string]$[])
    
    while true do
        word: string := stream$getl(dict)
        if string$size(word) <= 10 then continue end
        n: int := consonants(word)
        array[string]$addh(words[n], word)
        except when bounds: end 
    end
    except when end_of_file: 
        stream$close(dict)
    end
    
    po: stream := stream$primary_output()
    for word_list: array[string] in array[array[string]]$elements(words) do
        if array[string]$empty(word_list) then continue end
        size: int := array[string]$size(word_list)
        cons: int := consonants(array[string]$bottom(word_list))
        stream$putl(po, int$unparse(cons) || " consonants - " 
                || int$unparse(size) || " words:")
        col: int := 0
        for word: string in array[string]$elements(word_list) do
            stream$putleft(po, word, 20)
            col := col + 1
            if col = 4 then
                stream$putl(po, "")
                col := 0
            end
        end
        if col ~= 0 then stream$putl(po, "") end
        stream$putl(po, "") 
    end
end start_up

4 consonants - 3 words:
audiovisual         bourgeoisie         onomatopoeia

5 consonants - 22 words:
acquisition         acquisitive         acrimonious         ceremonious
deleterious         diatomaceous        egalitarian         equilibrate
equilibrium         equinoctial         expeditious         hereinabove
homogeneous         inequitable         injudicious         inoperative
inquisitive         interviewee         leeuwenhoek         onomatopoeic
radioactive         requisition

6 consonants - 152 words:
aboveground         advantageous        adventurous         aerodynamic
anglophobia         anisotropic         archipelago         automorphic
baltimorean         beneficiary         borosilicate        cabinetmake
californium         codetermine         coextensive         comparative
compilation         composition         confabulate         confederate
considerate         consolidate         counterpoise        countervail
decisionmake        declamation         declaration         declarative
deemphasize         deformation         deliverance         demountable
denumerable         deoxyribose         depreciable         deprivation
destabilize         diagnosable         diamagnetic         dichotomize
dichotomous         disambiguate        eigenvector         elizabethan
encapsulate         enforceable         ephemerides         epidemiology
evolutionary        exceptional         exclamation         exercisable
exhaustible         exoskeleton         expenditure         experiential
exploration         fluorescein         geometrician        hemosiderin
hereinbelow         hermeneutic         heterogamous        heterogeneous
heterosexual        hexadecimal         hexafluoride        homebuilder
homogeneity         housebroken         icosahedral         icosahedron
impersonate         imprecision         improvisate         inadvisable
increasable         incredulous         indivisible         indomitable
ineradicable        inescapable         inestimable         inexcusable
infelicitous        informatica         informative         inseparable
insuperable         ionospheric         justiciable         kaleidescope
kaleidoscope        legerdemain         liquefaction        loudspeaker
machinelike         magisterial         maladaptive         mantlepiece
manufacture         masterpiece         meetinghouse        meteorology
minesweeper         ministerial         multifarious        musculature
observation         patrimonial         peasanthood         pediatrician
persecution         pertinacious        picturesque         planetarium
pleistocene         pomegranate         predominate         prejudicial
prohibition         prohibitive         prolegomena         prosecution
provisional         provocation         publication         quasiperiodic
reclamation         religiosity         renegotiable        residential
rooseveltian        safekeeping         saloonkeeper        serviceable
speedometer         subrogation         sulfonamide         superficial
superlative         teaspoonful         trapezoidal         tridiagonal
troublesome         vainglorious        valediction         venturesome
vermiculite         vocabularian        warehouseman        wisenheimer

7 consonants - 130 words:
acknowledge         algorithmic         alphanumeric        ambidextrous
amphibology         anchoritism         atmospheric         autobiography
bakersfield         bartholomew         bidirectional       bloodstream
boardinghouse       cartilaginous       centrifugal         chamberlain
charlemagne         clairvoyant         combinatorial       compensable
complaisant         conflagrate         conglomerate        conquistador
consumptive         convertible         cosmopolitan        counterflow
countryside         countrywide         declamatory         decomposable
decomposition       deliquescent        description         descriptive
dilogarithm         discernible         discriminate        disturbance
documentary         earthmoving         encephalitis        endothermic
epistemology        everlasting         exchangeable        exclamatory
exclusionary        exculpatory         explanatory         extemporaneous
extravaganza        filamentary         fluorescent         galvanometer
geophysical         glycerinate         groundskeep         herpetology
heterozygous        homebuilding        honeysuckle         hydrogenate
hyperboloid         impenetrable        imperceivable       imperishable
imponderable        impregnable         improvident         improvisation
incomparable        incompatible        incomputable        incredulity
indefatigable       indigestible        indisputable        inexhaustible
inextricable        inhospitable        inscrutable         jurisdiction
lawbreaking         leatherback         leatherneck         leavenworth
logarithmic         loudspeaking        maidservant         malnourished
marketplace         merchandise         methodology         misanthrope
mitochondria        molybdenite         nearsighted         obfuscatory
oceanography        palindromic         paradigmatic        paramagnetic
perfectible         phraseology         politicking         predicament
presidential        problematic         proclamation        promiscuity
providential        purchasable         pythagorean         quasiparticle
quicksilver         radiotelephone      sedimentary         selfadjoint
serendipity         sovereignty         subjunctive         superfluity
terminology         valedictorian       valedictory         verisimilitude
vigilantism         voluntarism

8 consonants - 39 words:
administrable       anthropology        blameworthy         bluestocking
boustrophedon       bricklaying         chemisorption       christendom
claustrophobia      compensatory        comprehensive       counterexample
demonstrable        disciplinary        discriminable       geochemistry
hypertensive        indecipherable      indecomposable      indiscoverable
lexicography        manslaughter        misanthropic        mockingbird
monkeyflower        neuropathology      paralinguistic      pharmacology
pitchblende         playwriting         shipbuilding        shortcoming
springfield         stenography         stockholder         switchblade
switchboard         switzerland         thunderclap

9 consonants - 1 words:
comprehensible

F#[edit]

// Word(s) containing most consonants. Nigel Galloway: February 18th., 2021
let vowels=set['a';'e';'i';'o';'u']
let fN g=let g=g|>Seq.filter(vowels.Contains>>not)|>Array.ofSeq in if g=(g|>Array.distinct) then g.Length else 0
printfn "%A" (seq{use n=System.IO.File.OpenText("unixdict.txt") in while not n.EndOfStream do yield n.ReadLine()}|>Seq.filter(fun n->n.Length>10)|>Seq.groupBy fN|>Seq.sortBy fst|>Seq.last)

(9, seq ["comprehensible"])

Factor[edit]

USING: assocs formatting io.encodings.ascii io.files kernel math
prettyprint prettyprint.config sequences sets sets.extras ;
FROM: namespaces => set ;

"unixdict.txt" ascii file-lines
[ length 10 > ] filter
[ "aeiou" without all-unique? ] filter dup length
"Found %d words with unique consonants (length > 10).n" printf
[ [ "aeiou" member? not ] count ] collect-by >alist reverse

6 length-limit set 100 margin set .

Found 347 words with unique consonants (length > 10).
{
    { 9 V{ "comprehensible" } }
    { 8 V{ "administrable" "anthropology" "blameworthy" "bluestocking" "boustrophedon" ~34 more~ } }
    { 7 V{ "acknowledge" "algorithmic" "alphanumeric" "ambidextrous" "amphibology" ~125 more~ } }
    { 6 V{ "aboveground" "advantageous" "adventurous" "aerodynamic" "anglophobia" ~147 more~ } }
    { 5 V{ "acquisition" "acquisitive" "acrimonious" "ceremonious" "deleterious" ~17 more~ } }
    { 4 V{ "audiovisual" "bourgeoisie" "onomatopoeia" } }
}

FreeBASIC[edit]

function uniq_cons( s as string ) as integer
    dim letter( 1 to 26 ) as boolean
    dim as uinteger n, i
    dim as string*1 c
    for i = 1 to len(s)
        c = lcase(mid(s,i,1))
        if c = "a" or c = "e" or c = "i" or c = "o" or c = "u" then continue for
        if letter(asc(c)-97)=true then return 0
        letter(asc(c)-97)=true
        n+=1
    next i
    return n
end function

dim as string ln
dim as integer u

open "unixdict.txt" for input as #1
while not eof(1)
    line input #1, ln
    if len(ln)<11 then continue while
    u=uniq_cons(ln)
    if u>0 then print ln;":  ";u;" distint consonants"
wend

close #1

FutureBasic[edit]

#build WarnOfScopedVars NO

local fn Words as CFArrayRef
  CFURLRef    url    = fn URLWithString( @"http://wiki.puzzlers.org/pub/wordlists/unixdict.txt" )
  CFStringRef string = fn StringWithContentsOfURL( url, NSUTF8StringEncoding, NULL )
  CFArrayRef  array  = fn StringComponentsSeparatedByCharactersInSet( string, fn CharacterSetNewlineSet )
end fn = fn ArrayFilteredArrayUsingPredicate( array, fn PredicateWithFormat( @"self.length > %d", 10 ) )


local fn StringByDeletingCharactersInSet( inString as CFStringRef, set as CFCharacterSetRef ) as CFStringRef
  CFMutableStringRef outString = fn MutableStringWithCapacity(0)
  long               i, length = len(inString)
  
  for i = 0 to length - 1
    unichar c = fn StringCharacterAtIndex( inString, i )
    if ( fn CharacterSetCharacterIsMember( set, c ) == NO )
      MutableStringAppendFormat( outString, @"%C", c )
    end if
  next
end fn = outString


void local fn DoIt
  CFArrayRef        words    = fn Words
  CFCharacterSetRef vowelSet = fn CharacterSetWithCharactersInString( @"aeiou" )
  CFMutableArrayRef array    = fn MutableArrayWithCapacity(0)
  long              maxCons  = 0
  CFStringRef       wd
  
  for wd in words
    CFStringRef     wd2       = fn StringByDeletingCharactersInSet( wd, vowelSet )// remove vowels
    CFMutableSetRef mutSet    = fn MutableSetWithCapacity(0)
    long            i, length = len(wd2)
    
    for i = 0 to length - 1
      MutableSetAddObject( mutSet, mid(wd2,i,1) )
    next
    
    if ( length == len(mutSet) ) // if equal lengths, there are no duplicate consonants
      if ( length >= maxCons )
        if ( length > maxCons ) // more consonants in current word so clear array
          MutableArrayRemoveAllObjects( array )
          maxCons = length
        end if
        MutableArrayAddObject( array, wd )
      end if
    end if
  next
  
  print fn ArrayComponentsJoinedByString( array, @"n" )
end fn

fn DoIt

HandleEvents

comprehensible

Go[edit]

Translation of: Wren

package main

import (
    "bytes"
    "fmt"
    "io/ioutil"
    "log"
    "unicode/utf8"
)

func contains(list []int, value int) bool {
    for _, v := range list {
        if v == value {
            return true
        }
    }
    return false
}

func main() {
    wordList := "unixdict.txt"
    b, err := ioutil.ReadFile(wordList)
    if err != nil {
        log.Fatal("Error reading file")
    }
    bwords := bytes.Fields(b)
    var words []string
    for _, bword := range bwords {
        s := string(bword)
        if utf8.RuneCountInString(s) > 10 {
            words = append(words, s)
        }
    }
    vowelIndices := []int{0, 4, 8, 14, 20}
    wordGroups := make([][]string, 12)
    for _, word := range words {
        letters := make([]int, 26)
        for _, c := range word {
            index := c - 97
            if index >= 0 && index < 26 {
                letters[index]++
            }
        }
        eligible := true
        uc := 0 // number of unique consonants
        for i := 0; i < 26; i++ {
            if !contains(vowelIndices, i) {
                if letters[i] > 1 {
                    eligible = false
                    break
                } else if letters[i] == 1 {
                    uc++
                }
            }
        }
        if eligible {
            wordGroups[uc] = append(wordGroups[uc], word)
        }
    }

    for i := 11; i >= 0; i-- {
        count := len(wordGroups[i])
        if count > 0 {
            s := "s"
            if count == 1 {
                s = ""
            }
            fmt.Printf("%d word%s found with %d unique consonants:n", count, s, i)
            for j := 0; j < count; j++ {
                fmt.Printf("%-15s", wordGroups[i][j])
                if j > 0 && (j+1)%5 == 0 {
                    fmt.Println()
                }
            }
            fmt.Println()
            if count%5 != 0 {
                fmt.Println()
            }
        }
    }
}

Same as Wren example.

Haskell[edit]

{-# LANGUAGE LambdaCase #-}

-- Given a list of words on stdin, write to stdout the set of words having the
-- greatest number of distinct, English consonants.  In any given word, each
-- consonant may appear only once.  We consider Y to always be a consonant.

import Data.Bifunctor (first)
import Data.Char (toUpper)
import Data.Function (on)
import Data.List ((\), groupBy, intersect, nub, sortOn)
import Data.Ord (Down(..))

-- The consonants.
consonants :: String
consonants = cons ++ map toUpper cons
  where cons = ['a'..'z'] \ "aeiou"

-- Only the consonants in the argument.
onlyConsonants :: String -> String
onlyConsonants = (`intersect` consonants)

-- The list of all strings having the greatest number of distinct consonants.
mostDistinctConsonants :: [String] -> [String]
mostDistinctConsonants = map snd
                       . head'
                       . groupBy ((==) `on` fst)
                       . sortOn (Down . fst)
                       . map (first length)
                       . filter (allDistinct . fst)
                       . map (s -> (onlyConsonants s, s))
  where head' = case { [] -> []; (xs:_) -> xs; }
        allDistinct s = s == nub s

main :: IO ()
main = interact (unlines . mostDistinctConsonants . filter longEnough . words)
  where longEnough xs = length xs > 10

comprehensible

Or, in terms of Data.Set, choosing just one of various possible interpretations of an ambiguous task description.

import Data.Char (toLower)
import Data.Function (on)
import Data.List (groupBy, sortOn, (\))
import Data.Ord (Down (..))
import qualified Data.Set as S

-- WORDS USING LARGEST SUBSET OF GIVEN SET OF CHARACTERS -

uniqueGlyphCounts :: S.Set Char -> [String] -> [[(String, Int)]]
uniqueGlyphCounts glyphs ws =
  groupBy (on (==) snd) . sortOn (Down . snd) $
    ((,) <*> (S.size . S.intersection glyphs . S.fromList))
      <$> ws

--------------------------- TEST -------------------------
consonants :: S.Set Char
consonants =
  S.fromList $
    ((<>) <*> fmap toLower)
      (['A' .. 'Z'] \ "AEIOU")

main :: IO ()
main =
  readFile "unixdict.txt"
    >>= mapM_ (mapM_ print)
      . take 1
      . uniqueGlyphCounts consonants
      . lines

("bremsstrahlung",9)
("comprehensible",9)
("crystallographer",9)
("crystallography",9)
("electroencephalogram",9)
("electroencephalography",9)
("handicraftsman",9)
("handicraftsmen",9)
("immunoelectrophoresis",9)
("incomprehensible",9)
("knightsbridge",9)

or adjusting the test above to return only words which use no consonant twice:

main :: IO ()
main =
  readFile "unixdict.txt"
    >>= mapM_ (mapM_ print)
      . fmap (filter noConsonantTwice)
      . take 1
      . uniqueGlyphCounts consonants
      . lines

noConsonantTwice :: (String, Int) -> Bool
noConsonantTwice =
  uncurry
    ( (==)
        . length
        . filter (`S.member` consonants)
    )

("comprehensible",9)

J[edit]

   >(#~ [: (= >./) #@(~.#~ ~.-:])@-.&'aeiou'@>) cutLF fread'unixdict.txt'
comprehensible

JavaScript[edit]

For file IO, this version relies on the macOS ObjC classes exposed to JavaScript for Automation.

(() => {
    "use strict";

    // ----- WORDS USING LARGEST SETS OF CONSONANTS ------

    // uniqueGlyphCounts :: Int -> S.Set Char ->
    // [String] -> [[(String, Int)]]
    const uniqueGlyphCounts = n =>
        // Words of length greater than n, tupled with the
        // size of their subset of used glyphs, and grouped
        // accordingly – sorted by descending set size.
        glyphSet => ws => groupBy(
            on(a => b => a === b)(snd)
        )(
            sortBy(
                flip(comparing(snd))
            )(
                ws.flatMap(
                    w => n < w.length ? [[
                        w,
                        intersection(glyphSet)(
                            new Set([...w])
                        ).size
                    ]] : []
                )
            )
        );


    // noGlyphTwice :: Set Char -> (String, Int) -> Bool
    const noGlyphTwice = glyphs =>
        // True if the number of characters in the string
        // that are included in glyphs matches the
        // precalculated size of the set of glyphs used.
        sn => sn[1] === [...sn[0]]
            .filter(c => glyphs.has(c))
            .length;


    // ---------------------- TEST -----------------------
    // main :: IO ()
    const main = () => {
        const
            upperCs = (
                enumFromToChar("A")("Z")
            ).filter(c => !"AEIOU".includes(c)),
            consonants = new Set(
                [...upperCs, ...upperCs.map(toLower)]
            ),
            noRepetition = noGlyphTwice(consonants);

        return take(1)(
            uniqueGlyphCounts(10)(consonants)(
                readFile("unixdict.txt").split("n")
            )
        )[0].filter(noRepetition);
    };


    // --------------------- GENERIC ---------------------

    // Tuple (,) :: a -> b -> (a, b)
    const Tuple = a =>
    // A pair of values, possibly of
    // different types.
        b => ({
            type: "Tuple",
            "0": a,
            "1": b,
            length: 2,
            *[Symbol.iterator]() {
                for (const k in this) {
                    if (!isNaN(k)) {
                        yield this[k];
                    }
                }
            }
        });


    // comparing :: Ord a => (b -> a) -> b -> b -> Ordering
    const comparing = f =>
    // The ordering of f(x) and f(y) as a value
    // drawn from {-1, 0, 1}, representing {LT, EQ, GT}.
        x => y => {
            const
                a = f(x),
                b = f(y);

            return a < b ? -1 : (a > b ? 1 : 0);
        };


    // enumFromToChar :: Char -> Char -> [Char]
    const enumFromToChar = m =>
        n => {
            const [intM, intN] = [m, n].map(
                x => x.codePointAt(0)
            );

            return Array.from({
                length: Math.floor(intN - intM) + 1
            }, (_, i) => String.fromCodePoint(intM + i));
        };


    // flip :: (a -> b -> c) -> b -> a -> c
    const flip = op =>
    // The binary function op with
    // its arguments reversed.
        1 !== op.length ? (
            (a, b) => op(b, a)
        ) : (a => b => op(b)(a));


    // groupBy :: (a -> a -> Bool) -> [a] -> [[a]]
    const groupBy = eqOp =>
    // A list of lists, each containing only elements
    // equal under the given equality operator,
    // such that the concatenation of these lists is xs.
        xs => Boolean(xs.length) ? (() => {
            const [h, ...t] = xs;
            const [groups, g] = t.reduce(
                ([gs, a], x) => eqOp(x)(a[0]) ? (
                    Tuple(gs)([...a, x])
                ) : Tuple([...gs, a])([x]),
                Tuple([])([h])
            );

            return [...groups, g];
        })() : [];


    // intersection :: Set -> Set -> Set
    const intersection = a =>
    // The intersection of two sets.
        b => new Set([...a].filter(i => b.has(i)));


    // on :: (b -> b -> c) -> (a -> b) -> a -> a -> c
    const on = f =>
    // e.g. groupBy(on(eq)(length))
        g => a => b => f(g(a))(g(b));


    // readFile :: FilePath -> IO String
    const readFile = fp => {
    // The contents of a text file at the
    // given file path.
        const
            e = $(),
            ns = $.NSString
                .stringWithContentsOfFileEncodingError(
                    $(fp).stringByStandardizingPath,
                    $.NSUTF8StringEncoding,
                    e
                );

        return ObjC.unwrap(
            ns.isNil() ? (
                e.localizedDescription
            ) : ns
        );
    };


    // snd :: (a, b) -> b
    const snd = tpl =>
    // Second member of a pair.
        tpl[1];


    // sortBy :: (a -> a -> Ordering) -> [a] -> [a]
    const sortBy = f =>
    // A copy of xs sorted by the comparator function f.
        xs => xs.slice()
            .sort((a, b) => f(a)(b));


    // take :: Int -> [a] -> [a]
    // take :: Int -> String -> String
    const take = n =>
    // The first n elements of a list,
    // string of characters, or stream.
        xs => "GeneratorFunction" !== xs
            .constructor.constructor.name ? (
                xs.slice(0, n)
            ) : Array.from({
                length: n
            }, () => {
                const x = xs.next();

                return x.done ? [] : [x.value];
            }).flat();


    // toLower :: String -> String
    const toLower = s =>
    // Lower-case version of string.
        s.toLocaleLowerCase();


    // MAIN ---
    return JSON.stringify(main());
})();

[["comprehensible",9]]

jq[edit]

Works with: jq

Works with gojq, the Go implementation of jq

In this entry, two subtasks are considered:

(a) determine the eligible words with the maximal number of consonants;

(b) group the eligible words by the number of consonants, and show these groups if the number of consonants is greater than 7.

Preliminaries

# "bag of words"
def bow(stream): 
  reduce stream as $word ({}; .[($word|tostring)] += 1);

# Given an array of values as input, generate a stream of values of the maximal elements as determined by f.
# Notes:
# 1. If the input is [] then the output stream is empty.
# 2. If f evaluates to null for all the input elements, then the output stream will be the stream of all the input items.
def maximal_by(f):
  (map(f) | max) as $mx
  | .[] | select(f == $mx);

def consonants: gsub("[aeiou]";"");

def letters_are_distinct:
  bow(explode[])
  | all(.[]; . == 1);

The Tasks

def tasks:

  def taskA:
    maximal_by(.[1]) | .[0];
    
  def taskB:
    map(select(.[1]|length > 7))
    | group_by(.[1])
    | map( .[0][1] as $m | [$m, map(.[0])] )
    | .[]
    | if .[1]|length==1 
      then "nThe eligible word with (.[0]) consonants is:"
      else "nThe eligible words with (.[0]) consonants are:"
      end,
      .[1] ;

  [inputs
   | select(length>10)
   | consonants as $c
   | select($c | letters_are_distinct)
   | [., ($c|length)] ]
  | ("Eligible words with the maximal number of consonants:",
     taskA,
     taskB) ;

tasks

Invocation example: jq -nRrM program.jq unixdict.txt

Eligible words with the maximal number of consonants:
comprehensible

The eligible words with 8 consonants are:
["administrable","anthropology","blameworthy","bluestocking","boustrophedon","bricklaying","chemisorption","christendom","claustrophobia","compensatory","comprehensive","counterexample","demonstrable","disciplinary","discriminable","geochemistry","hypertensive","indecipherable","indecomposable","indiscoverable","lexicography","manslaughter","misanthropic","mockingbird","monkeyflower","neuropathology","paralinguistic","pharmacology","pitchblende","playwriting","shipbuilding","shortcoming","springfield","stenography","stockholder","switchblade","switchboard","switzerland","thunderclap"]

The eligible word with 9 consonants is:
["comprehensible"]

Julia[edit]

Translation of: Phix

consonant(ch) = !(ch in ['a', 'e', 'i', 'o', 'u'])
singlec(consonants) = length(unique(consonants)) == length(consonants)
over10sc(word) = length(word) > 10 && singlec(filter(consonant, word))
mostc(word) = [-length(filter(consonant, word)), word]
const res = sort(map(mostc, filter(over10sc, split(read("unixdict.txt", String), r"s+"))))
println(length(res), " words found.nnWord        Consonantsn----------------------")
foreach(a -> println(rpad(a[2], 16), -a[1]), res)

347 words found.

Word        Consonants
----------------------
comprehensible  9
administrable   8
anthropology    8
blameworthy     8
bluestocking    8
boustrophedon   8
bricklaying     8
chemisorption   8
christendom     8
claustrophobia  8
compensatory    8
comprehensive   8
counterexample  8

-- multiple lines deleted --

audiovisual     4
bourgeoisie     4
onomatopoeia    4

Mathematica/Wolfram Language[edit]

consonants = DeleteCases[Alphabet[], Alternatives @@ Characters["euioa"]];
dict = Once[Import["https://web.archive.org/web/20180611003215/http://www.puzzlers.org/pub/wordlists/unixdict.txt"]];
dict //= StringSplit[#, "n"] &;
dict //= Select[StringLength /* GreaterThan[10]];
dict = {#, Select[Characters[#], MemberQ[consonants, #] &]} & /@ dict;
dict //= Select[Last /* DuplicateFreeQ];
SortBy[GatherBy[dict, Last /* Length], First /* Last /* Length][[All, All, 1]] // Column

{audiovisual,bourgeoisie,onomatopoeia}

{acquisition,acquisitive,acrimonious,ceremonious,deleterious,diatomaceous,egalitarian,equilibrate,equilibrium,equinoctial,expeditious,hereinabove,homogeneous,inequitable,injudicious,inoperative,inquisitive,interviewee,leeuwenhoek,onomatopoeic,radioactive,requisition}

{aboveground,advantageous,adventurous,aerodynamic,anglophobia,anisotropic,archipelago,automorphic,baltimorean,beneficiary,borosilicate,cabinetmake,californium,codetermine,coextensive,comparative,compilation,composition,confabulate,confederate,considerate,consolidate,counterpoise,countervail,decisionmake,declamation,declaration,declarative,deemphasize,deformation,deliverance,demountable,denumerable,deoxyribose,depreciable,deprivation,destabilize,diagnosable,diamagnetic,dichotomize,dichotomous,disambiguate,eigenvector,elizabethan,encapsulate,enforceable,ephemerides,epidemiology,evolutionary,exceptional,exclamation,exercisable,exhaustible,exoskeleton,expenditure,experiential,exploration,fluorescein,geometrician,hemosiderin,hereinbelow,hermeneutic,heterogamous,heterogeneous,heterosexual,hexadecimal,hexafluoride,homebuilder,homogeneity,housebroken,icosahedral,icosahedron,impersonate,imprecision,improvisate,inadvisable,increasable,incredulous,indivisible,indomitable,ineradicable,inescapable,inestimable,inexcusable,infelicitous,informatica,informative,inseparable,insuperable,ionospheric,justiciable,kaleidescope,kaleidoscope,legerdemain,liquefaction,loudspeaker,machinelike,magisterial,maladaptive,mantlepiece,manufacture,masterpiece,meetinghouse,meteorology,minesweeper,ministerial,multifarious,musculature,observation,patrimonial,peasanthood,pediatrician,persecution,pertinacious,picturesque,planetarium,pleistocene,pomegranate,predominate,prejudicial,prohibition,prohibitive,prolegomena,prosecution,provisional,provocation,publication,quasiperiodic,reclamation,religiosity,renegotiable,residential,rooseveltian,safekeeping,saloonkeeper,serviceable,speedometer,subrogation,sulfonamide,superficial,superlative,teaspoonful,trapezoidal,tridiagonal,troublesome,vainglorious,valediction,venturesome,vermiculite,vocabularian,warehouseman,wisenheimer}

{acknowledge,algorithmic,alphanumeric,ambidextrous,amphibology,anchoritism,atmospheric,autobiography,bakersfield,bartholomew,bidirectional,bloodstream,boardinghouse,cartilaginous,centrifugal,chamberlain,charlemagne,clairvoyant,combinatorial,compensable,complaisant,conflagrate,conglomerate,conquistador,consumptive,convertible,cosmopolitan,counterflow,countryside,countrywide,declamatory,decomposable,decomposition,deliquescent,description,descriptive,dilogarithm,discernible,discriminate,disturbance,documentary,earthmoving,encephalitis,endothermic,epistemology,everlasting,exchangeable,exclamatory,exclusionary,exculpatory,explanatory,extemporaneous,extravaganza,filamentary,fluorescent,galvanometer,geophysical,glycerinate,groundskeep,herpetology,heterozygous,homebuilding,honeysuckle,hydrogenate,hyperboloid,impenetrable,imperceivable,imperishable,imponderable,impregnable,improvident,improvisation,incomparable,incompatible,incomputable,incredulity,indefatigable,indigestible,indisputable,inexhaustible,inextricable,inhospitable,inscrutable,jurisdiction,lawbreaking,leatherback,leatherneck,leavenworth,logarithmic,loudspeaking,maidservant,malnourished,marketplace,merchandise,methodology,misanthrope,mitochondria,molybdenite,nearsighted,obfuscatory,oceanography,palindromic,paradigmatic,paramagnetic,perfectible,phraseology,politicking,predicament,presidential,problematic,proclamation,promiscuity,providential,purchasable,pythagorean,quasiparticle,quicksilver,radiotelephone,sedimentary,selfadjoint,serendipity,sovereignty,subjunctive,superfluity,terminology,valedictorian,valedictory,verisimilitude,vigilantism,voluntarism}
{administrable,anthropology,blameworthy,bluestocking,boustrophedon,bricklaying,chemisorption,christendom,claustrophobia,compensatory,comprehensive,counterexample,demonstrable,disciplinary,discriminable,geochemistry,hypertensive,indecipherable,indecomposable,indiscoverable,lexicography,manslaughter,misanthropic,mockingbird,monkeyflower,neuropathology,paralinguistic,pharmacology,pitchblende,playwriting,shipbuilding,shortcoming,springfield,stenography,stockholder,switchblade,switchboard,switzerland,thunderclap}

{comprehensible}

Nim[edit]

import strformat, strutils, tables

const Vowels = {'a', 'e', 'i', 'o', 'u'}

template plural(n: int): string = (if n > 1: "s" else: "")

var results: array[0..9, seq[string]]

for word in "unixdict.txt".lines:
  if word.len <= 10: continue

  block checkWord:
    let letterCounts = word.toCountTable
    var consonantCount = 0
    for key, count in letterCounts.pairs:
      if key notin Vowels:
        if count > 1: break checkWord
        if count == 1: inc consonantCount
    results[consonantCount].add word

for n in countdown(9, 4):
  let count = results[n].len
  echo &"nFound {count} word{plural(count)} with {n} unique consonants:"
  for i, word in results[n]:
    stdout.write word.align(14), if (i + 1) mod 9 == 0: 'n' else: ' '
  echo()

Found 1 word with 9 unique consonants:
comprehensible 

Found 39 words with 8 unique consonants:
 administrable   anthropology    blameworthy   bluestocking  boustrophedon    bricklaying  chemisorption    christendom claustrophobia
  compensatory  comprehensive counterexample   demonstrable   disciplinary  discriminable   geochemistry   hypertensive indecipherable
indecomposable indiscoverable   lexicography   manslaughter   misanthropic    mockingbird   monkeyflower neuropathology paralinguistic
  pharmacology    pitchblende    playwriting   shipbuilding    shortcoming    springfield    stenography    stockholder    switchblade
   switchboard    switzerland    thunderclap 

Found 130 words with 7 unique consonants:
   acknowledge    algorithmic   alphanumeric   ambidextrous    amphibology    anchoritism    atmospheric  autobiography    bakersfield
   bartholomew  bidirectional    bloodstream  boardinghouse  cartilaginous    centrifugal    chamberlain    charlemagne    clairvoyant
 combinatorial    compensable    complaisant    conflagrate   conglomerate   conquistador    consumptive    convertible   cosmopolitan
   counterflow    countryside    countrywide    declamatory   decomposable  decomposition   deliquescent    description    descriptive
   dilogarithm    discernible   discriminate    disturbance    documentary    earthmoving   encephalitis    endothermic   epistemology
   everlasting   exchangeable    exclamatory   exclusionary    exculpatory    explanatory extemporaneous   extravaganza    filamentary
   fluorescent   galvanometer    geophysical    glycerinate    groundskeep    herpetology   heterozygous   homebuilding    honeysuckle
   hydrogenate    hyperboloid   impenetrable  imperceivable   imperishable   imponderable    impregnable    improvident  improvisation
  incomparable   incompatible   incomputable    incredulity  indefatigable   indigestible   indisputable  inexhaustible   inextricable
  inhospitable    inscrutable   jurisdiction    lawbreaking    leatherback    leatherneck    leavenworth    logarithmic   loudspeaking
   maidservant   malnourished    marketplace    merchandise    methodology    misanthrope   mitochondria    molybdenite    nearsighted
   obfuscatory   oceanography    palindromic   paradigmatic   paramagnetic    perfectible    phraseology    politicking    predicament
  presidential    problematic   proclamation    promiscuity   providential    purchasable    pythagorean  quasiparticle    quicksilver
radiotelephone    sedimentary    selfadjoint    serendipity    sovereignty    subjunctive    superfluity    terminology  valedictorian
   valedictory verisimilitude    vigilantism    voluntarism 

Found 152 words with 6 unique consonants:
   aboveground   advantageous    adventurous    aerodynamic    anglophobia    anisotropic    archipelago    automorphic    baltimorean
   beneficiary   borosilicate    cabinetmake    californium    codetermine    coextensive    comparative    compilation    composition
   confabulate    confederate    considerate    consolidate   counterpoise    countervail   decisionmake    declamation    declaration
   declarative    deemphasize    deformation    deliverance    demountable    denumerable    deoxyribose    depreciable    deprivation
   destabilize    diagnosable    diamagnetic    dichotomize    dichotomous   disambiguate    eigenvector    elizabethan    encapsulate
   enforceable    ephemerides   epidemiology   evolutionary    exceptional    exclamation    exercisable    exhaustible    exoskeleton
   expenditure   experiential    exploration    fluorescein   geometrician    hemosiderin    hereinbelow    hermeneutic   heterogamous
 heterogeneous   heterosexual    hexadecimal   hexafluoride    homebuilder    homogeneity    housebroken    icosahedral    icosahedron
   impersonate    imprecision    improvisate    inadvisable    increasable    incredulous    indivisible    indomitable   ineradicable
   inescapable    inestimable    inexcusable   infelicitous    informatica    informative    inseparable    insuperable    ionospheric
   justiciable   kaleidescope   kaleidoscope    legerdemain   liquefaction    loudspeaker    machinelike    magisterial    maladaptive
   mantlepiece    manufacture    masterpiece   meetinghouse    meteorology    minesweeper    ministerial   multifarious    musculature
   observation    patrimonial    peasanthood   pediatrician    persecution   pertinacious    picturesque    planetarium    pleistocene
   pomegranate    predominate    prejudicial    prohibition    prohibitive    prolegomena    prosecution    provisional    provocation
   publication  quasiperiodic    reclamation    religiosity   renegotiable    residential   rooseveltian    safekeeping   saloonkeeper
   serviceable    speedometer    subrogation    sulfonamide    superficial    superlative    teaspoonful    trapezoidal    tridiagonal
   troublesome   vainglorious    valediction    venturesome    vermiculite   vocabularian   warehouseman    wisenheimer 

Found 22 words with 5 unique consonants:
   acquisition    acquisitive    acrimonious    ceremonious    deleterious   diatomaceous    egalitarian    equilibrate    equilibrium
   equinoctial    expeditious    hereinabove    homogeneous    inequitable    injudicious    inoperative    inquisitive    interviewee
   leeuwenhoek   onomatopoeic    radioactive    requisition 

Found 3 words with 4 unique consonants:
   audiovisual    bourgeoisie   onomatopoeia 

Perl[edit]

#!/usr/bin/perl

use strict; # https://rosettacode.org/wiki/Find_words_which_contains_most_consonants
use warnings;

my @most;
@ARGV = 'unixdict.txt';
length > 11 and !/([^aeiou]).*1/ and $most[ tr/aeioun//c ] .= $_ while <>;
$most[$_] and printf "%d Unique consonants, word count: %dnn%snn",
  $_, $most[ $_ ] =~ tr/n//, $most[ $_ ] =~ tr/n/ /r =~ s/.{66}K /n/gr
  for reverse 0 .. $#most;

9 Unique consonants, word count: 1

comprehensible 

8 Unique consonants, word count: 39

administrable anthropology blameworthy bluestocking boustrophedon bricklaying
chemisorption christendom claustrophobia compensatory comprehensive
counterexample demonstrable disciplinary discriminable geochemistry
hypertensive indecipherable indecomposable indiscoverable lexicography
manslaughter misanthropic mockingbird monkeyflower neuropathology paralinguistic
pharmacology pitchblende playwriting shipbuilding shortcoming springfield
stenography stockholder switchblade switchboard switzerland thunderclap


7 Unique consonants, word count: 130

acknowledge algorithmic alphanumeric ambidextrous amphibology anchoritism
atmospheric autobiography bakersfield bartholomew bidirectional bloodstream
boardinghouse cartilaginous centrifugal chamberlain charlemagne clairvoyant
combinatorial compensable complaisant conflagrate conglomerate conquistador
consumptive convertible cosmopolitan counterflow countryside countrywide
declamatory decomposable decomposition deliquescent description descriptive
dilogarithm discernible discriminate disturbance documentary earthmoving
encephalitis endothermic epistemology everlasting exchangeable exclamatory
exclusionary exculpatory explanatory extemporaneous extravaganza filamentary
fluorescent galvanometer geophysical glycerinate groundskeep herpetology
heterozygous homebuilding honeysuckle hydrogenate hyperboloid impenetrable
imperceivable imperishable imponderable impregnable improvident improvisation
incomparable incompatible incomputable incredulity indefatigable indigestible
indisputable inexhaustible inextricable inhospitable inscrutable jurisdiction
lawbreaking leatherback leatherneck leavenworth logarithmic loudspeaking
maidservant malnourished marketplace merchandise methodology misanthrope
mitochondria molybdenite nearsighted obfuscatory oceanography palindromic
paradigmatic paramagnetic perfectible phraseology politicking predicament
presidential problematic proclamation promiscuity providential purchasable
pythagorean quasiparticle quicksilver radiotelephone sedimentary selfadjoint
serendipity sovereignty subjunctive superfluity terminology valedictorian
valedictory verisimilitude vigilantism voluntarism 

6 Unique consonants, word count: 152

aboveground advantageous adventurous aerodynamic anglophobia anisotropic
archipelago automorphic baltimorean beneficiary borosilicate cabinetmake
californium codetermine coextensive comparative compilation composition
confabulate confederate considerate consolidate counterpoise countervail
decisionmake declamation declaration declarative deemphasize deformation
deliverance demountable denumerable deoxyribose depreciable deprivation
destabilize diagnosable diamagnetic dichotomize dichotomous disambiguate
eigenvector elizabethan encapsulate enforceable ephemerides epidemiology
evolutionary exceptional exclamation exercisable exhaustible exoskeleton
expenditure experiential exploration fluorescein geometrician hemosiderin
hereinbelow hermeneutic heterogamous heterogeneous heterosexual hexadecimal
hexafluoride homebuilder homogeneity housebroken icosahedral icosahedron
impersonate imprecision improvisate inadvisable increasable incredulous
indivisible indomitable ineradicable inescapable inestimable inexcusable
infelicitous informatica informative inseparable insuperable ionospheric
justiciable kaleidescope kaleidoscope legerdemain liquefaction loudspeaker
machinelike magisterial maladaptive mantlepiece manufacture masterpiece
meetinghouse meteorology minesweeper ministerial multifarious musculature
observation patrimonial peasanthood pediatrician persecution pertinacious
picturesque planetarium pleistocene pomegranate predominate prejudicial
prohibition prohibitive prolegomena prosecution provisional provocation
publication quasiperiodic reclamation religiosity renegotiable residential
rooseveltian safekeeping saloonkeeper serviceable speedometer subrogation
sulfonamide superficial superlative teaspoonful trapezoidal tridiagonal
troublesome vainglorious valediction venturesome vermiculite vocabularian
warehouseman wisenheimer 

5 Unique consonants, word count: 22

acquisition acquisitive acrimonious ceremonious deleterious diatomaceous
egalitarian equilibrate equilibrium equinoctial expeditious hereinabove
homogeneous inequitable injudicious inoperative inquisitive interviewee
leeuwenhoek onomatopoeic radioactive requisition 

4 Unique consonants, word count: 3

audiovisual bourgeoisie onomatopoeia

Phix[edit]

with javascript_semantics
function consonant(integer ch) return find(ch,"aeiou")=0 end function
function singlec(string consonants) return length(unique(consonants))=length(consonants) end function
function over10sc(string word) return length(word)>10 and singlec(filter(word,consonant)) end function
function mostc(string word) return {length(filter(word,consonant)),word} end function
sequence res = sort_columns(apply(filter(unix_dict(),over10sc),mostc),{-1,2})
printf(1,"%d most consonant words: %vn",{length(res),shorten(res,"",2)})

It does not escape me that the use of lambda expressions would make this slightly easier to write but much harder to comprehend…
Admittedly adding a dozen or so line breaks to the above might (actually) improve matters, but I’m sure you’ll cope somehow.

347 most consonant words: {{9,"comprehensible"},{8,"administrable"},"...",{4,"bourgeoisie"},{4,"onomatopoeia"}}

Python[edit]

«Use Python,» they say, «it’s comprehensible,» they say.

print('n'.join((f'{x[0]}: {" ".join(sorted(x[1]))}' if len(x[1]) < 30 else f'{x[0]}: {len(x[1])} words' for x in
      (x for x in ((n, [x[1] for x in l if x[0] == n]) for n in range(maxlen, -1, -1)) if x[1]))) if (maxlen := max(l := [(len(c), w)
      for w in [l for l in [l.rstrip() for l in open('unixdict.txt')] if len(l) > 10 and all(c >= 'a' and c <= 'z' for c in l)]
      if sorted(c := w.replace('a', '').replace('e', '').replace('i', '').replace('o', '').replace('u', '')) == sorted(set(c))])[0]) else None)

9: comprehensible
8: 39 words
7: 130 words
6: 152 words
5: acquisition acquisitive ...<snip>... onomatopoeic radioactive requisition
4: audiovisual bourgeoisie onomatopoeia

The above is roughly equivalent to the following:

import re
from collections import defaultdict

with open('unixdict.txt') as f:
    lines = [l.rstrip() for l in f] # all lines of text without newline

# keep only lines that's long enough and has no non-letters
words = [w for w in lines if len(w) > 10 and not re.match(r'[^a-z]', w)]

good = defaultdict(list)
for word in words:
    # take all consonants in word
    c = re.sub(r'[aeiou]', '', word)

    # check if there are duplicates
    if sorted(c) == sorted(set(c)):
        good[len(c)].append(word)

for k, v in sorted(good.items(), reverse=True):
    if len(v) > 30:
        print(f'{k}: {len(v)} words')
    else:
        print(f'{k}:', ' '.join(sorted(v)))

Or, aiming for some degree of legibility, and showing results for two of the possible interpretations of an ambiguous task description:

'''Words using largest sets of consonants'''

from itertools import groupby
from os.path import expanduser
from string import ascii_letters


# uniqueGlyphCounts :: Set Char -> [String] -> [[(String, Int)]]
def uniqueGlyphCounts(glyphs):
    '''The words in a given list ordered and grouped by,
       the descending number of unique consonants which
       they contain, each word tupled with that number.
    '''
    def go(ws):
        return [
            list(snd(ab)) for ab in groupby(
                sorted(
                    [
                        (
                            w,
                            len(set(w).intersection(glyphs))
                        )
                        for w in ws
                    ],
                    key=snd,
                    reverse=True
                ),
                key=snd
            )
        ]

    return go


# noGlyphRepeated :: Set Char -> (String, Int) -> Bool
def noGlyphRepeated(glyphs):
    '''True if the string in a given (String, Int)
       tuple contains no multiple uses of any of
       the given set of glyphs.
    '''
    def go(sn):
        s, n = sn
        return n == len([c for c in s if c in glyphs])

    return go


# ------------------------- TEST -------------------------
# main :: IO ()
def main():
    '''Words drawn from a given list which use the largest
       set of consonants, and contain no repeated consonants.
    '''

    consonants = set(ascii_letters).difference(
        set("AEIOUaeiou")
    )

    largestConsonantSet = uniqueGlyphCounts(consonants)(
        readFile("unixdict.txt").splitlines()
    )[0]

    noConsonantsReused = noGlyphRepeated(consonants)

    print("Words using largest sets of unique consonants:")
    for x in largestConsonantSet:
        print(x)

    print("nExcluding words which reuse any consonants:")
    for sn in largestConsonantSet:
        if noConsonantsReused(sn):
            print(sn)


# ----------------------- GENERIC ------------------------

# readFile :: FilePath -> IO String
def readFile(fp):
    '''The contents of any file at the path
       derived by expanding any ~ in fp.
    '''
    with open(expanduser(fp), 'r', encoding='utf-8') as f:
        return f.read()


# snd :: (a, b) -> b
def snd(tpl):
    '''Second member of a pair.'''
    return tpl[1]


# MAIN ---
if __name__ == '__main__':
    main()

Words using largest sets of unique consonants:
('bremsstrahlung', 9)
('comprehensible', 9)
('crystallographer', 9)
('crystallography', 9)
('electroencephalogram', 9)
('electroencephalography', 9)
('handicraftsman', 9)
('handicraftsmen', 9)
('immunoelectrophoresis', 9)
('incomprehensible', 9)
('knightsbridge', 9)

Excluding words which reuse any consonants:
('comprehensible', 9)

Using generator functions[edit]

"""Find words which contain the most consonants. Requires Python >= 3.7."""
import fileinput
import textwrap

from itertools import groupby
from operator import itemgetter

from typing import Iterable
from typing import List
from typing import Tuple


VOWELS = frozenset("aeiou")


def read_words(path: str, encoding="utf-8") -> Iterable[str]:
    for line in fileinput.input(path, encoding=encoding):
        yield line.strip().lower()


def filter_words(words: Iterable[str]) -> Iterable[Tuple[str, int]]:
    for word in words:
        if len(word) <= 10:
            continue

        consonants = [c for c in word if c not in VOWELS]
        if len(consonants) != len(set(consonants)):
            continue

        yield word, len(consonants)


def group_words(words: Iterable[Tuple[str, int]]) -> Iterable[Tuple[int, List[str]]]:
    for count, group in groupby(
        sorted(words, key=itemgetter(1), reverse=True),
        key=itemgetter(1),
    ):
        yield count, [word for word, _ in group]


def main() -> None:
    all_words = read_words("unixdict.txt")
    words = filter_words(all_words)

    for count, word_group in group_words(words):
        pretty_words = "n".join(
            textwrap.wrap(" ".join(word_group)),
        )
        plural = "s" if count > 1 else ""
        print(
            f"Found {len(word_group)} word{plural} "
            f"with {count} unique consonants:n{pretty_words}n"
        )


if __name__ == "__main__":
    main()

Found 1 word with 9 unique consonants:
comprehensible

Found 39 words with 8 unique consonants:
administrable anthropology blameworthy bluestocking boustrophedon
bricklaying chemisorption christendom claustrophobia compensatory
comprehensive counterexample demonstrable disciplinary discriminable
geochemistry hypertensive indecipherable indecomposable indiscoverable
lexicography manslaughter misanthropic mockingbird monkeyflower
neuropathology paralinguistic pharmacology pitchblende playwriting
shipbuilding shortcoming springfield stenography stockholder
switchblade switchboard switzerland thunderclap

Found 130 words with 7 unique consonants:
acknowledge algorithmic alphanumeric ambidextrous amphibology
anchoritism atmospheric autobiography bakersfield bartholomew
bidirectional bloodstream boardinghouse cartilaginous centrifugal
chamberlain charlemagne clairvoyant combinatorial compensable
complaisant conflagrate conglomerate conquistador consumptive
convertible cosmopolitan counterflow countryside countrywide
declamatory decomposable decomposition deliquescent description
descriptive dilogarithm discernible discriminate disturbance
documentary earthmoving encephalitis endothermic epistemology
everlasting exchangeable exclamatory exclusionary exculpatory
explanatory extemporaneous extravaganza filamentary fluorescent
galvanometer geophysical glycerinate groundskeep herpetology
heterozygous homebuilding honeysuckle hydrogenate hyperboloid
impenetrable imperceivable imperishable imponderable impregnable
improvident improvisation incomparable incompatible incomputable
incredulity indefatigable indigestible indisputable inexhaustible
inextricable inhospitable inscrutable jurisdiction lawbreaking
leatherback leatherneck leavenworth logarithmic loudspeaking
maidservant malnourished marketplace merchandise methodology
misanthrope mitochondria molybdenite nearsighted obfuscatory
oceanography palindromic paradigmatic paramagnetic perfectible
phraseology politicking predicament presidential problematic
proclamation promiscuity providential purchasable pythagorean
quasiparticle quicksilver radiotelephone sedimentary selfadjoint
serendipity sovereignty subjunctive superfluity terminology
valedictorian valedictory verisimilitude vigilantism voluntarism

Found 152 words with 6 unique consonants:
aboveground advantageous adventurous aerodynamic anglophobia
anisotropic archipelago automorphic baltimorean beneficiary
borosilicate cabinetmake californium codetermine coextensive
comparative compilation composition confabulate confederate
considerate consolidate counterpoise countervail decisionmake
declamation declaration declarative deemphasize deformation
deliverance demountable denumerable deoxyribose depreciable
deprivation destabilize diagnosable diamagnetic dichotomize
dichotomous disambiguate eigenvector elizabethan encapsulate
enforceable ephemerides epidemiology evolutionary exceptional
exclamation exercisable exhaustible exoskeleton expenditure
experiential exploration fluorescein geometrician hemosiderin
hereinbelow hermeneutic heterogamous heterogeneous heterosexual
hexadecimal hexafluoride homebuilder homogeneity housebroken
icosahedral icosahedron impersonate imprecision improvisate
inadvisable increasable incredulous indivisible indomitable
ineradicable inescapable inestimable inexcusable infelicitous
informatica informative inseparable insuperable ionospheric
justiciable kaleidescope kaleidoscope legerdemain liquefaction
loudspeaker machinelike magisterial maladaptive mantlepiece
manufacture masterpiece meetinghouse meteorology minesweeper
ministerial multifarious musculature observation patrimonial
peasanthood pediatrician persecution pertinacious picturesque
planetarium pleistocene pomegranate predominate prejudicial
prohibition prohibitive prolegomena prosecution provisional
provocation publication quasiperiodic reclamation religiosity
renegotiable residential rooseveltian safekeeping saloonkeeper
serviceable speedometer subrogation sulfonamide superficial
superlative teaspoonful trapezoidal tridiagonal troublesome
vainglorious valediction venturesome vermiculite vocabularian
warehouseman wisenheimer

Found 22 words with 5 unique consonants:
acquisition acquisitive acrimonious ceremonious deleterious
diatomaceous egalitarian equilibrate equilibrium equinoctial
expeditious hereinabove homogeneous inequitable injudicious
inoperative inquisitive interviewee leeuwenhoek onomatopoeic
radioactive requisition

Found 3 words with 4 unique consonants:
audiovisual bourgeoisie onomatopoeia

R[edit]

Far and away the hardest part of this task is filtering down the dict until it only contains words with no repeated consonants. If we only had to find the word with the most consonants, this would be easy.

dict <- scan("https://web.archive.org/web/20180611003215/http://www.puzzlers.org/pub/wordlists/unixdict.txt", what = character())
dictBig <- dict[nchar(dict) > 10]
consonants <- letters[!letters %in% c("a", "e", "i", "o", "u")]
#The following line is equivalent to sapply(consonants, function(x) stringr::str_count(dictBig, x))
#As with all things with strings in R, life is easier with stringr or stringi.
consonantCount <- sapply(consonants, function(x) lengths(regmatches(dictBig, gregexec(x, dictBig))))
wordsWithNoRepeatedConsts <- dictBig[apply(consonantCount, MARGIN = 1, function(x) all(x <= 1))]
uniqueConstCount <- rowSums(sapply(consonants, function(x) grepl(x, wordsWithNoRepeatedConsts)))
biggestWords <- function(offset) wordsWithNoRepeatedConsts[which(uniqueConstCount == max(uniqueConstCount) - offset)]
cat("Biggest:", paste(biggestWords(0), collapse = ", "),
    "n n Second biggest:", paste(biggestWords(1), collapse = ", "),
    "n n Third biggest:", paste(biggestWords(2), collapse = ", "))

Read 25104 items
Biggest: comprehensible 
 
 Second biggest: administrable, anthropology, blameworthy, bluestocking, boustrophedon, bricklaying, chemisorption, christendom, claustrophobia, compensatory, comprehensive, counterexample, demonstrable, disciplinary, discriminable, geochemistry, hypertensive, indecipherable, indecomposable, indiscoverable, lexicography, manslaughter, misanthropic, mockingbird, monkeyflower, neuropathology, paralinguistic, pharmacology, pitchblende, playwriting, shipbuilding, shortcoming, springfield, stenography, stockholder, switchblade, switchboard, switzerland, thunderclap 
 
 Third biggest: acknowledge, algorithmic, alphanumeric, ambidextrous, amphibology, anchoritism, atmospheric, autobiography, bakersfield, bartholomew, bidirectional, bloodstream, boardinghouse, cartilaginous, centrifugal, chamberlain, charlemagne, clairvoyant, combinatorial, compensable, complaisant, conflagrate, conglomerate, conquistador, consumptive, convertible, cosmopolitan, counterflow, countryside, countrywide, declamatory, decomposable, decomposition, deliquescent, description, descriptive, dilogarithm, discernible, discriminate, disturbance, documentary, earthmoving, encephalitis, endothermic, epistemology, everlasting, exchangeable, exclamatory, exclusionary, exculpatory, explanatory, extemporaneous, extravaganza, filamentary, fluorescent, galvanometer, geophysical, glycerinate, groundskeep, herpetology, heterozygous, homebuilding, honeysuckle, hydrogenate, hyperboloid, impenetrable, imperceivable, imperishable, imponderable, impregnable, improvident, improvisation, incomparable, incompatible, incomputable, incredulity, indefatigable, indigestible, indisputable, inexhaustible, inextricable, inhospitable, inscrutable, jurisdiction, lawbreaking, leatherback, leatherneck, leavenworth, logarithmic, loudspeaking, maidservant, malnourished, marketplace, merchandise, methodology, misanthrope, mitochondria, molybdenite, nearsighted, obfuscatory, oceanography, palindromic, paradigmatic, paramagnetic, perfectible, phraseology, politicking, predicament, presidential, problematic, proclamation, promiscuity, providential, purchasable, pythagorean, quasiparticle, quicksilver, radiotelephone, sedimentary, selfadjoint, serendipity, sovereignty, subjunctive, superfluity, terminology, valedictorian, valedictory, verisimilitude, vigilantism, voluntarism

Racket[edit]

#lang racket

(define (consonant-count s)
  (set-count (set-subtract (list->set (string->list s))
                           (set #a #e #i #o #u))))

(define words-by-consonant-count
  (group-by consonant-count (file->lines "../../data/unixdict.txt")))

(module+ main
  (define group-count (compose consonant-count first))
  (define group-with-max-consonant-count
    (argmax group-count words-by-consonant-count))
  (displayln "Group with gratest consonant count:")
  group-with-max-consonant-count
  (printf "with: ~a consonants in each word"
          (group-count group-with-max-consonant-count)))

Group with gratest consonant count:
'("bremsstrahlung" "comprehensible" "crystallographer" "crystallography" "electroencephalogram" "electroencephalography" "handicraftsman" "handicraftsmen" "immunoelectrophoresis" "incomprehensible" "knightsbridge")
with: 9 consonants in each word

Raku[edit]

Hmm. Depends on how you define «most».

unit sub MAIN ($min = 11);
my @vowel = <a e i o u>;
my $vowel = rx/ @vowel /;
my @consonant = ('a'..'z').grep: { $_ ∉ @vowel };
my $consonant = rx/ @consonant /;

say "Minimum characters in a word: $min";

say "Number found, consonant count and list of words with the largest absolute number of unique, unrepeated consonants:";
say +.value, ' @ ', $_ for 'unixdict.txt'.IO.words.grep( {.chars >= $min and so all(.comb.Bag{@consonant}) <= 1} )
    .classify( { +.comb(/$consonant/) } ).sort(-*.key).head(2);

say "nNumber found, ratio and list of words with the highest ratio of unique, unrepeated consonants to vowels:";
say +.value, ' @ ', $_  for 'unixdict.txt'.IO.slurp.words.grep( {.chars >= $min and so all(.comb.Bag{@consonant}) <= 1} )
    .classify( { +.comb(/$vowel/) ?? (+.comb(/$consonant/) / +.comb(/$vowel/) ) !! Inf } ).sort(-*.key).head(3);

Minimum characters in a word: 11
Number found, consonant count and list of words with the largest absolute number of unique, unrepeated consonants:
1 @ 9 => [comprehensible]
39 @ 8 => [administrable anthropology blameworthy bluestocking boustrophedon bricklaying chemisorption christendom claustrophobia compensatory comprehensive counterexample demonstrable disciplinary discriminable geochemistry hypertensive indecipherable indecomposable indiscoverable lexicography manslaughter misanthropic mockingbird monkeyflower neuropathology paralinguistic pharmacology pitchblende playwriting shipbuilding shortcoming springfield stenography stockholder switchblade switchboard switzerland thunderclap]

Number found, ratio and list of words with the highest ratio of unique, unrepeated consonants to vowels:
14 @ 2.666667 => [blameworthy bricklaying christendom mockingbird pitchblende playwriting shortcoming springfield stenography stockholder switchblade switchboard switzerland thunderclap]
13 @ 2 => [anthropology bluestocking compensatory demonstrable disciplinary geochemistry hypertensive lexicography manslaughter misanthropic monkeyflower pharmacology shipbuilding]
1 @ 1.8 => [comprehensible]

Character count of 11 minimum is rather arbitrary. If we feed it a character count minimum of 5, the first one returns a pretty similar answer, 8 additional words at 8 consonants (all with 10 characters.)

The second would actually come up with some infinite ratios (since we somewhat bogusly don’t count ‘y’ as a vowel.):

Minimum characters in a word: 5
Number found, consonant count and list of words with the largest absolute number of unique, unrepeated consonants:
1 @ 9 => [comprehensible]
47 @ 8 => [administrable anthropology bankruptcy blacksmith blameworthy bluestocking boustrophedon bricklaying chemisorption christendom claustrophobia compensatory comprehensive counterexample crankshaft demonstrable disciplinary discriminable geochemistry hypertensive indecipherable indecomposable indiscoverable lexicography lynchburg manslaughter misanthropic mockingbird monkeyflower neuropathology paralinguistic pharmacology pitchblende playwright playwriting shipbuilding shortcoming sprightly springfield stenography stockholder strickland stronghold switchblade switchboard switzerland thunderclap]

Number found, ratio and list of words with the highest ratio of unique, unrepeated consonants to vowels:
6 @ Inf => [crypt glyph lymph lynch nymph psych]
2 @ 8 => [lynchburg sprightly]
5 @ 7 => [klystron mcknight schwartz skylight splotchy]

REXX[edit]

This REXX version doesn’t care what order the words in the dictionary are in,   nor does it care what

case  (lower/upper/mixed)  the words are in,   the search for the words is   caseless.

It also allows the minimum length to be specified on the command line (CL) as well as the dictionary file identifier.

/*REXX pgm finds words  (within an identified dict.)  which contain the most consonants.*/
parse arg minl iFID .                            /*obtain optional arguments from the CL*/
if minl=='' | minl=="," then minl= 11            /*Not specified?  Then use the default.*/
if iFID=='' | iFID=="," then iFID='unixdict.txt' /* "      "         "   "   "     "    */

           do #=1  while lines(iFID)==0         /*read each word in the file  (word=X).*/
           x= strip( linein( iFID) )             /*pick off a word from the input line. */
           @.#= x                                /*save:  the original case of the word.*/
           end   /*#*/
#= # - 1                                         /*adjust word count because of DO loop.*/
say copies('─', 30)      #       "words in the dictionary file: "       iFID
xyz= 'bcdfghjklmnpqrstvwxyz';        upper xyz   /*list of the 21 uppercase consonants. */
L= length(xyz)                                   /*number of consonants in the alphabet.*/
maxCnt= 0                                        /*max # unique consonants in a max set.*/
!.=;                                 !!.= 0      /* "  "    "        "      " " word.   */
      do j=1  for #;     $= @.j;     upper $     /*obtain an uppercased word from dict. */
      if length($)<minl         then iterate     /*Is word long enough?   No, then skip.*/
      cnt= 0                                     /*the number of consonants  (so far).  */

         do k=1  for L;  q= substr(xyz, K, 1)    /*examine all consonants for uniqueness*/
         _= pos(q, $)
         if _==0                then iterate     /*Is this consonant present?  No, skip.*/
         if pos(q, $, _ + 1)>0  then iterate j   /*More than 1 same consonant? Then skip*/
         cnt= cnt + 1                            /*bump the number of consonants so far.*/
         end      /*k*/

      !.cnt= !.cnt  @.j                          /*append a word to a specific len list.*/
      !!.cnt= cnt                                /*keep track of # of unique consonants.*/
      maxCnt= max(maxCNT, cnt)                   /*save the maximum count  (so far).    */
      end         /*j*/
                                                 /*show sets of words, unique consonants*/
      do m=maxCnt  to 1  by -1;  n= words(!.m)   /*get the number of words in this set. */
      if n==0  then iterate                      /*Any word in this set?  No, then skip.*/
                                 say;  say       /*show some blank lines between sets.  */
         do y=1  for n                           /*show individual words in the set.    */
         say right(y, L#)':'     right( left( word(!.m, y), 30),  40)    /*indent words.*/
         end   /*y*/

      say copies('─', 30)    n    " word"s(n)   'found which have '   !!.m   " unique" ,
                                  "consonants and having a minimum word length of: "  minl
      end   /*m*/
exit 0                                           /*stick a fork in it,  we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
s:   if arg(1)==1  then return arg(3);   return word( arg(2) 's',  1)