Abbreviations, automatic

From Rosetta Code
Abbreviations, automatic 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.

The use of   abbreviations   (also sometimes called synonyms, nicknames, AKAs, or aliases)   can be an
easy way to add flexibility when specifying or using commands, sub─commands, options, etc.


It would make a list of words easier to maintain   (as words are added, changed, and/or deleted)   if the minimum abbreviation length of that list could be automatically (programmatically) determined.


For this task, use the list (below) of the days-of-the-week names that are expressed in about a hundred languages   (note that there is a blank line in the list).

Sunday Monday Tuesday Wednesday Thursday Friday Saturday
Sondag Maandag Dinsdag Woensdag Donderdag Vrydag Saterdag
E_djelë E_hënë E_martë E_mërkurë E_enjte E_premte E_shtunë
Ehud Segno Maksegno Erob Hamus Arbe Kedame
Al_Ahad Al_Ithinin Al_Tholatha'a Al_Arbia'a Al_Kamis Al_Gomia'a Al_Sabit
Guiragui Yergou_shapti Yerek_shapti Tchorek_shapti Hink_shapti Ourpat Shapat
domingu llunes martes miércoles xueves vienres sábadu
Bazar_gÜnÜ Birinci_gÜn Çkinci_gÜn ÜçÜncÜ_gÜn DÖrdÜncÜ_gÜn Bes,inci_gÜn Altòncò_gÜn
Igande Astelehen Astearte Asteazken Ostegun Ostiral Larunbat
Robi_bar Shom_bar Mongal_bar Budhh_bar BRihashpati_bar Shukro_bar Shoni_bar
Nedjelja Ponedeljak Utorak Srijeda Cxetvrtak Petak Subota
Disul Dilun Dimeurzh Dimerc'her Diriaou Digwener Disadorn
nedelia ponedelnik vtornik sriada chetvartak petak sabota
sing_kei_yaht sing_kei_yat sing_kei_yee sing_kei_saam sing_kei_sie sing_kei_ng sing_kei_luk
Diumenge Dilluns Dimarts Dimecres Dijous Divendres Dissabte
Dzeenkk-eh Dzeehn_kk-ehreh Dzeehn_kk-ehreh_nah_kay_dzeeneh Tah_neesee_dzeehn_neh Deehn_ghee_dzee-neh Tl-oowey_tts-el_dehlee Dzeentt-ahzee
dy_Sul dy_Lun dy_Meurth dy_Mergher dy_You dy_Gwener dy_Sadorn
Dimanch Lendi Madi Mèkredi Jedi Vandredi Samdi
nedjelja ponedjeljak utorak srijeda cxetvrtak petak subota
nede^le ponde^lí úterÿ str^eda c^tvrtek pátek sobota
Sondee Mondee Tiisiday Walansedee TOOsedee Feraadee Satadee
s0ndag mandag tirsdag onsdag torsdag fredag l0rdag
zondag maandag dinsdag woensdag donderdag vrijdag zaterdag
Diman^co Lundo Mardo Merkredo ^Jaùdo Vendredo Sabato
pÜhapäev esmaspäev teisipäev kolmapäev neljapäev reede laupäev

Diu_prima Diu_sequima Diu_tritima Diu_quartima Diu_quintima Diu_sextima Diu_sabbata
sunnudagur mánadagur tÿsdaguy mikudagur hósdagur friggjadagur leygardagur
Yek_Sham'beh Do_Sham'beh Seh_Sham'beh Cha'har_Sham'beh Panj_Sham'beh Jom'eh Sham'beh
sunnuntai maanantai tiistai keskiviiko torsktai perjantai lauantai
dimanche lundi mardi mercredi jeudi vendredi samedi
Snein Moandei Tiisdei Woansdei Tonersdei Freed Sneon
Domingo Segunda_feira Martes Mércores Joves Venres Sábado
k'vira orshabati samshabati otkhshabati khutshabati p'arask'evi shabati
Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag
Kiriaki' Defte'ra Tri'ti Teta'rti Pe'mpti Paraskebi' Sa'bato
ravivaar somvaar mangalvaar budhvaar guruvaar shukravaar shanivaar
pópule pó`akahi pó`alua pó`akolu pó`ahá pó`alima pó`aono
Yom_rishon Yom_sheni Yom_shlishi Yom_revi'i Yom_chamishi Yom_shishi Shabat
ravivara somavar mangalavar budhavara brahaspativar shukravara shanivar
vasárnap hétfö kedd szerda csütörtök péntek szombat
Sunnudagur Mánudagur ╞riδjudagur Miδvikudagar Fimmtudagur FÖstudagur Laugardagur
sundio lundio mardio merkurdio jovdio venerdio saturdio
Minggu Senin Selasa Rabu Kamis Jumat Sabtu
Dominica Lunedi Martedi Mercuridi Jovedi Venerdi Sabbato
Dé_Domhnaigh Dé_Luain Dé_Máirt Dé_Ceadaoin Dé_ardaoin Dé_hAoine Dé_Sathairn
domenica lunedí martedí mercoledí giovedí venerdí sabato
Nichiyou_bi Getzuyou_bi Kayou_bi Suiyou_bi Mokuyou_bi Kin'you_bi Doyou_bi
Il-yo-il Wol-yo-il Hwa-yo-il Su-yo-il Mok-yo-il Kum-yo-il To-yo-il
Dies_Dominica Dies_Lunæ Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Saturni
sve-tdien pirmdien otrdien tresvdien ceturtdien piektdien sestdien
Sekmadienis Pirmadienis Antradienis Trec^iadienis Ketvirtadienis Penktadienis S^es^tadienis
Wangu Kazooba Walumbe Mukasa Kiwanuka Nnagawonye Wamunyi
xing-_qi-_rì xing-_qi-_yi-. xing-_qi-_èr xing-_qi-_san-. xing-_qi-_sì xing-_qi-_wuv. xing-_qi-_liù
Jedoonee Jelune Jemayrt Jecrean Jardaim Jeheiney Jesam
Jabot Manre Juje Wonje Taije Balaire Jarere
geminrongo minòmishi mártes mièrkoles misheushi bèrnashi mishábaro
Ahad Isnin Selasa Rabu Khamis Jumaat Sabtu
sφndag mandag tirsdag onsdag torsdag fredag lφrdag
lo_dimenge lo_diluns lo_dimarç lo_dimèrcres lo_dijòus lo_divendres lo_dissabte
djadomingo djaluna djamars djarason djaweps djabièrna djasabra
Niedziela Poniedzial/ek Wtorek S,roda Czwartek Pia,tek Sobota
Domingo segunda-feire terça-feire quarta-feire quinta-feire sexta-feira såbado
Domingo Lunes martes Miercoles Jueves Viernes Sabado
Duminicª Luni Mart'i Miercuri Joi Vineri Sâmbªtª
voskresenie ponedelnik vtornik sreda chetverg pyatnitsa subbota
Sunday Di-luain Di-màirt Di-ciadain Di-ardaoin Di-haoine Di-sathurne
nedjelja ponedjeljak utorak sreda cxetvrtak petak subota
Sontaha Mmantaha Labobedi Laboraro Labone Labohlano Moqebelo
Iridha- Sandhudha- Anga.haruwa-dha- Badha-dha- Brahaspa.thindha- Sikura-dha- Sena.sura-dha-
nedel^a pondelok utorok streda s^tvrtok piatok sobota
Nedelja Ponedeljek Torek Sreda Cxetrtek Petek Sobota
domingo lunes martes miércoles jueves viernes sábado
sonde mundey tude-wroko dride-wroko fode-wroko freyda Saturday
Jumapili Jumatatu Jumanne Jumatano Alhamisi Ijumaa Jumamosi
söndag måndag tisdag onsdag torsdag fredag lordag
Linggo Lunes Martes Miyerkoles Huwebes Biyernes Sabado
Lé-pài-jít Pài-it Pài-jï Pài-sañ Pài-sì Pài-gÖ. Pài-lák
wan-ar-tit wan-tjan wan-ang-kaan wan-phoet wan-pha-ru-hat-sa-boh-die wan-sook wan-sao
Tshipi Mosupologo Labobedi Laboraro Labone Labotlhano Matlhatso
Pazar Pazartesi Sali Çar,samba Per,sembe Cuma Cumartesi
nedilya ponedilok vivtorok sereda chetver pyatnytsya subota
Chu?_Nhâ.t Thú*_Hai Thú*_Ba Thú*_Tu* Thú*_Na'm Thú*_Sáu Thú*_Ba?y
dydd_Sul dyds_Llun dydd_Mawrth dyds_Mercher dydd_Iau dydd_Gwener dyds_Sadwrn
Dibeer Altine Talaata Allarba Al_xebes Aljuma Gaaw
iCawa uMvulo uLwesibini uLwesithathu uLuwesine uLwesihlanu uMgqibelo
zuntik montik dinstik mitvokh donershtik fraytik shabes
iSonto uMsombuluko uLwesibili uLwesithathu uLwesine uLwesihlanu uMgqibelo
Dies_Dominica Dies_Lunæ Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Saturni
Bazar_gÜnÜ Bazar_ærtæsi Çærs,ænbæ_axs,amò Çærs,ænbæ_gÜnÜ CÜmæ_axs,amò CÜmæ_gÜnÜ CÜmæ_Senbæ
Sun Moon Mars Mercury Jove Venus Saturn
zondag maandag dinsdag woensdag donderdag vrijdag zaterdag
KoseEraa GyoOraa BenEraa Kuoraa YOwaaraa FeEraa Memenaa
Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Sonnabend
Domingo Luns Terza_feira Corta_feira Xoves Venres Sábado
Dies_Solis Dies_Lunae Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Sabbatum
xing-_qi-_tiàn xing-_qi-_yi-. xing-_qi-_èr xing-_qi-_san-. xing-_qi-_sì xing-_qi-_wuv. xing-_qi-_liù
djadomingu djaluna djamars djarason djaweps djabièrnè djasabra
Killachau Atichau Quoyllurchau Illapachau Chaskachau Kuychichau Intichau

