aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
Download patch file Download diff file Expand all files Collapse all files

0
Task/Abbreviations-automatic/Delphi/abbreviations-automatic.delphi → Task/Abbreviations-automatic/Delphi/abbreviations-automatic.pas
View file

0
Task/Abbreviations-automatic/Julia/abbreviations-automatic.julia → Task/Abbreviations-automatic/Julia/abbreviations-automatic.jl
View file

0
Task/Abbreviations-automatic/Kotlin/abbreviations-automatic-1.kotlin → Task/Abbreviations-automatic/Kotlin/abbreviations-automatic-1.kts
View file

0
Task/Abbreviations-automatic/Kotlin/abbreviations-automatic-2.kotlin → Task/Abbreviations-automatic/Kotlin/abbreviations-automatic-2.kts
View file

18
Task/Abbreviations-automatic/PHP/abbreviations-automatic.php Normal file
View file

@ -0,0 +1,18 @@
function genMinAbbr(array $days): array {
$len = 0;
while(true) {
$dict = [];
$len++;
foreach($days as $day) {
$abbr = substr($day, 0, $len);
if (isset($dict[$abbr])) continue 2;
$dict[$abbr] = true;
}
return array_keys($dict);
}
}
foreach(explode("\n", file_get_contents("days-of-the-week.txt")) as $line) {
if (!$line) { echo "\n"; continue; }
echo implode(" ", genMinAbbr(explode(" ", $line))) . "\n";
}

0
Task/Abbreviations-automatic/Rust/abbreviations-automatic.rust → Task/Abbreviations-automatic/Rust/abbreviations-automatic.rs
View file

12
Task/Abbreviations-automatic/Uiua/abbreviations-automatic.uiua
View file

@ -1,5 +1,4 @@
# Experimental!
# Find shortest distinct abbreviation length per line
# Find shortest distinct abbreviation per line
Lines ← {"Sunday Monday Tuesday Wednesday Thursday Friday Saturday"
"sing_kei_yaht sing_kei_yat sing_kei_yee sing_kei_saam sing_kei_sie sing_kei_ng sing_kei_luk"
@ -7,11 +6,6 @@ Lines ← {"Sunday Monday Tuesday Wednesday Thursday Friday Saturday"
"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"}
# Return 1+max_common_prefix
AbbrevLen ← +1/↥◹(/↥↘1)⊞(/+\↧⬚@ =∩°□).
Split ← ⊜□⊸(≠@ )
RemoveEmpty ← ▽⊸(≡(≠0◇⧻))
Line ← ⊂⊂:": " °⋕:⊸(/(⊂⊂) " "≡(⬚@ ↙:°□)⊙¤)⟜AbbrevLen ◇Split
≡⍚Line RemoveEmpty Lines
≡&p
Pref ← +1⬚¯1⊢⊚¬⬚@ ≡≍ # for two strings give pos of first diff char
≡◇(&p$"_: _" :/$"_ _"⟜(⧻⊢)≡◇⬚@ ↙/↥/↥⊞◇Pref..Split)▽⊸≡(>0◇⧻)Lines