Wakacyjny ból głowy


14

Ostrzeżenie: NIE zasięgaj porady lekarskiej z tego postu. Jeśli potrzebujesz porady medycznej, idź do wykwalifikowanego specjalisty.

Boli mnie głowa. Potrzebuję pigułek na ból głowy.

Powiem ci kilka ostatnich dawek, które miałem, a ty powiesz mi, kiedy będę mógł przyjąć kolejną dawkę bez przedawkowania.

Dam ci ten ciąg: P: 00:00, I: 02:00, P: 04:00, I: 06:00

I dasz mi to: Next P: 08:00, I: 10:00

Wejście:

Ciąg reprezentujący czas, w którym wzięto każdy lek, w następującym formacie:

P: 00:00, I: 02:00, P: 04:00, I: 06:00

Oznacza to, że Paracetamol został przyjęty o 00:00 i 04:00, a Ibuprofen został przyjęty o 02:00 i 06:00

Dane wyjściowe (zaktualizowane):

Ciąg znaków określający czas wykonania następnego leku dla każdego leku, w następującym formacie:

Next P: 08:00, I: 10:00
  • Kolejność wyjściowa powinna być w kolejności, w jakiej przyjmowany jest lek. - Jeśli Ibuprofen ma być przyjmowany o 09:35 i Paracetamol i 10:22, wówczas wynik powinien byćNext I: 09:35, P: 10:22
  • Jeśli czasy dla następnej dawki każdego leku są takie same, kolejność wyjściowa nie ma znaczenia: Next P: 08:00, I: 08:00LUBNext I: 08:00, P: 08:00
  • Jeśli pobierany jest tylko jeden lek (w ciągu wejściowym), wówczas tylko ten lek powinien znajdować się w ciągu wyjściowym: Next P: 02:00

Zasady:

  • Będą tylko dwa rodzaje leków: Paracetamol „P” i Ibuprofen „I”.
  • Paracetamol można przyjmować raz na 4 godziny, maksymalnie 4 razy w ciągu 24 godzin.
  • Ibuprofen można również przyjmować raz na 4 godziny, maksymalnie 4 razy w ciągu 24 godzin.
  • Paracetamol i ibuprofen można przyjmować razem lub w oddzielnych porach. Jeden nie liczy się do dawki drugiego.
  • Czasy w ciągu wejściowym będą zawsze następujące po sobie, ale mogą upłynąć o północy (23:00 -> 03:00)
  • Czasy w ciągu wejściowym nie będą obejmować więcej niż 24 godziny
  • Maksymalnie 4 razy na każdy lek (łącznie maksymalnie 8)
  • Dane wejściowe zawsze będą niepuste i będą zawierać co najmniej jeden lek i jeden raz

Przykłady:

Dwie dawki każdej w dwugodzinnych odstępach:

"P: 00:00, I: 02:00, P: 04:00, I: 06:00" -> "Next P: 08:00, I: 10:00"

Pojedyncza dawka Paracetamolu

"P: 22:00" -> "Next P: 02:00"

Maksymalna dawka paracetamolu w ciągu 24 godzin, pojedyncza dawka ibuprofenu

"P: 04:05, P: 08:10, P: 12:15, I: 12:30, P: 16:25" -> "Next I: 16:30, P: 04:05"

Przypadki testowe:

"I: 06:00" -> "Next I: 10:00"
"P: 22:00" -> "Next P: 02:00"
"P: 22:00, P: 02:00, I: 06:00" -> "Next P: 06:00, I: 10:00"
"P: 00:00, I: 02:00, P: 04:00, I: 06:00" -> "Next P: 08:00, I: 10:00"
"P: 04:05, P: 08:10, P: 12:15, I: 12:30, P: 16:25" -> "Next I: 16:30, P: 04:05"
"I: 06:32, P: 08:15, I: 10:44, P: 13:03" -> "Next I: 14:44, P: 17:03"
"P: 07:30, I: 07:30, P: 11:30, I: 11:30, P: 15:30, I: 15:30, I: 19:30" -> "Next P: 19:30, I: 07:30"
"I: 07:30, P: 11:30, I: 11:30, P: 15:30, I: 15:30, P: 19:30, I: 19:30" -> "Next P: 23:30, I: 07:30"
"P: 07:30, I: 07:30, P: 11:30, I: 11:30, P: 15:30, I: 15:30, P: 19:30, I: 19:30" -> "Next P: 07:30, I: 07:30" OR "Next I: 07:30, P: 07:30"