Caveat:   The list (above) most surely contains errors (or, at the least, differences) of what the actual (or true) names for the days-of-the-week.


To make this Rosetta Code task page as small as possible, if processing the complete list, read the days-of-the-week from a file (that is created from the above list).


Notes concerning the above list of words

  •   each line has a list of days-of-the-week for a language, separated by at least one blank
  •   the words on each line happen to be in order, from Sunday ──► Saturday
  •   most lines have words in mixed case and some have all manner of accented words and other characters
  •   some words were translated to the nearest character that was available to code page   437
  •   the characters in the words are not restricted except that they may not have imbedded blanks
  •   for this example, the use of an underscore (_) was used to indicate a blank in a word


Task
  •   The list of words   (days of the week)   needn't be verified/validated.
  •   Write a function to find the (numeric) minimum length abbreviation for each line that would make abbreviations unique.
  •   A blank line   (or a null line)   should return a null string.
  •   Process and show the output for at least the first five lines of the file.
  •   Show all output here.


Related tasks



AWK[edit]

 
# syntax: GAWK -f ABBREVIATIONS_AUTOMATIC.AWK ABBREVIATIONS_AUTOMATIC.TXT
{ dow_arr[NR] = $0 }
END {
for (i=1; i<=NR; i++) {
if (split(dow_arr[i],arr1,FS) != 7) {
printf("NG %s\n",dow_arr[i])
continue
}
col_width = 0
for (j=1; j<=7; j++) {
col_width = max(col_width,length(arr1[j]))
}
for (col=1; col<=col_width; col++) {
delete arr2
for (j=1; j<=7; j++) {
arr2[toupper(substr(arr1[j],1,col))]
}
if (length(arr2) == 7) {
break
}
if (col >= col_width) { # catches duplicate day names
col = "NG"
break
}
}
printf("%2s %s\n",col,dow_arr[i])
}
exit(0)
}
function max(x,y) { return((x > y) ? x : y) }
 
Output:
 2 Sunday Monday Tuesday Wednesday Thursday Friday Saturday
 2 Sondag Maandag Dinsdag Woensdag Donderdag Vrydag Saterdag
 4 E_djelë E_hënë E_martë E_mërkurë E_enjte E_premte E_shtunë
 2 Ehud Segno Maksegno Erob Hamus Arbe Kedame
 5 Al_Ahad Al_Ithinin Al_Tholatha'a Al_Arbia'a Al_Kamis Al_Gomia'a Al_Sabit
 4 Guiragui Yergou_shapti Yerek_shapti Tchorek_shapti Hink_shapti Ourpat Shapat
 2 domingu llunes martes miércoles xueves vienres sábadu
 2 Bazar_gÜnÜ Birinci_gÜn Çkinci_gÜn ÜçÜncÜ_gÜn DÖrdÜncÜ_gÜn Bes,inci_gÜn Altòncò_gÜn
 6 Igande Astelehen Astearte Asteazken Ostegun Ostiral Larunbat
 4 Robi_bar Shom_bar Mongal_bar Budhh_bar BRihashpati_bar Shukro_bar Shoni_bar
 2 Nedjelja Ponedeljak Utorak Srijeda Cxetvrtak Petak Subota
 5 Disul Dilun Dimeurzh Dimerc'her Diriaou Digwener Disadorn
 2 nedelia ponedelnik vtornik sriada chetvartak petak sabota
12 sing_kei_yaht sing_kei_yat sing_kei_yee sing_kei_saam sing_kei_sie sing_kei_ng sing_kei_luk
 4 Diumenge Dilluns Dimarts Dimecres Dijous Divendres Dissabte
16 Dzeenkk-eh Dzeehn_kk-ehreh Dzeehn_kk-ehreh_nah_kay_dzeeneh Tah_neesee_dzeehn_neh Deehn_ghee_dzee-neh Tl-oowey_tts-el_dehlee Dzeentt-ahzee
 6 dy_Sul dy_Lun dy_Meurth dy_Mergher dy_You dy_Gwener dy_Sadorn
 2 Dimanch Lendi Madi Mèkredi Jedi Vandredi Samdi
 2 nedjelja ponedjeljak utorak srijeda cxetvrtak petak subota
 2 nede^le ponde^lí úterÿ str^eda c^tvrtek pátek sobota
 2 Sondee Mondee Tiisiday Walansedee TOOsedee Feraadee Satadee
 2 s0ndag mandag tirsdag onsdag torsdag fredag l0rdag
 2 zondag maandag dinsdag woensdag donderdag vrijdag zaterdag
 2 Diman^co Lundo Mardo Merkredo ^Jaùdo Vendredo Sabato
 1 pÜhapäev esmaspäev teisipäev kolmapäev neljapäev reede laupäev
NG
 7 Diu_prima Diu_sequima Diu_tritima Diu_quartima Diu_quintima Diu_sextima Diu_sabbata
 2 sunnudagur mánadagur tÿsdaguy mikudagur hósdagur friggjadagur leygardagur
 2 Yek_Sham'beh Do_Sham'beh Seh_Sham'beh Cha'har_Sham'beh Panj_Sham'beh Jom'eh Sham'beh
 2 sunnuntai maanantai tiistai keskiviiko torsktai perjantai lauantai
 2 dimanche lundi mardi mercredi jeudi vendredi samedi
 4 Snein Moandei Tiisdei Woansdei Tonersdei Freed Sneon
 2 Domingo Segunda_feira Martes Mércores Joves Venres Sábado
 2 k'vira orshabati samshabati otkhshabati khutshabati p'arask'evi shabati
 2 Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag
 2 Kiriaki' Defte'ra Tri'ti Teta'rti Pe'mpti Paraskebi' Sa'bato
 3 ravivaar somvaar mangalvaar budhvaar guruvaar shukravaar shanivaar
 6 pópule pó`akahi pó`alua pó`akolu pó`ahá pó`alima pó`aono
 7 Yom_rishon Yom_sheni Yom_shlishi Yom_revi'i Yom_chamishi Yom_shishi Shabat
 3 ravivara somavar mangalavar budhavara brahaspativar shukravara shanivar
 3 vasárnap hétfö kedd szerda csütörtök péntek szombat
 2 Sunnudagur Mánudagur ¦ridjudagur Midvikudagar Fimmtudagur FÖstudagur Laugardagur
 2 sundio lundio mardio merkurdio jovdio venerdio saturdio
 3 Minggu Senin Selasa Rabu Kamis Jumat Sabtu
 2 Dominica Lunedi Martedi Mercuridi Jovedi Venerdi Sabbato
 4 Dé_Domhnaigh Dé_Luain Dé_Máirt Dé_Ceadaoin Dé_ardaoin Dé_hAoine Dé_Sathairn
 2 domenica lunedí martedí mercoledí giovedí venerdí sabato
 2 Nichiyou_bi Getzuyou_bi Kayou_bi Suiyou_bi Mokuyou_bi Kin'you_bi Doyou_bi
 1 Il-yo-il Wol-yo-il Hwa-yo-il Su-yo-il Mok-yo-il Kum-yo-il To-yo-il
 7 Dies_Dominica Dies_Lunæ Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Saturni
 3 sve-tdien pirmdien otrdien tresvdien ceturtdien piektdien sestdien
 2 Sekmadienis Pirmadienis Antradienis Trec^iadienis Ketvirtadienis Penktadienis S^es^tadienis
 3 Wangu Kazooba Walumbe Mukasa Kiwanuka Nnagawonye Wamunyi
