Abbreviations, automatic: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (Automated syntax highlighting fixup (second round - minor fixes)) |
No edit summary |
||
Line 3,163: | Line 3,163: | ||
2 Killachau Atichau Quoyllurchau Illapachau Chaskachau Kuychichau Intichau |
2 Killachau Atichau Quoyllurchau Illapachau Chaskachau Kuychichau Intichau |
||
</pre> |
</pre> |
||
=={{header|Factor}}== |
|||
This assumes a text file named "DaysOfWeek.txt" is in the same folder as the code file. |
|||
<syntaxhighlight lang="futurebasic"> |
|||
include "NSLog.incl" |
|||
include resources "DaysOfWeek.txt" |
|||
local fn DaysOfWeek as CFArrayRef |
|||
'~'1 |
|||
CFURLRef url |
|||
CFStringRef string |
|||
CFArrayRef weeks = NULL |
|||
url = fn BundleURLForResource( fn BundleMain, @"DaysOfWeek", @"txt", NULL ) |
|||
string = fn StringWithContentsOfURL( url, NSUTF8StringEncoding, NULL ) |
|||
if ( string ) |
|||
weeks = fn StringComponentsSeparatedByCharactersInSet( string, fn CharacterSetNewlineSet ) |
|||
end if |
|||
end fn = weeks |
|||
local fn MinLengthAbbreviation( week as CFStringRef ) as long |
|||
'~'1 |
|||
CFArrayRef days |
|||
CFStringRef day1, day2, abbr |
|||
long count, length, minLen, index1, index2 |
|||
minLen = 1 |
|||
days = fn StringComponentsSeparatedByString( week, @" " ) |
|||
if ( len( days ) == 7 ) |
|||
count = len( days ) |
|||
for index1 = 0 to count - 1 |
|||
day1 = days[index1] |
|||
length = len( day1 ) |
|||
abbr = left( day1, minLen ) |
|||
for index2 = 0 to count - 1 |
|||
if ( index2 != index1 ) |
|||
day2 = days[index2] |
|||
while ( fn StringHasPrefix( day2, abbr ) ) |
|||
minLen++ |
|||
if ( minLen <= length ) |
|||
abbr = left( day1, minLen ) |
|||
else |
|||
break |
|||
end if |
|||
wend |
|||
end if |
|||
next |
|||
next |
|||
end if |
|||
end fn = minLen |
|||
void local fn Abbreviations |
|||
'~'1 |
|||
CFArrayRef weeks |
|||
CFStringRef week |
|||
weeks = fn DaysOfWeek |
|||
if ( weeks ) |
|||
for week in weeks |
|||
if ( len(week) ) |
|||
NSLog(@"%ld\t%@",fn MinLengthAbbreviation( week ),week) |
|||
else |
|||
NSLog(@"NULL") |
|||
end if |
|||
next |
|||
end if |
|||
end fn |
|||
fn Abbreviations |
|||
HandleEvents |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre style="height:20ex;"> |
|||
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 |
|||
NULL |
|||
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 |
|||
7 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 |
|||
</pre> |
|||
=={{header|Go}}== |
=={{header|Go}}== |