tło

Obecnie uczęszczam na zajęcia AP Comp Sci A: Java i chcę zacząć od gry w golfa. Mam wyzwanie z kursu i chciałbym zobaczyć, w ilu bajtach społeczność może wykonać to wyzwanie.

Szczegóły wyzwania:

Biorąc pod uwagę dwa ciągi wejściowe, ciąg główny i ciąg przestawny, wykonaj następujące czynności:

Jeżeli łańcuch przestawny jest dokładnie jeden raz jako podciąg łańcucha głównego, część głównego łańcucha, która pojawia się przed łańcuchem obrotowym, powinna zostać zamieniona na część, która następuje po nim, zachowując jednocześnie kolejność wymienionych podciągów .

Na przykład:

Jeśli łańcuch przestawny jest pusty lub łańcuch główny nie zostanie znaleziony w ciągu głównym, program nie musi mieć zdefiniowanego zachowania.

Jeśli istnieje więcej niż jedna instancja ciągu przestawnego, podział powinien nastąpić przy pierwszej i tylko pierwszej instancji przestawnej.

Przykłady: Biorąc pod uwagę ciąg główny OneTwoThreeTwoOnei ciąg przestawny Two, wynikiem powinno być ThreeTwoOneTwoOne.

Biorąc pod uwagę główny ciąg 1Two2Two3Two4i oś przestawną Two, wynikiem powinno być 2Two3Two4Two1.

Biorąc pod uwagę ciąg główny OneTwoThreei ciąg przestawny „Dwa”, wynikiem powinno być ThreeTwoOne. Biorąc pod uwagę główny ciąg the rabbit is faster than the turtlei ciąg przestawny

 is faster than 

(zwróć uwagę na pojedyncze spacje końcowe i poprzedzające), wynikiem powinno być the turtle is faster than the rabbit.

Biorąc pod uwagę główny ciąg 1-2-3-4-5-6i oś przestawną -, wynikiem powinno być 2-3-4-5-6-1.

Posłowie:

To jest moje pierwsze pytanie dotyczące golfa kodowego, więc jeśli masz sugestie lub konstruktywną krytykę, możesz to powiedzieć.

Dodatkowo mój kod dla tego projektu (napisany w Javie, ponieważ kurs koncentruje się na tym) znajduje się poniżej. Jeśli masz jakieś wskazówki, chciałbym je zobaczyć. Obecnie ma 363 bajty, ale założę się, że możecie wymyślić znacznie lepsze i mniejsze rozwiązania.

import java.util.Scanner;interface Main{static<T>void D(T f){System.out.println(f);}static void main(String[]A){Scanner s=new Scanner(System.in);D("Enter the first String:");String a=s.nextLine();D("Enter the pivot String:");String p=s.nextLine();if(p.isEmpty()|!a.contains(p)){D("Error: Pivot String not found.");return;}String w[]=a.split(p,2);D(w[1]+p+w[0]);}}

Uwaga: Tekst dla danych wejściowych i przypadku, gdy nie można znaleźć ciągu przestawnego, jest obowiązkowy dla pierwotnego przypisania, ale nie dla tego wyzwania.

Mathematica, 42 bajty