12 xing-_qi-_rì xing-_qi-_yi-. xing-_qi-_èr xing-_qi-_san-. xing-_qi-_sì xing-_qi-_wuv. xing-_qi-_liù
 3 Jedoonee Jelune Jemayrt Jecrean Jardaim Jeheiney Jesam
 3 Jabot Manre Juje Wonje Taije Balaire Jarere
 5 geminrongo minòmishi mártes mièrkoles misheushi bèrnashi mishábaro
 2 Ahad Isnin Selasa Rabu Khamis Jumaat Sabtu
 2 sfndag mandag tirsdag onsdag torsdag fredag lfrdag
 7 lo_dimenge lo_diluns lo_dimarç lo_dimèrcres lo_dijòus lo_divendres lo_dissabte
 4 djadomingo djaluna djamars djarason djaweps djabièrna djasabra
 2 Niedziela Poniedzial/ek Wtorek S,roda Czwartek Pia,tek Sobota
 3 Domingo segunda-feire terça-feire quarta-feire quinta-feire sexta-feira såbado
 2 Domingo Lunes martes Miercoles Jueves Viernes Sabado
 2 Duminicª Luni Mart'i Miercuri Joi Vineri Sâmbªtª
 2 voskresenie ponedelnik vtornik sreda chetverg pyatnitsa subbota
 4 Sunday Di-luain Di-màirt Di-ciadain Di-ardaoin Di-haoine Di-sathurne
 2 nedjelja ponedjeljak utorak sreda cxetvrtak petak subota
 5 Sontaha Mmantaha Labobedi Laboraro Labone Labohlano Moqebelo
 2 Iridha- Sandhudha- Anga.haruwa-dha- Badha-dha- Brahaspa.thindha- Sikura-dha- Sena.sura-dha-
 2 nedel^a pondelok utorok streda s^tvrtok piatok sobota
 2 Nedelja Ponedeljek Torek Sreda Cxetrtek Petek Sobota
 2 domingo lunes martes miércoles jueves viernes sábado
 2 sonde mundey tude-wroko dride-wroko fode-wroko freyda Saturday
 7 Jumapili Jumatatu Jumanne Jumatano Alhamisi Ijumaa Jumamosi
 2 söndag måndag tisdag onsdag torsdag fredag lordag
 2 Linggo Lunes Martes Miyerkoles Huwebes Biyernes Sabado
 6 Lé-pài-jít Pài-it Pài-jï Pài-sañ Pài-sì Pài-gÖ. Pài-lák
 7 wan-ar-tit wan-tjan wan-ang-kaan wan-phoet wan-pha-ru-hat-sa-boh-die wan-sook wan-sao
 5 Tshipi Mosupologo Labobedi Laboraro Labone Labotlhano Matlhatso
 6 Pazar Pazartesi Sali Çar,samba Per,sembe Cuma Cumartesi
 2 nedilya ponedilok vivtorok sereda chetver pyatnytsya subota
 8 Chu?_Nhâ.t Thú*_Hai Thú*_Ba Thú*_Tu* Thú*_Na'm Thú*_Sáu Thú*_Ba?y
 6 dydd_Sul dyds_Llun dydd_Mawrth dyds_Mercher dydd_Iau dydd_Gwener dyds_Sadwrn
 3 Dibeer Altine Talaata Allarba Al_xebes Aljuma Gaaw
 7 iCawa uMvulo uLwesibini uLwesithathu uLuwesine uLwesihlanu uMgqibelo
 2 zuntik montik dinstik mitvokh donershtik fraytik shabes
 7 iSonto uMsombuluko uLwesibili uLwesithathu uLwesine uLwesihlanu uMgqibelo
 7 Dies_Dominica Dies_Lunæ Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Saturni
11 Bazar_gÜnÜ Bazar_ærtæsi Çærs,ænbæ_axs,amò Çærs,ænbæ_gÜnÜ CÜmæ_axs,amò CÜmæ_gÜnÜ CÜmæ_Senbæ
 2 Sun Moon Mars Mercury Jove Venus Saturn
 2 zondag maandag dinsdag woensdag donderdag vrijdag zaterdag
 2 KoseEraa GyoOraa BenEraa Kuoraa YOwaaraa FeEraa Memenaa
 5 Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Sonnabend
 1 Domingo Luns Terza_feira Corta_feira Xoves Venres Sábado
 7 Dies_Solis Dies_Lunae Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Sabbatum
12 xing-_qi-_tiàn xing-_qi-_yi-. xing-_qi-_èr xing-_qi-_san-. xing-_qi-_sì xing-_qi-_wuv. xing-_qi-_liù
 4 djadomingu djaluna djamars djarason djaweps djabièrnè djasabra
 2 Killachau Atichau Quoyllurchau Illapachau Chaskachau Kuychichau Intichau

F#[edit]

The function[edit]

 
let fN g=let rec fN n=if g|>List.map(fun(g:string)->g.[0..n])|>Set.ofList|>Set.count=(List.length g) then (n+1) else fN(n+1)
fN 0
 

The Task - Demonstrate the function[edit]

 
fN ["Sunday"; "Monday"; "Tuesday"; "Wednesday"; "Thursday"; "Friday"; "Saturday"] // -> 2
fN ["Sondag"; "Maandag"; "Dinsdag"; "Woensdag"; "Donderdag"; "Vrydag"; "Saterdag"] // -> 2
fN ["E_djelë"; "E_hënë"; "E_martë"; "E_mërkurë"; "E_enjte"; "E_premte"; "E_shtunë"] // -> 4
fN ["Ehud"; "Segno"; "Maksegno"; "Erob"; "Hamus"; "Arbe"; "Kedame"] // -> 2
fN ["Al_Ahad"; "Al_Ithinin"; "Al_Tholatha'a"; "Al_Arbia'a"; "Al_Kamis"; "Al_Gomia'a"; "Al_Sabit";] // -> 5
 

Haskell[edit]

import Data.List (inits, intercalate, nub, transpose)
 
-- ABBREVIATIONS -------------------------------------------------------------
abbrevns :: [String] -> [String]
abbrevns xs =
let n = length xs
in case n of
0 -> []
_ -> head $ dropWhile ((< n) . length) $ nub <$> transpose (inits <$> xs)
 