To jest kod golfowy, więc wygrywa najkrótsza odpowiedź int bajtów.

AKTUALIZACJA:

Wynikiem mogą być teraz skróty Paracetamolu i Ibuprofenu; PiI


Byłoby miło mieć jakąś dźwignię na formacie wejściowym i wyjściowym - meta post
Gurupad Mamadapur,

Wyjście @GurupadMamadapur może, ale wyodrębnienie czasów i rodzaju leków z wejścia to połowa wyzwania
Erresen,

Polecam, abyś pozwolił ludziom skracać w paracetamolu i ibuprofenie moc wyjściową, ponieważ dodają niepotrzebnej długości do zgłoszeń
Cyoce

@Cyoce tak Zgadzam się, sam próbuję rozwiązania i jest to trochę skomplikowane - zaktualizowałem zasady, aby umożliwić skrócenie wyników
Erresen

@Lynn zgodził się i zaktualizował
Erresen,

Odpowiedzi:


4

JavaScript (ES6), 367 362 354 358 bajtów

Wersja golfowa:

A=i=>i>9?""+i:"0"+i,B=(s,a=":")=>s.split(a),C=(a,b,c,d)=>[...[s,t]=B((b>3?c:d)||":"),a+` ${A(s=b>3?+s:(+s+4)%24)}:`+A(t=+t)],F=s=>{a=B(s,m=", ");for(b=c=d=e=f=p=q=0;f<a.length;g=="P:"?(b++,d=d?h:p=h):(c++,e=e?h:q=h))[g,h]=B(a[f++]," ");[i,j,k]=C("P",b,p,d),[n,o,l]=C("I",c,q,e),r=B(h)[0];return"Next "+c?b?n*60+(n<r)*1440+j<i*60+(i<r)*1440+o?l+m+k:k+m+l:l:k}

Nieprzyznany / skomentował:

// Returns a zero-padded string of the argument.
A=i=>i>9?""+i:"0"+i,

// Since we do a lot of splitting, alias it. Making the
// second argument optional (and defaulting to ':') saved
// 3 bytes
B=(s,a=":")=>s.split(a),

// Constructs a string for output, along with the time
// of the next dose, in the format [hour, minute, string].
// Arguments:               type
// a -> type (P/I)          String
// b -> amount of doses     Number
//      taken
// c -> first dose taken    String
// d -> last dose taken     String
//
// The first two values are split from the string, but
// before the array is returned, they are converted to
// integers (during the string construction).
C=(a,b,c,d)=>[...[s,t]=B((b>3?c:d)||":"),a+` ${A(s=b>3?+s:(+s+4)%24)}:`+A(t=+t)],

