Sequenzen kreuzen


11

Kreuzungssequenzen

ANennen Sie eine Liste positiver Ganzzahlen eine aufsteigende Folge, wenn jedes Element größer oder gleich dem vorherigen ist. und nenne es eine abnehmende Sequenz, wenn jedes Element kleiner oder gleich dem vorherigen ist.

Einige zunehmende Sequenzen:

[1,2,4,7]
[3,4,4,5]
[2,2,2]
[]

Einige abnehmende Sequenzen:

[7,4,2,1]
[5,4,4,3]
[2,2,2]
[]

Eine Kreuzungssequenz ist eine Liste, die in zwei disjunkte Teilsequenzen zerlegt werden kann, eine eine zunehmende Sequenz und die andere eine abnehmende Sequenz.

Zum Beispiel die Liste:

[3,5,2,4,1]

ist eine Kreuzungssequenz, da sie zerlegt werden kann in:

[3,    4  ]
[  5,2,  1]

wo [3,4]ist die zunehmende Teilsequenz und [5,2,1]ist die abnehmende Teilsequenz. Wir werden ein solches Paar von (zunehmenden, abnehmenden) Teilsequenzen eine Zerlegung der Kreuzungssequenz nennen.

Die Liste:

[4,5,2,1,3]

ist keine Kreuzungssequenz; Es gibt keine Möglichkeit, es in eine zunehmende und abnehmende Teilfolge zu zerlegen.

Ihre Aufgabe ist es, ein Programm / eine Funktion zu schreiben, die eine Liste positiver Ganzzahlen als Eingabe verwendet. und wenn es sich um eine Kreuzungssequenz handelt, geben Sie die beiden Listen in einer ihrer Zerlegungen zurück; oder ein konsistenter "Falsey" -Wert, wenn die Liste keine Kreuzungssequenz ist.

Das ist ; Das kürzeste Programm / die kürzeste Funktion in jeder Sprache ist der Gewinner.

Regeln:

  • Die Eingabe ist flexibel.
  • Die üblichen Lücken sind verboten.
  • Wenn es mehrere gültige Möglichkeiten gibt, die Eingabe zu zerlegen, können Sie eine oder alle ausgeben.
  • Die Ausgabeformatierung für die Zerlegung ist flexibel. es muss jedoch hinsichtlich der Unterscheidung zwischen den beiden Teilsequenzen eindeutig sein.
  • Sie können einen beliebigen konsistenten Ausgabewert verwenden, um anzuzeigen, dass die Eingabe keine Kreuzungssequenz ist. solange es im Vergleich zur Ausgabe für eine Kreuzungssequenz eindeutig ist. Sie sollten den Falsey-Wert in Ihrer Antwort angeben.

Testfälle:

Verwenden False, um nicht kreuzende Sequenzen anzuzeigen:

[3, 5, 2, 4, 1] => [3, 4], [5, 2, 1]
[3, 5, 2, 4, 4, 1, 1] => [3, 4, 4], [5, 2, 1, 1]

[7, 9, 8, 8, 6, 11] => [7, 8, 8, 11], [9, 6]
[7, 9, 8, 8, 6, 11] => [7, 9, 11], [8, 8, 6] # also valid
[7, 9, 8, 8, 6, 11] => [7, 8, 11], [9, 8, 6] # also valid

[7, 8, 9, 10, 20, 30] => [7, 8, 9, 20, 30], [10]
[7, 8, 9, 10, 20, 30] => [8, 9, 10, 20, 30], [7] # this is also valid

[5, 5, 5] => [5, 5, 5], []

[4, 5, 2, 1, 3] => False
[3, 4, 3, 4, 5, 2, 4] => False

2
Mögliches Duplikat . Ich sehe nur zwei Unterschiede darin, dass die andere Herausforderung in Polynomzeit in der Länge der Eingabe ausgeführt werden sollte und anstelle der beiden Teilsequenzen einen wahrheitsgemäßen Wert zulässt (die Rückgabe der Teilsequenzen selbst erhält jedoch einen Bonus von 20%). Klingt für mich immer noch wie ein Betrüger, aber ich werde es nicht hämmern.
Kevin Cruijssen

@ KevinCruijssen Zeitbeschränkung allein reicht wahrscheinlich aus, um dies nicht zu einem Betrüger zu machen.
Nick Kennedy

1
@ NickKennedy Möglicherweise ja, weshalb ich es unterlassen habe, es zu hämmern. :)
Kevin Cruijssen