-- REPORT --------------------------------------------------------------------
main :: IO ()
main = do
s <- readFile "./weekDayNames.txt"
mapM_ putStrLn $
take 10 $
(intercalate "\t" .
(((:) . show . length . head . abbrevns . words) <*> return)) <$>
lines s
Output:
2    Sunday Monday Tuesday Wednesday Thursday Friday Saturday
2    Sondag Maandag Dinsdag Woensdag Donderdag Vrydag Saterdag
4    E_djelë E_hënë E_martë E_mërkurë E_enjte E_premte E_shtunë
2    Ehud Segno Maksegno Erob Hamus Arbe Kedame
5    Al_Ahad Al_Ithinin Al_Tholatha'a Al_Arbia'a Al_Kamis Al_Gomia'a Al_Sabit
4    Guiragui Yergou_shapti Yerek_shapti Tchorek_shapti Hink_shapti Ourpat Shapat
2    domingu llunes martes miércoles xueves vienres sábadu
2    Bazar_gÜnÜ Birinci_gÜn Çkinci_gÜn ÜçÜncÜ_gÜn DÖrdÜncÜ_gÜn Bes,inci_gÜn Altòncò_gÜn
6    Igande Astelehen Astearte Asteazken Ostegun Ostiral Larunbat
4    Robi_bar Shom_bar Mongal_bar Budhh_bar BRihashpati_bar Shukro_bar Shoni_bar

Kotlin[edit]

// version 1.1.4-3
 
import java.io.File
 
val r = Regex("[ ]+")
 
fun main(args: Array<String>) {
val lines = File("days_of_week.txt").readLines()
for ((i, line) in lines.withIndex()) {
if (line.trim().isEmpty()) {
println()
continue
}
val days = line.trim().split(r)
if (days.size != 7) throw RuntimeException("There aren't 7 days in line ${i + 1}")
if (days.distinct().size < 7) { // implies some days have the same name
println(" ∞ $line")
continue
}
var len = 1
while (true) {
if (days.map { it.take(len) }.distinct().size == 7) {
println("${"%2d".format(len)} $line")
break
}
len++
}
}
}
Output:
 2  Sunday Monday Tuesday Wednesday Thursday Friday Saturday
 2  Sondag Maandag Dinsdag Woensdag Donderdag Vrydag Saterdag
 4  E_djelë E_hënë E_martë E_mërkurë E_enjte E_premte E_shtunë
 2  Ehud Segno Maksegno Erob Hamus Arbe Kedame
 5  Al_Ahad Al_Ithinin Al_Tholatha'a Al_Arbia'a Al_Kamis Al_Gomia'a Al_Sabit
 4  Guiragui Yergou_shapti Yerek_shapti Tchorek_shapti Hink_shapti Ourpat Shapat
 2  domingu llunes martes miércoles xueves vienres sábadu
 2  Bazar_gÜnÜ Birinci_gÜn Çkinci_gÜn ÜçÜncÜ_gÜn DÖrdÜncÜ_gÜn Bes,inci_gÜn Altòncò_gÜn
 6  Igande Astelehen Astearte Asteazken Ostegun Ostiral Larunbat
 4  Robi_bar Shom_bar Mongal_bar Budhh_bar BRihashpati_bar Shukro_bar Shoni_bar
 2  Nedjelja Ponedeljak Utorak Srijeda Cxetvrtak Petak Subota
 5  Disul Dilun Dimeurzh Dimerc'her Diriaou Digwener Disadorn
 2  nedelia ponedelnik vtornik sriada chetvartak petak sabota
12  sing_kei_yaht sing_kei_yat sing_kei_yee sing_kei_saam sing_kei_sie sing_kei_ng sing_kei_luk
 4  Diumenge Dilluns Dimarts Dimecres Dijous Divendres Dissabte
16  Dzeenkk-eh Dzeehn_kk-ehreh Dzeehn_kk-ehreh_nah_kay_dzeeneh Tah_neesee_dzeehn_neh Deehn_ghee_dzee-neh Tl-oowey_tts-el_dehlee Dzeentt-ahzee
 6  dy_Sul dy_Lun dy_Meurth dy_Mergher dy_You dy_Gwener dy_Sadorn
 2  Dimanch Lendi Madi Mèkredi Jedi Vandredi Samdi
 2  nedjelja ponedjeljak utorak srijeda cxetvrtak petak subota
 2  nede^le ponde^lí úterÿ str^eda c^tvrtek pátek sobota
 2  Sondee Mondee Tiisiday Walansedee TOOsedee Feraadee Satadee
 2  s0ndag mandag tirsdag onsdag torsdag fredag l0rdag
 2  zondag maandag dinsdag woensdag donderdag vrijdag zaterdag
 2  Diman^co Lundo Mardo Merkredo ^Jaùdo Vendredo Sabato
 1  pÜhapäev esmaspäev teisipäev kolmapäev neljapäev reede laupäev
    
 7  Diu_prima Diu_sequima Diu_tritima Diu_quartima Diu_quintima Diu_sextima Diu_sabbata
 2  sunnudagur mánadagur tÿsdaguy mikudagur hósdagur friggjadagur leygardagur
 2  Yek_Sham'beh Do_Sham'beh Seh_Sham'beh Cha'har_Sham'beh Panj_Sham'beh Jom'eh Sham'beh
 2  sunnuntai maanantai tiistai keskiviiko torsktai perjantai lauantai
 2  dimanche lundi mardi mercredi jeudi vendredi samedi
 4  Snein Moandei Tiisdei Woansdei Tonersdei Freed Sneon
 2  Domingo Segunda_feira Martes Mércores Joves Venres Sábado
 2  k'vira orshabati samshabati otkhshabati khutshabati p'arask'evi shabati
 2  Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag
 2  Kiriaki' Defte'ra Tri'ti Teta'rti Pe'mpti Paraskebi' Sa'bato
 3  ravivaar somvaar mangalvaar budhvaar guruvaar shukravaar shanivaar
 6  pópule pó`akahi pó`alua pó`akolu pó`ahá pó`alima pó`aono
 7  Yom_rishon Yom_sheni Yom_shlishi Yom_revi'i Yom_chamishi Yom_shishi Shabat
 3  ravivara somavar mangalavar budhavara brahaspativar shukravara shanivar
 3  vasárnap hétfö kedd szerda csütörtök péntek szombat
 2  Sunnudagur Mánudagur ╞riδjudagur Miδvikudagar Fimmtudagur FÖstudagur Laugardagur
 2  sundio lundio mardio merkurdio jovdio venerdio saturdio
 3  Minggu Senin Selasa Rabu Kamis Jumat Sabtu
 2  Dominica Lunedi Martedi Mercuridi Jovedi Venerdi Sabbato
 4  Dé_Domhnaigh Dé_Luain Dé_Máirt Dé_Ceadaoin Dé_ardaoin Dé_hAoine Dé_Sathairn
 2  domenica lunedí martedí mercoledí giovedí venerdí sabato
 2  Nichiyou_bi Getzuyou_bi Kayou_bi Suiyou_bi Mokuyou_bi Kin'you_bi Doyou_bi
 1  Il-yo-il Wol-yo-il Hwa-yo-il Su-yo-il Mok-yo-il Kum-yo-il To-yo-il
 7  Dies_Dominica Dies_Lunæ Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Saturni
 3  sve-tdien pirmdien otrdien tresvdien ceturtdien piektdien sestdien
 2  Sekmadienis Pirmadienis Antradienis Trec^iadienis Ketvirtadienis Penktadienis S^es^tadienis
 3  Wangu Kazooba Walumbe Mukasa Kiwanuka Nnagawonye Wamunyi
