Відстеження списків до часових таблиць

25

Вступ

Ви не ненавидите це, коли хтось завантажує ваш альбом на YouTube, але опис містить лише список треків ? Подобається це:

1. Everything in Its Right Place - 4:11
2. Kid A - 4:44
3. The National Anthem - 5:50
4. How to Disappear Completely - 5:55
5. Treefingers - 3:42
6. Optimistic - 5:16
7. In Limbo - 3:31
8. Idioteque - 5:09
9. Morning Bell - 4:29
10. Motion Picture Soundtrack - 6:59

Тепер ви не знаєте, коли починається Morning Bell, якщо ви не підсумуєте купу разів у голові! Зазвичай якась добра душа пройде мимо і залишить зручну таблицю часу в розділі (страшні) коментарі, який виглядає приблизно так:

(0:00:00) Everything in Its Right Place
(0:04:11) Kid A
(0:08:55) The National Anthem
(0:14:45) How to Disappear Completely
(0:20:40) Treefingers
(0:24:22) Optimistic
(0:29:38) In Limbo
(0:33:09) Idioteque
(0:38:18) Morning Bell
(0:42:47) Motion Picture Soundtrack

Специфікація

  • Ваше завдання - написати програму або функцію, яка приймає перелік треків як вхід, а таблицю часу як вихід.

    • Ви можете обрати для читання введення з STDIN або рядка аргументів або списку аргументів рядків. Аналогічно, ви можете вибрати друк виводу в STDOUT, повернути рядок або повернути список рядків. Якщо цього не зробити, зробіть все, що має сенс для вашої мови.

  • Ви можете припустити, що кожен рядок введення має формат (\d+)\. [A-Za-z0-9 ]{1,100} - (\d+):(\d\d). Для обмежених регулярними виразками це по суті означає, що ви можете припустити, що кожен рядок є добре відформатованим (як вище), а назви пісень складаються лише з буквено-цифрових символів та пробілів ASCII і не мають більше 100 байт.

  • Довжина доріжки завжди не менше 0:01і не більше 59:59.
  • Кількість треків збільшується на порядку, починаючи з 1і нараховуючи не більше ніж 99.
  • Загальна довжина альбому не більше 9:59:59.

Це код-гольф , тому найкоротший код (у байтах) виграє.

Тестовий випадок

Ваша програма повинна правильно виконати перетворення, представлене у вступі ( Kid A Radiohead ). Ось більший тестовий випадок ( Іллінойс 1 Суфяна Стівенса ) з довгими рядками, над якими також повинна працювати ваша програма:

1. Concerning the UFO Sighting Near Highland Illinois - 2:08
2. The Black Hawk War - 2:14
3. Come On Feel the Illinoise - 6:45
4. John Wayne Gacy Jr - 3:19
5. Jacksonville - 5:24
6. A Short Reprise for Mary Todd Who Went Insane but for Very Good Reasons - 0:47
7. Decatur or Round of Applause for Your Stepmother - 3:03
8. One Last Whoo Hoo for the Pullman - 0:06
9. Chicago - 6:04
10. Casimir Pulaski Day - 5:53
11. To the Workers of the Rock River Valley Region - 1:40
12. The Man of Metropolis Steals Our Hearts - 6:17
13. Prairie Fire That Wanders About - 2:11
14. A Conjunction of Drones Simulating the Way - 0:19
15. The Predatory Wasp of the Palisades Is Out to Get Us - 5:23
16. They Are Night Zombies They Are Neighbors They Have Come Back from the Dead Ahhhh - 5:09
17. Lets Hear That String Part Again Because I Dont Think They Heard It All the Way Out in Bushnell - 0:40
18. In This Temple as in the Hearts of Man for Whom He Saved the Earth - 0:35
19. The Seers Tower - 3:53
20. The Tallest Man the Broadest Shoulders - 7:02
21. Riffs and Variations on a Single Note - 0:46
22. Out of Egypt into the Great Laugh of Mankind and I Shake the Dirt from My Sandals as I Run - 4:21

Правильний вихід:

(0:00:00) Concerning the UFO Sighting Near Highland Illinois
(0:02:08) The Black Hawk War
(0:04:22) Come On Feel the Illinoise
(0:11:07) John Wayne Gacy Jr
(0:14:26) Jacksonville
(0:19:50) A Short Reprise for Mary Todd Who Went Insane but for Very Good Reasons
(0:20:37) Decatur or Round of Applause for Your Stepmother
(0:23:40) One Last Whoo Hoo for the Pullman
(0:23:46) Chicago
(0:29:50) Casimir Pulaski Day
(0:35:43) To the Workers of the Rock River Valley Region
(0:37:23) The Man of Metropolis Steals Our Hearts
(0:43:40) Prairie Fire That Wanders About
(0:45:51) A Conjunction of Drones Simulating the Way
(0:46:10) The Predatory Wasp of the Palisades Is Out to Get Us
(0:51:33) They Are Night Zombies They Are Neighbors They Have Come Back from the Dead Ahhhh
(0:56:42) Lets Hear That String Part Again Because I Dont Think They Heard It All the Way Out in Bushnell
(0:57:22) In This Temple as in the Hearts of Man for Whom He Saved the Earth
(0:57:57) The Seers Tower
(1:01:50) The Tallest Man the Broadest Shoulders
(1:08:52) Riffs and Variations on a Single Note
(1:09:38) Out of Egypt into the Great Laugh of Mankind and I Shake the Dirt from My Sandals as I Run

Таблиця лідерів

Щоб ваш рахунок з’явився на дошці, він повинен бути у такому форматі:

# Language, Bytes

Показати фрагмент коду

1. Вибачте Суф'ян, чиїми дивовижними іменами треків мені довелося трохи погладити, щоб вони підходили до простого формату, до якого ця проблема обмежується.

code-golf  string  date 
— Лінн
джерело
Чи може висновок містити пробіли?
— Мартін Ендер
1
Radiohead та Sufjan Stevens? Мех :-P
— Луїс Мендо
Ніп; формат для кожного рядка (h:mm:ss) Track Name, одразу після цього новий рядок.
— Лінн
@LuisMendo Ви можете продемонструвати свої чудові музичні смаки у своїй відповіді ...?
— Лін
Хахаха. Це хороша додаткова мотивація відповідати. До речі, мені сподобався виклик, і я його схвалив
— Луїс Мендо

Відповіді:

12

CJam, 60 57 55 байт

Завдяки Sp3000 за збереження 2 байт.

