Als «sequence» getaggte Fragen

Ich muss einen effizienten (Pseudo-) Code finden, um das folgende Problem zu lösen: Gegeben seien zwei Sequenzen von (nicht notwendig verschiedenen) ganzen Zahlen (a[1], a[2], ..., a[n])und (b[1], b[2], ..., b[n])finden Sie das Maximum , dso dass a[n-d+1] == b[1], a[n-d+2] == b[2], ... und a[n] ==...

Nehmen Sie zum Beispiel die hier dargestellte aufeinanderfolgende Sequenz als Array: my @seq = my $a=0, {++$a} ... *; for @seq[^10].kv {state $f=0; ($^k < 4 or $^k > 7) ?? say "a$^k = " ~ $^v !! (say "..." if $f ne 1; $f=1) }; Drucke: a0 = 0 a1 = 1 a2 = 2 ... a8 = 8 a9 = 9 Meine Fragen: 1-...

Ich möchte die zusammenhängenden Folgen gleicher Elemente (z. B. Länge 2) in einer Liste finden my @s = <1 1 0 2 0 2 1 2 2 2 4 4 3 3>; say grep {$^a eq $^b}, @s; # ==> ((1 1) (2 2) (4 4) (3 3)) Dieser Code sieht in Ordnung aus, aber wenn nach der Sequenz eine weitere 2 hinzugefügt wird 2 2...