12  xing-_qi-_rì xing-_qi-_yi-. xing-_qi-_èr xing-_qi-_san-. xing-_qi-_sì xing-_qi-_wuv. xing-_qi-_liù
 3  Jedoonee Jelune Jemayrt Jecrean Jardaim Jeheiney Jesam
 3  Jabot Manre Juje Wonje Taije Balaire Jarere
 5  geminrongo minòmishi mártes mièrkoles misheushi bèrnashi mishábaro
 2  Ahad Isnin Selasa Rabu Khamis Jumaat Sabtu
 2  sφndag mandag tirsdag onsdag torsdag fredag lφrdag
 7  lo_dimenge lo_diluns lo_dimarç lo_dimèrcres lo_dijòus lo_divendres lo_dissabte
 4  djadomingo djaluna djamars djarason djaweps djabièrna djasabra
 2  Niedziela Poniedzial/ek Wtorek S,roda Czwartek Pia,tek Sobota
 3  Domingo segunda-feire terça-feire quarta-feire quinta-feire sexta-feira såbado
 1  Domingo Lunes martes Miercoles Jueves Viernes Sabado
 2  Duminicª Luni Mart'i Miercuri Joi Vineri Sâmbªtª
 2  voskresenie ponedelnik vtornik sreda chetverg pyatnitsa subbota
 4  Sunday Di-luain Di-màirt Di-ciadain Di-ardaoin Di-haoine Di-sathurne
 2  nedjelja ponedjeljak utorak sreda cxetvrtak petak subota
 5  Sontaha Mmantaha Labobedi Laboraro Labone Labohlano Moqebelo
 2  Iridha- Sandhudha- Anga.haruwa-dha- Badha-dha- Brahaspa.thindha- Sikura-dha- Sena.sura-dha-
 2  nedel^a pondelok utorok streda s^tvrtok piatok sobota
 2  Nedelja Ponedeljek Torek Sreda Cxetrtek Petek Sobota
 2  domingo lunes martes miércoles jueves viernes sábado
 2  sonde mundey tude-wroko dride-wroko fode-wroko freyda Saturday
 7  Jumapili Jumatatu Jumanne Jumatano Alhamisi Ijumaa Jumamosi
 2  söndag måndag tisdag onsdag torsdag fredag lordag
 2  Linggo Lunes Martes Miyerkoles Huwebes Biyernes Sabado
 6  Lé-pài-jít Pài-it Pài-jï Pài-sañ Pài-sì Pài-gÖ. Pài-lák
 7  wan-ar-tit wan-tjan wan-ang-kaan wan-phoet wan-pha-ru-hat-sa-boh-die wan-sook wan-sao
 5  Tshipi Mosupologo Labobedi Laboraro Labone Labotlhano Matlhatso
 6  Pazar Pazartesi Sali Çar,samba Per,sembe Cuma Cumartesi
 2  nedilya ponedilok vivtorok sereda chetver pyatnytsya subota
 8  Chu?_Nhâ.t Thú*_Hai Thú*_Ba Thú*_Tu* Thú*_Na'm Thú*_Sáu Thú*_Ba?y
 6  dydd_Sul dyds_Llun dydd_Mawrth dyds_Mercher dydd_Iau dydd_Gwener dyds_Sadwrn
 3  Dibeer Altine Talaata Allarba Al_xebes Aljuma Gaaw
 7  iCawa uMvulo uLwesibini uLwesithathu uLuwesine uLwesihlanu uMgqibelo
 2  zuntik montik dinstik mitvokh donershtik fraytik shabes
 7  iSonto uMsombuluko uLwesibili uLwesithathu uLwesine uLwesihlanu uMgqibelo
 7  Dies_Dominica Dies_Lunæ Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Saturni
11  Bazar_gÜnÜ Bazar_ærtæsi Çærs,ænbæ_axs,amò Çærs,ænbæ_gÜnÜ CÜmæ_axs,amò CÜmæ_gÜnÜ CÜmæ_Senbæ
 2  Sun Moon Mars Mercury Jove Venus Saturn
 2  zondag maandag dinsdag woensdag donderdag vrijdag zaterdag
 2  KoseEraa GyoOraa BenEraa Kuoraa YOwaaraa FeEraa Memenaa
 5  Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Sonnabend
 1  Domingo Luns Terza_feira Corta_feira Xoves Venres Sábado
 7  Dies_Solis Dies_Lunae Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Sabbatum
12  xing-_qi-_tiàn xing-_qi-_yi-. xing-_qi-_èr xing-_qi-_san-. xing-_qi-_sì xing-_qi-_wuv. xing-_qi-_liù
 4  djadomingu djaluna djamars djarason djaweps djabièrnè djasabra
 2  Killachau Atichau Quoyllurchau Illapachau Chaskachau Kuychichau Intichau

Perl 6[edit]

Works with: Rakudo version 2017.08

Saving the "Days of Week, Also Known As" table to a local file DoWAKA.txt. Note: lines that have duplicate day names will get ∞ as the minimum number of characters, as there is no amount of characters that can be entered to distinguish the days uniquely. It is somewhat unclear as to what is meant by "return a null string". I have chosen to return Nil.

Note that this is using a previous version of the date file that has erroneous duplicate day names (see line 90). Since the effort was already expended to catch such problems, it may as well be demonstrated.

sub auto-abbreviate ( Str $string ) {
return Nil unless my @words = $string.words;
my $max = @words.chars.max;
for 0 .. $max {
return $_ if @words».substr(0, $_).Set == @words;
return '∞' if $_ == $max;
}
}
 