// Main function. Returns the time(s) for the next dose.
// Argument:                type
// s -> list of times of    String
//      and types of 
//      doses taken
F=s=>{
    a=B(s,m=", "); // Split the input by comma + space,
                   // and save that string, since we
                   // need it later when constructing
                   // the output string.
    // For loop has been restructured. Original:
    // for(b=c=f=0;f<a.length;g=="P:"?(b++,d=d?h:p=h):(c++,e=e?h:q=h))
    //     [g,h]=B(a[f++]," ");
    b = 0; // P-dose counter
    c = 0; // I-dose counter
    d = 0; // Last P-dose
    e = 0; // Last I-dose
    p = 0; // First P-dose
    q = 0; // First I-dose
    for (f = 0; f < a.length; f++) {
        [g, h] = B(a[f], " ");  // g contains the type,
                                // h contains the time
        if (g == "P:") {
            b++;                // increase the counter

            if (d == 0) {   // store h in p if this is
                p = h;      // the first dose of this
            }               // type
            d = h;
        } else {
            // See the above code block for comments
            c++;

            if (e == 0) {
                q = h;
            }
            e = h;
        }
    }
    // End of restructured for loop.

    // Construct the output strings, and get the times.
    // See comments at C function.
    [i, j, k] = C("P", b, p, d);
    [n, o, l] = C("I", c, q, e);

    // Get the amount of hours of the dose taken last.
    // We use this to get the correct order of the two
    // times.
    r = B(h)[0];

    // Return statement has been restructured. Original:
    // return "Next "+c?b?n*60+(n<r)*1440+j<i*60+(i<r)*1440+o?l+m+k:k+m+l:l:k
    //==================================================
    // Start creating the output string.
    output = "Next "
    // Use the following checks to figure out what needs
    // to be part of the output and in what order.
    if (c > 0) {
        if (b > 0) {
            // Compare the times of next doses
            // P_time = (i + (i < r) * 24) * 60
            // I'm using implicit conversion of
            // booleans to numbers. If the next
            // dose is past midnight, add 1 * 24
            // to the time, so it is compared
            // correctly.
            // Then add the minutes to the number.
            P_time = i*60+(i<r)*1440+o;
            I_time = n*60+(n<r)*1440+j;

            if (I_time < P_time) {
                output += l + m + k; // I first
            } else {
                output += k + m + l; // P first
            }
        } else {
            output += l; // Just I
        }
    } else {
        output += k; // Just P
    }

    // Finally, return the output
    return output;
}

Aby go użyć, wywołaj F z ciągiem jako argumentem:

F("P: 04:00, I: 06:00")

To świetnie, ale miałem kilka problemów. Wydaje się, że zawodzi, jeśli na wejściu jest tylko jeden rodzaj pigułki, np. F("P: 22:00")-> ReferenceError: q is not defined. Dane wejściowe zostaną uruchomione, jeśli wcześniej wspomniano o P&I, ale ze starymi szczegółami dla I.
Chris M

Dzięki! Właśnie to przetestowałem i masz rację co do błędu odniesienia. Chyba zmienna q nie jest resetowana i nie zwracałem wystarczającej uwagi podczas testowania. Dzięki za informację, naprawię to później.
Łukasz

Okazało się, że jest to łatwa naprawa, ale kosztowało mnie 4 bajty.
Łukasz

1

Python 3 - 437 bajtów

a=input();i=p=l=-1;j=q=0
for x in a.split(", ")[::-1]:
    for y, z in [x.split(": ")]:
        s=lambda q,r,t:[t,sum([a*b for a,b in zip([60,1],map(int,q.split(':')))])][r%4<2]+[0,240][r<2]
        if y=="I":j+=1;i=s(z,j,i)
        else:q+=1;p=s(z,q,p)
        l=[l,p+i-239][j+q<2]
r=lambda d,e:("","%s: %02d:%02d, "%(d,(e/60)%24,e%60))[e>-1];p+=[1440,0][p>=l];i+=[1440,0][i>=l];print("Next "+[r("I",i)+r("P",p),r("P",p)+r("I",i)][p<i][:-2])

Wyjaśnienie:

a=input();i=p=l=-1;j=q=0
for x in a.split(", ")[::-1]: #Read in reverse order, a="P: 01:00"
    for y, z in [x.split(": ")]:#Y="P", Z="00:00"
        s=
        lambda q,r,t:[t,sum([a*b for a,b in zip([60,1],map(int,q.split(':')))])]#Convert "01:01" to 61
        [r%4<2]#In case it's the first or fourth string calculate a new value, otherwise: return the original value
        +[0,240][r<2]#In case it's the last string: add 4 hours. Otherwise, leave it.
        if y=="I":j+=1;i=s(z,j,i)#Calculate for i
        else:q+=1;p=s(z,q,p)#Calculate for p
        l=[l,p+i-239][j+q<2]#Sets the last record. Since we read in reverse order, this should be the first one. We've added 4 hours though so remove those again