2
Vorgeschlagener Testfall : [3, 5, 2, 4, 4, 1, 1]. Mit den aktuellen Testfällen können Sie mit >=/ davonkommen <, wenn es wirklich >=/ sein sollte <=.
Grimmy

1
@Arnauld: Ja, es kann ein beliebiger Wert sein ("falsey" bedeutet nur: Es ist falsch, dass die Eingabe eine Kreuzungssequenz ist).
Chas Brown

Antworten:


1

05AB1E , 15 14 13 Bytes

2.Œ.ΔćRšεü@}W

Probieren Sie es online aus oder validieren Sie alle Testfälle .

Erläuterung:

2.Œ                    # all partitions of the input in 2 subsequences
   .Δ                  # find the first partition such that the following gives 1
     ćRš               # reverse the first subsequence
        ε  }           # map each subsequence to
         ü@            # pairwise greater-than
            W          # minimum (1 if all 1s, 0 otherwise)


1

JavaScript (ES6),  110 105  104 Byte

[[decreasing], [increasing]]1

f=(a,n,b=[[],[]])=>a.some((v,i)=>[...x=b[i=n>>i&1]].pop()*(x.push(v),i-=!i)>v*i)?n>>a.length||f(a,-~n):b

Probieren Sie es online aus!

Wie?

n02LL

b[0]b[1]in

1i=11i=0

[...x = b[i = n >> i & 1]].pop() * (x.push(v), i -= !i) > v * i

bsome()


1

Haskell, 84 Bytes

(([],[])#)
(d,i)#(a:b)=(#b)=<<[(d++[a],i)|all(a<=)d]++[(d,i++[a])|all(a>=)i]
p#_=[p]

Gibt eine Liste aller gültigen (decreasing,increasing)Paare oder die leere Liste zurück, wenn es kein solches Paar gibt.

Probieren Sie es online aus!


1

Python 3 , 109 107 Bytes

def f(l,i=[],d=[]):
 if l:s,*r=l;i and s<i[-1]or f(r,i+[s],d);d and s>d[-1]or f(r,i,d+[s])
 else:print(i,d)

Probieren Sie es online aus!

Die Funktion druckt alle möglichen Zerlegungen in die Standardausgabe. Wenn keine möglichen Zerlegungen möglich sind, wird nichts gedruckt.

Vielen Dank an @Sriotchilism O'Zaic für Verbesserungsvorschläge.


Willkommen auf der Website. Ich schlage vor, s<i[-1]eher als i[-1]>s und ähnlich zu tun d[-1]<s , beide speichern ein Byte.
Ad-hoc-Garf-Jäger

Danke für den Vorschlag. Ich habe die Antwort aktualisiert. Gibt es hier eine kopierbare Vorlage zum Veröffentlichen von Antworten?
Joel

Ich bin mir nicht sicher was du meinst? TIO hat eine Vorlage, die Sie anscheinend bereits verwenden.
Ad-hoc-Garf-Jäger

Ich habe nur einen Link auf TIO generiert und den Link zu meinem Beitrag hinzugefügt. Ich habe dort keine Vorlage verwendet. Wo ist es?
Joel

1
@Joel - Oben auf der TIO-Seite befindet sich ein Symbol, das wie Kettenglieder aussieht. Klicken Sie darauf, und Sie erhalten eine Seite mit Optionen. Eines davon ist "Code Golf Submission". Dadurch wird das gewünschte formatierte Material in Ihren Kopierpuffer gestellt! Willkommen auch und schöne Lösung!
Chas Brown

0

Brachylog , 17 Bytes

;Ṣzpᵐz{ℕˢ}ᵐ≤₁ʰ≥₁ᵗ

Probieren Sie es online aus!

Es gibt wahrscheinlich viel Platz zum Golfen.


2
Sie haben diese Herausforderung bereits zuvor hier beantwortet , wo Sie sie in 16 Bytes ausgeführt haben. ;)
Kevin Cruijssen

Ich konnte das Gefühl nicht loswerden, dass es etwas Ähnliches gab, das ich getan hatte, aber aus irgendeinem Grund entschied mein Verstand, dass es stattdessen dieses gewesen sein musste
Unrelated String

Durch die Nutzung unserer Website bestätigen Sie, dass Sie unsere Cookie-Richtlinie und Datenschutzrichtlinie gelesen und verstanden haben.
Licensed under cc by-sa 3.0 with attribution required.