# Testing
say ++$, ') ', .&auto-abbreviate, ' ', $_ for './DoWAKA.txt'.IO.lines;
Output:
1) 2  Sunday Monday Tuesday Wednesday Thursday Friday Saturday
2) 2  Sondag Maandag Dinsdag Woensdag Donderdag Vrydag Saterdag
3) 4  E_djelë E_hënë E_martë E_mërkurë E_enjte E_premte E_shtunë
4) 2  Ehud Segno Maksegno Erob Hamus Arbe Kedame
5) 5  Al_Ahad Al_Ithinin Al_Tholatha'a Al_Arbia'a Al_Kamis Al_Gomia'a Al_Sabit
6) 4  Guiragui Yergou_shapti Yerek_shapti Tchorek_shapti Hink_shapti Ourpat Shapat
7) 2  domingu llunes martes miércoles xueves vienres sábadu
8) 2  Bazar_gÜnÜ Birinci_gÜn Çkinci_gÜn ÜçÜncÜ_gÜn DÖrdÜncÜ_gÜn Bes,inci_gÜn Altòncò_gÜn
9) 6  Igande Astelehen Astearte Asteazken Ostegun Ostiral Larunbat
10) 4  Robi_bar Shom_bar Mongal_bar Budhh_bar BRihashpati_bar Shukro_bar Shoni_bar
11) 2  Nedjelja Ponedeljak Utorak Srijeda Cxetvrtak Petak Subota
12) 5  Disul Dilun Dimeurzh Dimerc'her Diriaou Digwener Disadorn
13) 2  nedelia ponedelnik vtornik sriada chetvartak petak sabota
14) 13  sing_kei_yath sing_kei_yat sing_kei_yee sing_kei_saam sing_kei_sie sing_kei_ng sing_kei_luk
15) 4  Diumenge Dilluns Dimarts Dimecres Dijous Divendres Dissabte
16) 16  Dzeenkk-eh Dzeehn_kk-ehreh Dzeehn_kk-ehreh_nah_kay_dzeeneh Tah_neesee_dzeehn_neh Deehn_ghee_dzee-neh Tl-oowey_tts-el_dehlee Dzeentt-ahzee
17) 6  dy_Sul dy_Lun dy_Meurth dy_Mergher dy_You dy_Gwener dy_Sadorn
18) 2  Dimanch Lendi Madi Mèkredi Jedi Vandredi Samdi
19) 2  nedjelja ponedjeljak utorak srijeda cxetvrtak petak subota
20) 2  nede^le ponde^lí úterÿ str^eda c^tvrtek pátek sobota
21) 2  Sondee Mondee Tiisiday Walansedee TOOsedee Feraadee Satadee
22) 2  s0ndag mandag tirsdag onsdag torsdag fredag l0rdag
23) 2  zondag maandag dinsdag woensdag donderdag vrijdag zaterdag
24) 2  Diman^co Lundo Mardo Merkredo ^Jaùdo Vendredo Sabato
25) 1  pÜhapäev esmaspäev teisipäev kolmapäev neljapäev reede laupäev
26) Nil  
27) 7  Diu_prima Diu_sequima Diu_tritima Diu_quartima Diu_quintima Diu_sextima Diu_sabbata
28) 2  sunnudagur mánadagur tÿsdaguy mikudagur hósdagur friggjadagur leygardagur
29) 2  Yek_Sham'beh Do_Sham'beh Seh_Sham'beh Cha'har_Sham'beh Panj_Sham'beh Jom'eh Sham'beh
30) 2  sunnuntai maanantai tiistai keskiviiko torsktai perjantai lauantai
31) 2  dimanche lundi mardi mercredi jeudi vendredi samedi
32) 4  Snein Moandei Tiisdei Woansdei Tonersdei Freed Sneon
33) 2  Domingo Segunda_feira Martes Mércores Joves Venres Sábado
34) 2  k'vira orshabati samshabati otkhshabati khutshabati p'arask'evi shabati
35) 2  Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag
36) 2  Kiriaki' Defte'ra Tri'ti Teta'rti Pe'mpti Paraskebi' Sa'bato
37) 3  ravivaar somvaar mangalvaar budhvaar guruvaar shukravaar shanivaar
38) 6  pópule pó`akahi pó`alua pó`akolu pó`ahá pó`alima pó`aono
39) 7  Yom_rishon Yom_sheni Yom_shlishi Yom_revi'i Yom_chamishi Yom_shishi Shabat
40) 3  ravivara somavar mangalavar budhavara brahaspativar shukravara shanivar
41) 3  vasárnap hétfö kedd szerda csütörtök péntek szombat
42) 2  Sunnudagur Mánudagur ╞riδjudagur Miδvikudagar Fimmtudagur FÖstudagur Laugardagur
43) 2  sundio lundio mardio merkurdio jovdio venerdio saturdio
44) 3  Minggu Senin Selasa Rabu Kamis Jumat Sabtu
45) 2  Dominica Lunedi Martedi Mercuridi Jovedi Venerdi Sabbato
46) 4  Dé_Domhnaigh Dé_Luain Dé_Máirt Dé_Ceadaoin Dé_ardaoin Dé_hAoine Dé_Sathairn
47) 2  domenica lunedí martedí mercoledí giovedí venerdí sabato
48) 2  Nichiyou_bi Getzuyou_bi Kayou_bi Suiyou_bi Mokuyou_bi Kin'you_bi Doyou_bi
49) 1  Il-yo-il Wol-yo-il Hwa-yo-il Su-yo-il Mok-yo-il Kum-yo-il To-yo-il
50) 7  Dies_Dominica Dies_Lunæ Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Saturni
51) 3  sve-tdien pirmdien otrdien tresvdien ceturtdien piektdien sestdien
52) 2  Sekmadienis Pirmadienis Antradienis Trec^iadienis Ketvirtadienis Penktadienis S^es^tadienis
53) 3  Wangu Kazooba Walumbe Mukasa Kiwanuka Nnagawonye Wamunyi
54) 12  xing-_qi-_rì xing-_qi-_yi-. xing-_qi-_èr xing-_qi-_san-. xing-_qi-_sì xing-_qi-_wuv. xing-_qi-_liù
55) 3  Jedoonee Jelune Jemayrt Jecrean Jardaim Jeheiney Jesam
56) 3  Jabot Manre Juje Wonje Taije Balaire Jarere
57) 5  geminrongo minòmishi mártes mièrkoles misheushi bèrnashi mishábaro
58) 2  Ahad Isnin Selasa Rabu Khamis Jumaat Sabtu
59) 2  sφndag mandag tirsdag onsdag torsdag fredag lφrdag
60) 7  lo_dimenge lo_diluns lo_dimarç lo_dimèrcres lo_dijòus lo_divendres lo_dissabte
61) 4  djadomingo djaluna djamars djarason djaweps djabièrna djasabra
62) 2  Niedziela Poniedzial/ek Wtorek S,roda Czwartek Pia,tek Sobota
63) 3  Domingo segunda-feire terça-feire quarta-feire quinta-feire sexta-feira såbado
64) 1  Domingo Lunes martes Miercoles Jueves Viernes Sabado
65) 2  Duminicª Luni Mart'i Miercuri Joi Vineri Sâmbªtª
66) 2  voskresenie ponedelnik vtornik sreda chetverg pyatnitsa subbota
67) 4  Sunday Di-luain Di-màirt Di-ciadain Di-ardaoin Di-haoine Di-sathurne
68) 2  nedjelja ponedjeljak utorak sreda cxetvrtak petak subota
69) 5  Sontaha Mmantaha Labobedi Laboraro Labone Labohlano Moqebelo
70) 2  Iridha- Sandhudha- Anga.haruwa-dha- Badha-dha- Brahaspa.thindha- Sikura-dha- Sena.sura-dha-
71) 2  nedel^a pondelok utorok streda s^tvrtok piatok sobota
72) 2  Nedelja Ponedeljek Torek Sreda Cxetrtek Petek Sobota
73) 2  domingo lunes martes miércoles jueves viernes sábado
74) 2  sonde mundey tude-wroko dride-wroko fode-wroko freyda Saturday
75) 7  Jumapili Jumatatu Jumanne Jumatano Alhamisi Ijumaa Jumamosi
76) 2  söndag måndag tisdag onsdag torsdag fredag lordag
77) 2  Linggo Lunes Martes Miyerkoles Huwebes Biyernes Sabado
78) 6  Lé-pài-jít Pài-it Pài-jï Pài-sañ Pài-sì Pài-gÖ. Pài-lák
79) 7  wan-ar-tit wan-tjan wan-ang-kaan wan-phoet wan-pha-ru-hat-sa-boh-die wan-sook wan-sao
80) 5  Tshipi Mosupologo Labobedi Laboraro Labone Labotlhano Matlhatso
81) 6  Pazar Pazartesi Sali Çar,samba Per,sembe Cuma Cumartesi
82) 2  nedilya ponedilok vivtorok sereda chetver pyatnytsya subota
83) 8  Chu?_Nhâ.t Thú*_Hai Thú*_Ba Thú*_Tu* Thú*_Na'm Thú*_Sáu Thú*_Ba?y
84) 6  dydd_Sul dyds_Llun dydd_Mawrth dyds_Mercher dydd_Iau dydd_Gwener dyds_Sadwrn
85) 3  Dibeer Altine Talaata Allarba Al_xebes Aljuma Gaaw
86) 7  iCawa uMvulo uLwesibini uLwesithathu uLuwesine uLwesihlanu uMgqibelo
87) 2  zuntik montik dinstik mitvokh donershtik fraytik shabes
88) 7  iSonto uMsombuluko uLwesibili uLwesithathu uLwesine uLwesihlanu uMgqibelo
89) 7  Dies_Dominica Dies_Lunæ Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Saturni
90) ∞  Bazar_gÜnÜ Bazar_ærtæsi Çærs,ænbæ_axs,amò Çærs,ænbæ_gÜnÜ CÜmæ_axs,amò CÜmæ_gÜnÜ CÜmæ_gÜnÜ
91) 2  Sun Moon Mars Mercury Jove Venus Saturn
92) 2  zondag maandag dinsdag woensdag donderdag vrijdag zaterdag
93) 2  KoseEraa GyoOraa BenEraa Kuoraa YOwaaraa FeEraa Memenaa
94) 5  Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Sonnabend
95) 1  Domingo Luns Terza_feira Corta_feira Xoves Venres Sábado
96) 7  Dies_Solis Dies_Lunae Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Sabbatum
97) 12  xing-_qi-_tiàn xing-_qi-_yi-. xing-_qi-_èr xing-_qi-_san-. xing-_qi-_sì xing-_qi-_wuv. xing-_qi-_liù
98) 4  djadomingu djaluna djamars djarason djaweps djabièrnè djasabra
99) 2  Killachau Atichau Quoyllurchau Illapachau Chaskachau Kuychichau Intichau

REXX[edit]