qN/{T60bZ0e["(%d:%02d:%02d) "e%\S/1>)':/60bT+:T;W<S*N}/

Перевірте це тут.

Пояснення

qN/{      e# Read input and split into lines.
  T60b    e# Push T (initially zero, we use this to keep track of the total time in
          e# seconds), and convert it to base 60.
  Z0e[    e# Pad it with zeroes to 3 digits to get hours, minutes, seconds.
  "(%d:%02d:%02d) "e%
          e# Get the (h:mm:ss) part using a format string.
  \S/     e# Pull up the current line, split on spaces.
  1>      e# Discard the first segment, i.e. the track number.
  )':/    e# Pull off the last segment, i.e. the time, and split on colons.
  60b     e# Interpret the two parts as base-60 digits to get the amount of seconds
          e# for the track.
  T+:T;   e# Add this to T and discard it.
  W<      e# Discard the last segment of the remaining string (the hyphen).
  S*N     e# Join the song name back together with spaces and push a line feed.
}/
— Мартін Ендер
джерело
16
goddammit Martin
— cjfaure
6

Perl, (93 символи плюс -p) 94 байти

s!\d+\. (.+) - (\d+:(\d+))!sprintf"(%d:%02d:%02d) $1",$n/3600,$n%3600/60,$n%60,$n+=$3+60*$2!e

Бігти:

perl -pe 's!\d+\. (.+) - (\d+:(\d+))!sprintf"(%d:%02d:%02d) $1",$n/3600,$n%3600/60,$n%60,$n+=$3+60*$2!e' <<< '<input>'
— Дом Гастінгс
джерело
5

C ++, 212 209 202 189 байт

C ++ тому що .. чому б і ні?

#include<iostream>
long d,t,u;main(){std::string a,b(8,0);while(getline(std::cin>>t>>a[0],a,'-')>>t>>b[0]>>u){strftime(&b[0],9,"%T",gmtime(&d));b[0]='(';std::cout<<b+")"+a+'\n';d+=t*60+u;}}

Live: 212 209 202 189

— wendelbsilva
джерело
5

Пітон 2, 170 160 байт

Пройшов час, як я займався гольфом, сподіваюся, це не дуже погано: P

t=0
for i in input().split('\n'):i=i.split(' - ');print'(%d:%02d:%02d)'%(t/3600,t%3600/60,t%60),i[0].split('. ')[1];k=i[-1].split(':');t+=int(k[0])*60+int(k[1])

Вхід повинен бути оточений лапками і розділений на нові рядки, наприклад:

"1. Concerning the UFO Sighting Near Highland Illinois - 2:08\n2. The Black Hawk War - 2:14\n3. Come On Feel the Illinoise - 6:45\n4. John Wayne Gacy Jr - 3:19\n5. Jacksonville - 5:24\n6. A Short Reprise for Mary Todd Who Went Insane but for Very Good Reasons - 0:47\n7. Decatur or Round of Applause for Your Stepmother - 3:03\n8. One Last Whoo Hoo for the Pullman - 0:06\n9. Chicago - 6:04\n10. Casimir Pulaski Day - 5:53\n11. To the Workers of the Rock River Valley Region - 1:40\n12. The Man of Metropolis Steals Our Hearts - 6:17\n13. Prairie Fire That Wanders About - 2:11\n14. A Conjunction of Drones Simulating the Way - 0:19\n15. The Predatory Wasp of the Palisades Is Out to Get Us - 5:23\n16. They Are Night Zombies They Are Neighbors They Have Come Back from the Dead Ahhhh - 5:09\n17. Lets Hear That String Part Again Because I Dont Think They Heard It All the Way Out in Bushnell - 0:40\n18. In This Temple as in the Hearts of Man for Whom He Saved the Earth - 0:35\n19. The Seers Tower - 3:53\n20. The Tallest Man the Broadest Shoulders - 7:02\n21. Riffs and Variations on a Single Note  - 0:46\n22. Out of Egypt into the Great Laugh of Mankind and I Shake the Dirt from My Sandals as I Run - 4:21"
— Каде
джерело
4
Я думаю, ви можете просто %dза лічильник годин (якщо я правильно розумію правила!) Для -2!
— Дом Гастінгс
Додайте 4 символи ( inputдо raw_input), щоб прийняти точний формат; інакше я вважаю, що він недійсний, оскільки передбачає рядки в іншому форматі.
— РК.
3

Гема, 151 персонаж

\B=@set{t;}
<D>. * - <D>\:<D>=(@div{$t;3600}:@fill-right{00;@div{@mod{$t;3600};60}}:@fill-right{00;@mod{$t;60}}) *@set{t;@add{@add{$t;$4};@mul{$3;60}}}

Проба зразка:

bash-4.3$ gema '\B=@set{t;};<D>. * - <D>\:<D>=(@div{$t;3600}:@fill-right{00;@div{@mod{$t;3600};60}}:@fill-right{00;@mod{$t;60}}) *@set{t;@add{@add{$t;$4};@mul{$3;60}}}' tracklist.txt
(0:00:00) Concerning the UFO Sighting Near Highland Illinois
(0:02:08) The Black Hawk War
(0:04:22) Come On Feel the Illinoise
(0:11:07) John Wayne Gacy Jr
(0:14:26) Jacksonville
(0:19:50) A Short Reprise for Mary Todd Who Went Insane but for Very Good Reasons
(0:20:37) Decatur or Round of Applause for Your Stepmother
(0:23:40) One Last Whoo Hoo for the Pullman
(0:23:46) Chicago
(0:29:50) Casimir Pulaski Day
— маневреність
джерело
3

Python 2, 207 206 байт

h=m=s=0
for i in raw_input().splitlines():
 print("(%d:%.2d:%.2d) "%(h,m,s),i.split('-')[0].split('. ')[1])
 t=i.split('-')[1].split(':')
 m+=int(t[0]);s+=int(t[1]);r=s//60;s-=r*60;m+=r;r=m//60;m-=r*60;h+=r

Використання

$ python test.py
'1. Concerning the UFO Sighting Near Highland Illinois - 2:08\n2. The Black Hawk War - 2:14\n3. Come On Feel the Illinoise - 6:45'
(0:00:00) Concerning the UFO Sighting Near Highland Illinois 
(0:02:08) The Black Hawk War 
(0:04:22) Come On Feel the Illinoise
— Зак Гейтс
джерело
Яку версію Python 3 ви використовуєте? Я думав, що raw_inputіснує лише в Python 2.
— Lynn
Виправлено. Я думаю, що я просто звик набирати "3". @Mauris
— Zach Gates
1

awk, 119 101 байт

{split($NF,t,":");$1=$(--NF)="";--NF;print"("substr(strftime("%H:%M:%S",s,1),2)")"$0;s+=t[1]*60+t[2]}

Це шлях довший, ніж я хотів. Проблема полягає в тому %H, що години не форматуються так, як потрібно, тому мені потрібно було самому обчислити години.

Ак, я дурний. Результати strftimeбули помилковими, тому що мені потрібно було сказати, щоб він використовував час UTC. Це вирізало 18 байт!

119-байтна версія

{split($NF,t,":");$1=$(--NF)="";--NF;print"("(h||0)":"strftime("%M:%S",s)")"$0;s=(r=s+t[1]*60+t[2])%3600;h=int(r/3600)}
— kirbyfan64sos
джерело
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.