Фон

В настоящее время я учусь в AP Comp Sci A: Java, и я хочу начать с некоторыми из моих друзей заниматься гольфом. У меня есть вызов от курса, и я хотел бы видеть, сколько байтов сообщество может выполнить этот вызов.

Детали вызова:

Учитывая две входные строки, основную строку и строку сводки, сделайте следующее:

Если строка поворота в качестве подстроки основной строки указывается ровно один раз, часть основной строки, которая находится перед строкой поворота, должна быть заменена на часть, которая следует после, при сохранении порядка в указанных подстроках, подлежащего обмену .

Например:

Если строка сводки пуста или строка сводки не найдена в основной строке, программе не требуется определенное поведение.

Если имеется более одного экземпляра строки сводки, разделение должно происходить в первом и только в первом экземпляре сводки.

Примеры: Учитывая основную строку OneTwoThreeTwoOneи строку разворота Two, вывод должен быть ThreeTwoOneTwoOne.

Учитывая основную строку 1Two2Two3Two4и сводку Two, вывод должен быть 2Two3Two4Two1.

Учитывая основную строку OneTwoThreeи сводную строку «Два», вывод должен быть ThreeTwoOne. Учитывая основную строку the rabbit is faster than the turtleи строку разворота

 is faster than 

(обратите внимание на один пробел после и после), вывод должен быть the turtle is faster than the rabbit.

Учитывая основную строку 1-2-3-4-5-6и стержень -, вывод должен быть 2-3-4-5-6-1.

Послесловие:

Это мой первый вопрос о код-гольфе, так что если у вас есть предложения или конструктивная критика, не стесняйтесь так говорить.

Кроме того, мой код для этого проекта (написанный на Java, потому что курс посвящен этому) можно найти ниже. Если у вас есть какие-либо советы, я бы хотел их увидеть. В настоящее время его размер составляет 363 байта, но я уверен, что вы, ребята, можете придумать гораздо лучшие и более мелкие решения.

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]);}}

Примечание. Текст для входных данных и для случая, когда строка сводки не найдена, является обязательным для исходного присвоения, но не для этой задачи.

Mathematica, 42 байта

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

Попробуйте онлайн!

Желе , 6 байт

œṣṙ1j⁴

Попробуйте онлайн!

объяснение

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

Python 2 , 37 39 байт

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

где a находится основная строка и bявляется основной строкой.

Попробуйте онлайн!

Wolfram Language (Mathematica) , 34 байта

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

Попробуйте онлайн!

Неименованная карри-функция, которая должна вызываться с первой точкой поворота и второй основной строкой. Например, если вы присвоили функции имя f:

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

Ом v2 , 4 байта

ïλ⁴j

Попробуйте онлайн!

Perl 5 , 20 + 2 ( -pl) = 22 байта

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

Попробуйте онлайн!

Принимает строку поворота в первой строке, затем полную строку во второй.

Python 2 , 53 44 байта

спасибо ThePlasmaRailgun за несколько байтов

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

Попробуйте онлайн!

Python 2 , 37 байт

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

Попробуйте онлайн!

C # (компилятор Visual C #) , 56 байт

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

Попробуйте онлайн!

Алиса , 18 байт

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

Попробуйте онлайн!

объяснение

/...
\...@/

Это просто структура для линейного кода в режиме Ordinal (обработка строк). Развернув зигзагообразный поток управления, мы получим:

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 байтов

ΘK+,∑

Попробуй здесь!

Объяснение:

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

Сетчатка , 24 23 байта

танки Мартину Эндеру за -1 байт

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

Попробуйте онлайн!

Python 2 , 48 байт

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

Попробуйте онлайн!

Pyth , 8 байт

jQ.<cEQ1

Попробуй это здесь!

объяснение

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.

Древесный уголь , 13 байт

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

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

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

R , 63 58 57 байт

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

Попробуйте онлайн!

Mявляется основной строкой, Pявляется стержнем.

Ответ Retina на ovs показал, что я могу исправить мою более раннюю попытку подхода регулярных выражений

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

добавив ?в первую группу захвата.

Java 8, 47 байт

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

Попробуйте онлайн

JavaScript (ES6), 41 40 байт

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

Контрольные примеры

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 байт

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

Как это устроено:

Левый аргумент - это стержень, правый - строка, которая должна быть обращена

            ,~   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

Попробуйте онлайн!

C  106  100 байт

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);}

Попробуйте онлайн!

SNOBOL4 (CSNOBOL4) , 53 байта

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

Попробуйте онлайн!

Принимает ввод как Pivot, затем Main, разделенный новой строкой.

Это в основном SNOBOL эквивалент моего R ответа .

Perl 6 , 31 байт

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

Проверь это

PHP, 62 байта

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

требует PHP 7.1; может произойти сбой, если в сводной таблице содержатся специальные символы регулярного выражения ( \+*?[^]$(){}=!<>|:-).
без изменений, если Pivot пуст, пустой вывод, если Pivot не на входе.
Беги с -n.

безопасная версия, 77 байт:

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

без изменений, если Pivot пуст, пустой вывод, если Pivot не на входе.
Беги с -n.

версия без регулярных выражений, 71 байт:

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

выдает предупреждения, если Pivot пуст; без изменений, если Pivot отсутствует на входе.

Беги с -nr.

Попробуйте их онлайн .

Красный , 63 байта

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

Попробуйте онлайн!

Swift , 131 байт

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

Объяснение (без золота)

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 байтов

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

Попробуйте онлайн!

C ++ 11, 64 байта

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

Лямбда, которая захватывает строки s, p и a, со ссылкой в ​​качестве (in-out).

Тестовый код

#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;
}

Чисто , 83 байта

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

А Stringв Clean это обычно {#Char}- массив unboxed ( #) Char( {}). Эта функция принимает [Char]вместо Stringвторой действительной версииString .

Полная функция подписи есть f :: [.t] .t -> [.t] | [.t <= Char].

Попробуйте онлайн!

Japt , 8 7 байт

£Zg°Y}V

Попробуй здесь