/*REXX program finds the minimum length abbreviation for a lists of words (from a file).*/
parse arg uw /*obtain optional arguments from the CL*/
iFID= 'ABBREV_A.TAB' /*name of the file that has the table. */
say 'minimum' /*display the first part of the title. */
say 'abbrev' center("days of the week", 80) /*display the title for the output. */
say '══════' center("", 80, '═') /*display separator for the title line.*/
/* [↓] process the file until done. */
do while lines(iFID)\==0; days=linein(iFID) /*read a line (should contain 7 words).*/
minLen= abb(days) /*find the minimum abbreviation length.*/
say right(minLen, 4) ' ' days /*display a somewhat formatted output. */
end /*j*/
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
abb: procedure; parse arg x; #=words(x) /*obtain list of words; find how many.*/
if #==0 then return '' /*check for a blank line or null line. */
@.= /*@. is a stemmed array of the words.*/
L=0 /*L is the max length of " " */
do j=1 for #; @.j=word(x, j) /*assign to array for faster processing*/
L.j=length(@.j); L= max(L, L.j) /*find the maximum length of any item. */
end /*L*/
/* [↓] determine minimum abbrev length*/
do m=1 for L; $= /*for all lengths, find a unique abbrev*/
do k=1 to #; a=left(@.k, m) /*get an abbreviation (with length M).*/
if wordpos(a,$)\==0 then iterate M /*test this abbreviation for uniquness.*/
$=$ a /*so far, it's unique; add to the list.*/
end /*k*/
leave m /*a good abbreviation length was found.*/
end /*m*/
return m
output   when using the default input file containing the complete list of words:
minimum
abbrev                                 days of the week
══════ ════════════════════════════════════════════════════════════════════════════════
   2    Sunday Monday Tuesday Wednesday Thursday Friday Saturday
   2    Sondag Maandag Dinsdag Woensdag Donderdag Vrydag Saterdag
   4    E_djelë E_hënë E_martë E_mërkurë E_enjte E_premte E_shtunë
   2    Ehud Segno Maksegno Erob Hamus Arbe Kedame
   5    Al_Ahad Al_Ithinin Al_Tholatha'a Al_Arbia'a Al_Kamis Al_Gomia'a Al_Sabit
   4    Guiragui Yergou_shapti Yerek_shapti Tchorek_shapti Hink_shapti Ourpat Shapat
   2    domingu llunes martes miércoles xueves vienres sábadu
   2    Bazar_gÜnÜ Birinci_gÜn Çkinci_gÜn ÜçÜncÜ_gÜn DÖrdÜncÜ_gÜn Bes,inci_gÜn Altòncò_gÜn
   6    Igande Astelehen Astearte Asteazken Ostegun Ostiral Larunbat
   4    Robi_bar Shom_bar Mongal_bar Budhh_bar BRihashpati_bar Shukro_bar Shoni_bar
   2    Nedjelja Ponedeljak Utorak Srijeda Cxetvrtak Petak Subota
   5    Disul Dilun Dimeurzh Dimerc'her Diriaou Digwener Disadorn
   2    nedelia ponedelnik vtornik sriada chetvartak petak sabota
   4    Diumenge Dilluns Dimarts Dimecres Dijous Divendres Dissabte
  12    sing_kei_yaht sing_kei_yat sing_kei_yee sing_kei_saam sing_kei_sie sing_kei_ng sing_kei_luk
  16    Dzeenkk-eh Dzeehn_kk-ehreh Dzeehn_kk-ehreh_nah_kay_dzeeneh Tah_neesee_dzeehn_neh Deehn_ghee_dzee-neh Tl-oowey_tts-el_dehlee Dzeentt-ahzee
   6    dy_Sul dy_Lun dy_Meurth dy_Mergher dy_You dy_Gwener dy_Sadorn
   2    Dimanch Lendi Madi Mèkredi Jedi Vandredi Samdi
   2    nedjelja ponedjeljak utorak srijeda cxetvrtak petak subota
   2    nede^le ponde^lí úterÿ str^eda c^tvrtek pátek sobota
   2    Sondee Mondee Tiisiday Walansedee TOOsedee Feraadee Satadee
   2    s0ndag mandag tirsdag onsdag torsdag fredag l0rdag
   2    zondag maandag dinsdag woensdag donderdag vrijdag zaterdag
   2    Diman^co Lundo Mardo Merkredo ^Jaùdo Vendredo Sabato
   1    pÜhapäev esmaspäev teisipäev kolmapäev neljapäev reede laupäev

   7    Diu_prima Diu_sequima Diu_tritima Diu_quartima Diu_quintima Diu_sextima Diu_sabbata
   2    sunnudagur mánadagur tÿsdaguy mikudagur hósdagur friggjadagur leygardagur
   2    Yek_Sham'beh Do_Sham'beh Seh_Sham'beh Cha'har_Sham'beh Panj_Sham'beh Jom'eh Sham'beh
   2    sunnuntai maanantai tiistai keskiviiko torsktai perjantai lauantai
   2    dimanche lundi mardi mercredi jeudi vendredi samedi
   4    Snein Moandei Tiisdei Woansdei Tonersdei Freed Sneon
   2    Domingo Segunda_feira Martes Mércores Joves Venres Sábado
   2    k'vira orshabati samshabati otkhshabati khutshabati p'arask'evi shabati
   2    Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag
   2    Kiriaki' Defte'ra Tri'ti Teta'rti Pe'mpti Paraskebi' Sa'bato
   3    ravivaar somvaar mangalvaar budhvaar guruvaar shukravaar shanivaar
   6    pópule pó`akahi pó`alua pó`akolu pó`ahá pó`alima pó`aono
   7    Yom_rishon Yom_sheni Yom_shlishi Yom_revi'i Yom_chamishi Yom_shishi Shabat
   3    ravivara somavar mangalavar budhavara brahaspativar shukravara shanivar
   3    vasárnap hétfö kedd szerda csütörtök péntek szombat
   2    Sunnudagur Mánudagur ╞riδjudagur Miδvikudagar Fimmtudagur FÖstudagur Laugardagur
   2    sundio lundio mardio merkurdio jovdio venerdio saturdio
   3    Minggu Senin Selasa Rabu Kamis Jumat Sabtu
   2    Dominica Lunedi Martedi Mercuridi Jovedi Venerdi Sabbato
   4    Dé_Domhnaigh Dé_Luain Dé_Máirt Dé_Ceadaoin Dé_ardaoin Dé_hAoine Dé_Sathairn
   2    domenica lunedí martedí mercoledí giovedí venerdí sabato
   2    Nichiyou_bi Getzuyou_bi Kayou_bi Suiyou_bi Mokuyou_bi Kin'you_bi Doyou_bi
   1    Il-yo-il Wol-yo-il Hwa-yo-il Su-yo-il Mok-yo-il Kum-yo-il To-yo-il
   7    Dies_Dominica Dies_Lunæ Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Saturni
   3    sve-tdien pirmdien otrdien tresvdien ceturtdien piektdien sestdien
   2    Sekmadienis Pirmadienis Antradienis Trec^iadienis Ketvirtadienis Penktadienis S^es^tadienis
   3    Wangu Kazooba Walumbe Mukasa Kiwanuka Nnagawonye Wamunyi
  12    xing-_qi-_rì xing-_qi-_yi-. xing-_qi-_èr xing-_qi-_san-. xing-_qi-_sì xing-_qi-_wuv. xing-_qi-_liù
   3    Jedoonee Jelune Jemayrt Jecrean Jardaim Jeheiney Jesam
   3    Jabot Manre Juje Wonje Taije Balaire Jarere
   5    geminrongo minòmishi mártes mièrkoles misheushi bèrnashi mishábaro
   2    Ahad Isnin Selasa Rabu Khamis Jumaat Sabtu
   2    sφndag mandag tirsdag onsdag torsdag fredag lφrdag
   7    lo_dimenge lo_diluns lo_dimarç lo_dimèrcres lo_dijòus lo_divendres lo_dissabte
   4    djadomingo djaluna djamars djarason djaweps djabièrna djasabra
   2    Niedziela Poniedzial/ek Wtorek S,roda Czwartek Pia,tek Sobota
   3    Domingo segunda-feire terça-feire quarta-feire quinta-feire sexta-feira såbado
   1    Domingo Lunes martes Miercoles Jueves Viernes Sabado
   2    Duminicª Luni Mart'i Miercuri Joi Vineri Sâmbªtª
   2    voskresenie ponedelnik vtornik sreda chetverg pyatnitsa subbota
   4    Sunday Di-luain Di-màirt Di-ciadain Di-ardaoin Di-haoine Di-sathurne
   2    nedjelja ponedjeljak utorak sreda cxetvrtak petak subota
   5    Sontaha Mmantaha Labobedi Laboraro Labone Labohlano Moqebelo
   2    Iridha- Sandhudha- Anga.haruwa-dha- Badha-dha- Brahaspa.thindha- Sikura-dha- Sena.sura-dha-
   2    nedel^a pondelok utorok streda s^tvrtok piatok sobota
   2    Nedelja Ponedeljek Torek Sreda Cxetrtek Petek Sobota
   2    domingo lunes martes miércoles jueves viernes sábado
   2    sonde mundey tude-wroko dride-wroko fode-wroko freyda Saturday
   7    Jumapili Jumatatu Jumanne Jumatano Alhamisi Ijumaa Jumamosi
   2    söndag måndag tisdag onsdag torsdag fredag lordag
   2    Linggo Lunes Martes Miyerkoles Huwebes Biyernes Sabado
   6    Lé-pài-jít Pài-it Pài-jï Pài-sañ Pài-sì Pài-gÖ. Pài-lák
   7    wan-ar-tit wan-tjan wan-ang-kaan wan-phoet wan-pha-ru-hat-sa-boh-die wan-sook wan-sao
   5    Tshipi Mosupologo Labobedi Laboraro Labone Labotlhano Matlhatso
   6    Pazar Pazartesi Sali Çar,samba Per,sembe Cuma Cumartesi
   2    nedilya ponedilok vivtorok sereda chetver pyatnytsya subota
   8    Chu?_Nhâ.t Thú*_Hai Thú*_Ba Thú*_Tu* Thú*_Na'm Thú*_Sáu Thú*_Ba?y
   6    dydd_Sul dyds_Llun dydd_Mawrth dyds_Mercher dydd_Iau dydd_Gwener dyds_Sadwrn
   3    Dibeer Altine Talaata Allarba Al_xebes Aljuma Gaaw
   7    iCawa uMvulo uLwesibini uLwesithathu uLuwesine uLwesihlanu uMgqibelo
   2    zuntik montik dinstik mitvokh donershtik fraytik shabes
   7    iSonto uMsombuluko uLwesibili uLwesithathu uLwesine uLwesihlanu uMgqibelo
   7    Dies_Dominica Dies_Lunæ Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Saturni
  11    Bazar_gÜnÜ Bazar_ærtæsi Çærs,ænbæ_axs,amò Çærs,ænbæ_gÜnÜ CÜmæ_axs,amò CÜmæ_gÜnÜ CÜmæ_Senbæ
   2    Sun Moon Mars Mercury Jove Venus Saturn
   2    zondag maandag dinsdag woensdag donderdag vrijdag zaterdag
   2    KoseEraa GyoOraa BenEraa Kuoraa YOwaaraa FeEraa Memenaa
   5    Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Sonnabend
   1    Domingo Luns Terza_feira Corta_feira Xoves Venres Sábado
   7    Dies_Solis Dies_Lunae Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Sabbatum
  12    xing-_qi-_tiàn xing-_qi-_yi-. xing-_qi-_èr xing-_qi-_san-. xing-_qi-_sì xing-_qi-_wuv. xing-_qi-_liù
   4    djadomingu djaluna djamars djarason djaweps djabièrnè djasabra
   2    Killachau Atichau Quoyllurchau Illapachau Chaskachau Kuychichau Intichau