Reverse@StringSplit[##,2]~StringRiffle~#2&

Wypróbuj online!

Galaretka , 6 bajtów

œṣṙ1j⁴

Wypróbuj online!

Wyjaśnienie

œṣṙ1j⁴  Main Link
œṣ      Split around sublists equal to the pivot
  ṙ1    Rotate left by one
    j⁴  Rejoin on the pivot

Python 2 , 37 39 bajtów

lambda a,b:b.join(a.split(b,1)[::-1])

Gdzie ajest ciąg główny i bciąg przestawny.

Wypróbuj online!

Wolfram Language (Mathematica) , 34 bajty

p#2<>p<>#&@@StringSplit[#,p,2]&

Wypróbuj online!

Nienazwana funkcja curry, którą należy wywołać najpierw z osią przestawną, a drugą z ciągiem głównym. Na przykład, jeśli przypisałeś funkcję do nazwy f:

f["-"]["1-2-3-4-5-6"]

Ohm v2 , 4 bajty

ïλ⁴j

Wypróbuj online!

Perl 5 , 20 + 2 ( -pl) = 22 bajtów

<>=~/$_/;$_="$'$_$`"

Wypróbuj online!

Bierze ciąg przestawny w pierwszym wierszu, a następnie pełny ciąg w drugim wierszu.

Python 2 , 53 44 bajty

dzięki ThePlasmaRailgun za niektóre bajty

p,m=input()
k=m.split(p,1)
print k[1]+p+k[0]

Wypróbuj online!

Python 2 , 37 bajtów

lambda a,b:b.join(a.split(b,1)[::-1])

Wypróbuj online!

C # (kompilator Visual C #) , 56 bajtów

(m,p)=>(m+p+m).Substring(m.IndexOf(p)+p.Length,m.Length)

Wypróbuj online!

Alice , 18 bajtów

/?.?.Qz
\IoI%!oo@/

Wypróbuj online!

Wyjaśnienie

/...
\...@/

Jest to po prostu framework dla liniowego kodu trybu Ordinal (przetwarzanie łańcuchów). Po rozwinięciu zygzakowatego przepływu sterowania otrzymujemy:

I.I.!zo?o?%Qo

I.  Read the first string, duplicate it.
I   Read the second string (the pivot).
.!  Store a copy of the pivot on the tape.
z   Drop. Removes everything up to and including the pivot from the first string,
    so we get only the stuff after the pivot.
o   Output that.
?o  Retrieve the pivot from the tape and output it.
?%  Retrieve the pivot again and split the input around (all occurrences of)
    the pivot.
Q   Reverse the stack.
o   Output the top of the stack (i.e. the chunk in front of the first pivot).

SOGL V0.12 , 9 5 bajtów

ΘK+,∑

Wypróbuj tutaj!

Wyjaśnienie:

Θ      split the 2nd input on the 1st one
 K     get the 1st element
  +    and add it to the end
   ,∑  join on the 1st input

Siatkówka , 24 23 bajty

czołgi do Martina Endera za -1 bajt

(.*)¶(.*?)\1(.*)
$3$1$2

Wypróbuj online!

Python 2 , 48 bajtów

lambda s,p:p.join(s.split(p)[1:]+s.split(p)[:1])

Wypróbuj online!

Pyth , 8 bajtów

jQ.<cEQ1

Wypróbuj tutaj!

Wyjaśnienie

jQ.<cEQ1 - Full program.

    cEQ  - Split the second input by the first input.
  .<   1 - Cyclically rotate by 1 place to the left.
jQ       - Join on the first input.

Węgiel drzewny , 13 bajtów

≔⪪θηθ⪫Ｅθ§θ⊕κη

Wypróbuj online! Link jest do pełnej wersji kodu. Wyjaśnienie:

  θ             First input
   η            Second input
 ⪪              Split
≔   θ           Assign result
      Ｅθ        Map over result
           κ    Current index
          ⊕     Incremented
        §θ      Circularly index into result
     ⪫      η   Join
                Implicitly print

R , 63 58 57 bajtów

function(M,P)sub(sub("_",P,"(.+?)(_)(.+)"),"\\3\\2\\1",M)

Wypróbuj online!

Mjest głównym ciągiem, Pjest osią obrotu.

Odpowiedź Retina z serwisu ovs wskazała, że ​​mogę naprawić moją wcześniejszą próbę zastosowania wyrażenia regularnego

(.+)(Pivot string)(.+)

dodając ?do pierwszej grupy przechwytywania.

Java 8, 47 bajtów

x->y->x.replaceAll("(.*?)("+y+")(.*)","$3$2$1")

Wypróbuj online

JavaScript (ES6), 41 40 bajtów

(s,p,[a,...r]=s.split(p))=>r.join(p)+p+a

Przypadki testowe

let f =

(s,p,[a,...r]=s.split(p))=>r.join(p)+p+a

console.log(f('the rabbit is faster than the turtle', ' is faster than '))
console.log(f('1-2-3-4-5-6', '-'))

J , 14 bajtów

#@[}.{.@ss|.,~

Jak to działa:

Lewy argument jest osią obrotu, prawy - ciąg znaków, który ma zostać odwrócony

            ,~   appends the pivot to the string
     {.@ss       finds the positions of the pivot in the string and takes the first one
          |.     rotates the appended string to the left, so that the pivot is at the start
#@[              finds the length of the pivot string (n)
   }.            drops n characters from the begining of the rotated string

Wypróbuj online!

C,  106  100 bajtów

i,l;f(s,p)char*s,*p;{l=strlen(p);for(i=0;strncmp(s+i,p,l);++i);printf("%s%s",s+i+l,p);write(1,s,i);}

Wypróbuj online!

SNOBOL4 (CSNOBOL4) , 53 bajty

	P =INPUT
	INPUT ARB . R P REM . L
	OUTPUT =L P R
END

Wypróbuj online!

Pobiera dane wejściowe jako Pivot, a następnie Main, oddzielone znakiem nowej linii.

Jest to w zasadzie odpowiednik snobol z moim R odpowiedź .

Perl 6 , 31 bajtów

->$_,$b {S/(.*?)$b(.*)/$1$b$0/}

Sprawdź to

PHP, 62 bajty

<?=![,$s,$p]=$argv,preg_filter("(^(.*)$p(.*)$)U","$2$p$1",$s);

wymaga PHP 7.1; może się nie powieść, jeśli pivot zawiera specjalne znaki regularne ( \+*?[^]$(){}=!<>|:-).
bez zmian, jeśli Pivot jest pusty, puste wyjście, jeśli Pivot nie jest wprowadzony.
Uruchom z -n.

wersja bezpieczna, 77 bajtów:

<?=preg_filter("(^(.*)".preg_quote($p=$argv[1])."(.*)$)U","$2$p$1",$argv[2]);

bez zmian, jeśli Pivot jest pusty, puste wyjście, jeśli Pivot nie jest wprowadzony.
Uruchom z -n.

wersja bez wyrażenia regularnego, 71 bajtów:

$a=explode($p=$argv[2],$argv[1]);$a[]=array_shift($a);echo join($p,$a);

wyświetla ostrzeżenia, jeśli element przestawny jest pusty; bez zmian, jeśli Pivot nie jest wprowadzany.

Uruchom z -nr.

Wypróbuj je online .

Czerwony , 63 bajty

f: func[p s][rejoin[copy find/tail s p p copy/part s find s p]]

Wypróbuj online!

Szybki , 131 bajtów

import Foundation
func f(s:String,d:String){var c=s.components(separatedBy:d);print((c+[c[0]]).suffix(from:1).joined(separator:d))}

Wyjaśnienie (bez golfa)

import Foundation                     // Import String.components
func f(s:String,d:String){
    var c=s.components(separatedBy:d) // Split the input string by the separator
    print((c+[c[0]])                  // Add the last element of c ([A,B,C] -> [A,B,C,A])
        .suffix(from:1)               // Remove the first element  ([A,B,C,A] -> [B,C,A])
        .joined(separator:d))         // Join with the separator
}

C (gcc) , 76 bajtów

f(s,t)char*s,*t;{char*p=strstr(s,t);printf("%s%s%.*s",p+strlen(t),t,p-s,s);}

Wypróbuj online!

C ++ 11, 64 bajty

[s,p,&a]{int f=s.find(p);a=s.substr(f+p.size())+p+s.substr(0,f);}

Lambda, która przechwytuje ciągi s, p i a, jako odniesienie (wejście-wyjście).

Kod testowy

#include <iostream>
#include <string>

std::string Test(std::string s, std::string p) {
    std::string a;
[s,p,&a]{int f=s.find(p);a=s.substr(f+p.size())+p+s.substr(0,f);}();
    return a; 
}

int main() {
    std::string 
        s = "OneTwoThreeTwoOne",
        p = "Two",
        r = "ThreeTwoOneTwoOne";
    auto a = Test(s,p);
    std::cout << ((a==r)?"OK":"Failed") << ": " << a << std::endl; 

    return 0;
}

Czysty , 83 bajty

import StdEnv;f s c=(\p=p takeWhile++[hd s,c:p dropWhile])\g=reverse(tl(g((<>)c)s))

A Stringw Clean to normalnie {#Char}- unboxed ( #) Chararray ( {}). Ta funkcja przyjmuje [Char]zamiast String, czyli drugą, poprawną wersjęString .

Pełna sygnatura funkcji to f :: [.t] .t -> [.t] | [.t <= Char] .

Wypróbuj online!

Japt , 8 7 bajtów

£Zg°Y}V

Wypróbuj tutaj