r=lambda d,e:("","%s: %02d:%02d, "%(d,(e/60)%24,e%60))[e>-1];#Print function, don't print anything when we have no value
p+=[1440,0][p>=l];i+=[1440,0][i>=l];    #Add a day if record is before the last record so we can correctly calculate the order
print("Next "+[r("I",i)+r("P",p),r("P",p)+r("I",i)][p<i][:-2])#print it and remove the last ","

1

PHP, 228 241 239 227 226 bajtów

wymaga PHP 7

Next<?foreach(explode(", ",$argv[1])as$d){[$m,$h,$i]=explode(":",$d);$x[$m][++$$m]=24+$h+$i/60;}foreach($x as$m=>$d)$r[$m]=$d[$$m-3]?:$d[$$m]-20;sort($r);foreach($r as$m=>$t)$o[]=" $m: ".date("i:s",$t%24*60);echo join(",",$o);

awaria

Next<?                              // print "Next"
foreach(explode(", ",$argv[1])as$d) // loop through string split by comma+space
{
    [$m,$h,$i]=explode(":",$d);         // separate drug, hours and minutes
    $x[$m][++$$m]=24+$h+$i/60;          // append time to array, track count in ${$m}
}                                       // (i.e. $P for drug "P" etc.)
foreach($x as$m=>$d)                // loop through drugs
    $r[$m]=                             // add time to result
        $d[$$m-3]                           // if more than 3 medications, use $$m-3
            ??$d[$$m]-20                    // else use last medication - 20 hours
    ;
sort($r);                           // sort results by time
foreach($r as$m=>$t)$o[]=" $m: "    // prepare for output: drug name and formatted time:
    .date("i:s",$t%24*60)           // use hrs as mins and mins as secs to avoid TZ problems
;
echo join(",",$o);                  // print

0

JavaScript (ES6), 246 bajtów

s=>s.split`, `.map(s=>(m[s[0]].unshift(t=s.replace(/\d+/,h=>(h=(1+h)%24)>9?h:`0`+h),s),l=l||t.slice(1)),l=0,m={I:[],P:[]})&&`Next `+[].concat(m.I[7]||m.I[0]||[],m.P[7]||m.P[0]||[]).sort((i,p)=>((i=i.slice(1))<l)-((p=p.slice(1))<l)||i>p).join`, `

Wyjaśnienie:

Pętle nad każdą dawką, Ii Pdawki są podzielone na dwie tablice. Do każdej dawki dodawane są również 4 godziny, a czasy te są również zapisywane. Tablice są wypełniane w odwrotnej kolejności, aby ułatwić wykrywanie 8 wpisów. Czas 4 godziny po pierwszej dawce jest również zapisywany do wykorzystania podczas sortowania. W tym momencie każda tablica może znajdować się w jednym z trzech stanów:

  • 8 wpisów, w którym to przypadku ostatni wpis jest pierwszą dawką, a następna dawka musi nastąpić 24 godziny po tej dawce (tj. Jutro o tej samej godzinie)
  • 2, 4 lub 6 wpisów, w którym to przypadku pierwszy wpis następuje 4 godziny po ostatniej dawce, a zatem czas następnej dawki
  • 0 wpisów, w takim przypadku konkatentujemy [], który zostaje spłaszczony, a zatem wykluczony z wyniku

Po wyodrębnieniu następnych dawek z dwóch tablic, pozostaje je uporządkować. Odbywa się to poprzez porównanie ich z czasem 4 godziny po pierwszej dawce. Jeśli jeden z tych dwóch przypadków przypada wcześniej, musi to odnosić się do jutra, a ta dawka jest ostatnia. W przeciwnym razie czasy są po prostu porównywane bezpośrednio. (Raczej niewygodnie, lek jest przed czasem, więc muszę go rozebrać, aby porównać poprawnie.)

Korzystając z naszej strony potwierdzasz, że przeczytałeś(-aś) i rozumiesz nasze zasady używania plików cookie i zasady ochrony prywatności.
Licensed under cc by-sa 3.0 with attribution required.