zkl[edit]

zkl doesn't grok UTF-8 so I'm using a byte by byte check. It works surprisingly well.

nds:=File("daysOfWeek.txt").read().howza(11)	// stripped lines
.pump(List,Void.Filter,fcn(day){
d,N,m := day.split(),d.len(),(0).max(d.apply("len")); // N==7
foreach n in ([1..m]){
ds:=d.apply("get",0,n); // ("Su","Mo","Tu","We","Th","Fr","Sa")
foreach a,b in (N,[a+1..N-1]){ if(ds[a]==ds[b]) continue(3); } # Th==Fr?
return(n,day); // part way though the words and found unique
}
return(m,day); // no match nowhere
});
foreach n,s in (nds){ println("%3d  %s".fmt(n,s)); }
Output:
  2  Sunday Monday Tuesday Wednesday Thursday Friday Saturday
  2  Sondag Maandag Dinsdag Woensdag Donderdag Vrydag Saterdag
  4  E_djelë E_hënë E_martë E_mërkurë E_enjte E_premte E_shtunë
  2  Ehud Segno Maksegno Erob Hamus Arbe Kedame
  5  Al_Ahad Al_Ithinin Al_Tholatha'a Al_Arbia'a Al_Kamis Al_Gomia'a Al_Sabit
  4  Guiragui Yergou_shapti Yerek_shapti Tchorek_shapti Hink_shapti Ourpat Shapat
  2  domingu llunes martes miércoles xueves vienres sábadu
  2  Bazar_gÜnÜ Birinci_gÜn Çkinci_gÜn ÜçÜncÜ_gÜn DÖrdÜncÜ_gÜn Bes,inci_gÜn Altòncò_gÜn
  6  Igande Astelehen Astearte Asteazken Ostegun Ostiral Larunbat
  4  Robi_bar Shom_bar Mongal_bar Budhh_bar BRihashpati_bar Shukro_bar Shoni_bar
  2  Nedjelja Ponedeljak Utorak Srijeda Cxetvrtak Petak Subota
  5  Disul Dilun Dimeurzh Dimerc'her Diriaou Digwener Disadorn
  2  nedelia ponedelnik vtornik sriada chetvartak petak sabota
 13  sing_kei_yath sing_kei_yat sing_kei_yee sing_kei_saam sing_kei_sie sing_kei_ng sing_kei_luk
  4  Diumenge Dilluns Dimarts Dimecres Dijous Divendres Dissabte
 16  Dzeenkk-eh Dzeehn_kk-ehreh Dzeehn_kk-ehreh_nah_kay_dzeeneh Tah_neesee_dzeehn_neh Deehn_ghee_dzee-neh Tl-oowey_tts-el_dehlee Dzeentt-ahzee
  6  dy_Sul dy_Lun dy_Meurth dy_Mergher dy_You dy_Gwener dy_Sadorn
  2  Dimanch Lendi Madi Mèkredi Jedi Vandredi Samdi
  2  nedjelja ponedjeljak utorak srijeda cxetvrtak petak subota
  2  nede^le ponde^lí úterÿ str^eda c^tvrtek pátek sobota
  2  Sondee Mondee Tiisiday Walansedee TOOsedee Feraadee Satadee
  2  s0ndag mandag tirsdag onsdag torsdag fredag l0rdag
  2  zondag maandag dinsdag woensdag donderdag vrijdag zaterdag
  2  Diman^co Lundo Mardo Merkredo ^Jaùdo Vendredo Sabato
  1  pÜhapäev esmaspäev teisipäev kolmapäev neljapäev reede laupäev
  7  Diu_prima Diu_sequima Diu_tritima Diu_quartima Diu_quintima Diu_sextima Diu_sabbata
  2  sunnudagur mánadagur tÿsdaguy mikudagur hósdagur friggjadagur leygardagur
  2  Yek_Sham'beh Do_Sham'beh Seh_Sham'beh Cha'har_Sham'beh Panj_Sham'beh Jom'eh Sham'beh
  2  sunnuntai maanantai tiistai keskiviiko torsktai perjantai lauantai
  2  dimanche lundi mardi mercredi jeudi vendredi samedi
  4  Snein Moandei Tiisdei Woansdei Tonersdei Freed Sneon
  2  Domingo Segunda_feira Martes Mércores Joves Venres Sábado
  2  k'vira orshabati samshabati otkhshabati khutshabati p'arask'evi shabati
  2  Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag
  2  Kiriaki' Defte'ra Tri'ti Teta'rti Pe'mpti Paraskebi' Sa'bato
  3  ravivaar somvaar mangalvaar budhvaar guruvaar shukravaar shanivaar
  7  pópule pó`akahi pó`alua pó`akolu pó`ahá pó`alima pó`aono
  7  Yom_rishon Yom_sheni Yom_shlishi Yom_revi'i Yom_chamishi Yom_shishi Shabat
  3  ravivara somavar mangalavar budhavara brahaspativar shukravara shanivar
  3  vasárnap hétfö kedd szerda csütörtök péntek szombat