複数のn場所に「シフト」するには、次の操作を行います。

• 最後のn桁を削除
• n番号の最初に最初の数字のコピーを追加します

たとえば、31415数値を3桁シフトするには、最後の3桁を取り出してを取得し31、次に最初の桁の3つのコピーを最後に追加3して、を与え33331ます。

数値が負の場合、代わりに数字を左から取得し、最初の数字を右から「埋める」必要があります。たとえば、文字列31415を-3桁シフトすると、になります15555。

数値が0の場合、変更は行われません。

シフトがプログラムの長さを超える場合、入力された数字が削除され始める可能性があります。つまり、指定された数値が文字列の長さよりも大きい場合、文字列全体が1桁になった後は、それ以上の変更は行われません。

チャレンジ

との2つの数値が与えられるnとs、リターンnはs場所をシフトしてシフトします。

テストケース

   n,  s -> result
7243,  1 -> 7724
 452, -1 -> 522
  12,  1 -> 11
 153,  4 -> 111

これはcode-golfなので、有効な最短の送信（バイト単位）が優先されます。

APL（Dyalog）、32バイト

左引数としてシフトを取り、右引数として（文字列として）数を取る無名関数。

{a←|⍺⋄(≢⍵)↑(a-⍺)↓(a⍴⊃⍵),⍵,a⍴⊃⌽⍵}

オンラインでお試しください！

{⍺と⍵が左と右の引数 である無名関数

 |⍺ シフトの絶対値

 a← で店舗A

 ⋄ その後

 ⌽⍵ 番号を逆にする

 ⊃ 最初の（つまり最後の）桁を選択する

 a⍴ Rの長さにそれをeshape A

 ⍵, 番号を前に付ける

 (… ), 次を追加：

  ⊃⍵ 最初の桁

  a⍴ Rの長さにそれをeshape A

 (… )↓ 次の文字数をドロップします：

  a-⍺ マイナスシフト

 (… )↑ 次の文字数を取ります：

  ≢⍵ 元の数の長さ

Python 2、50バイト

lambda n,s:(n[0]*s+n+n[-1]*-s)[-s*(s<0):][:len(n)]

オンラインでお試しください！

Haskell、69バイト

s#n|l<-[1..abs n]=take(length s)$drop(-2*n)$(s!!0<$l)++s++(last s<$l)

数値を文字列として受け取ります。オンラインでお試しください！

使い方：

s#n                         -- s: input number as a string
                            -- n: shift amount

(s!!0<$l)++s++(last s<$l)   -- make a string:
                            -- n times the first digit, the whole number, n times the last digit
                            -- e.g. "567" 2 -> 5556777
drop(-2*n)                  -- drop the first (-2 * n) chars, i.e. 0 if n>0
take(length s)              -- take as may chars as there are in s

MATL、12バイト

tn:i-yn1&Xl)

入力は次のとおりです。文字列としてシフトされる数値。数値としてのシフトの量。

オンラインでお試しください！または、すべてのテストケースを確認します。

Consisder入力'452と'-1'。

t     % Implicitly input string. Duplicate
      % STACK: '452', '452'
n     % Number of elements
      % STACK: '452', 3
:     % Range
      % STACK: '452', [1 2 3]
i     % Input number
      % STACK: '452', [1 2 3], -1
-     % Subtract, element-wise
      % STACK: '452', [2 3 4]
y     % Duplicate from below
      % STACK: '452', [2 3 4], '452'
n     % Number of elements
      % STACK: '452', [2 3 4], 3
1     % Push 1
      % STACK: '452', [2 3 4], 3, 1
&Xl   % Clamp, with three inputs. Applies min function, then max
      % STACK: '452', [2 3 3]
)     % Reference indexing. Implicitly display
      % STACK: '522'

J、37バイト

これは、明示的な動詞が正しい（唯一の？）選択のように思われたJの状況の1つでしたが、これについて暗黙の書き換えがあるかどうか知りたいです。

4 :'(-x)(|.!.((x>0)&{({:,{.)":y))":y'

Jの組み込みシフト動詞を使用すると、「フィル」文字を構成できます。

|.!.f  NB. f is the fill character

最初または最後の文字をフィル文字として使用するかどうかを決定するロジックは簡単です

(x>0)&{ ({: , {.)

オンラインでお試しください！

J、23バイト

(_&(]{.,],{:)~|)}.~_2*]

入力nと出力は、数値を含む文字列です。

オンラインでお試しください！

説明

(_&(]{.,],{:)~|)}.~_2*]  Input: 'integer n' as a string (LHS), integer s (RHS)
(              )         Extend 'n' by copying its head and tail 's' times
              |            Abs(s)
 _&(]       )~             Nest 'Abs(s)' times on 'n'
          {:                 Tail
        ],                   Append the tail to itself
     {.                      Head
       ,                     Prepend the head to the previous
                   _2*]  Multiply 's' by -2
                }.~      Drop abs(-2*s) from the head if 's' < 0 else from the tail

網膜、61バイト

\d+¶
$*1¶
+`(?<!-).¶(.)(.*).
¶$1$1$2
-

+`.¶.(.*)(.)$
¶$1$2$2

オンラインでお試しください！

05AB1E、16バイト

0‹©iR}¹ÄF¨¬ì}®iR

オンラインでお試しください！

説明

0‹                 # input_1 is negative
  ©                # store a copy in register
   iR}             # if true (input_1 is negative), reverse input_2
      ¹ÄF          # abs(input_1) times do
         ¨         # remove the last element
          “       # prepend the head
            }      # end loop
             ®iR   # if input_1 was negative, reverse result

Python 2、87バイト

f=lambda n,s:s<0and f(n[::-1],-s)[::-1]or n[0]*min(len(n),s)+n[:[0,len(n)-s][len(n)>s]]

オンラインでお試しください！

数値を文字列として受け取り、シフトを整数として受け取ります。文字列を返します。

再帰呼び出しを行うのではなく、関数内に逆転を埋め込もうとしましたが、正しく理解できなかったようです。

Python 3、73バイト

f=lambda s,i:(f(s+1,i[1:]+i[-1])if s<0else f(s-1,i[0]+i[:-1]))if s else i

オンラインでお試しください！

Haskell、108バイト

まあ、これは思ったより悪くなった。

n#s=print$show n&s
r=reverse
n&s|s<0=r$r n&abs s|(a:b,c)<-splitAt s n=take(length n)$(a<$[0..s])++b++c|1>0=n

オンラインでお試しください！

未ゴルフ

n # s = print $ show n & s
n & s
  | s < 0                = reverse (reverse n & abs s)
  | (a:b,c)<-splitAt s n = take (length n) (replicate s a ++ b ++ c)
  | otherwise            = n

Clojure、121バイト

#(let[T(if(pos? %2)reverse vec)](apply str(concat(repeat %2(first %))(T(drop(Math/abs %2)(T %)))(repeat(- %2)(last %)))))

痛い、負の入力にも対処するのは厄介。

Pyth、28バイト

AQ=Y<+*hJ?K<0H`G_`GHJlJ?KY_Y

オンラインそれを試してみたり、いくつかの入力をテストします

説明

AQ=Y<+*hJ?K<0H`G_`GHJlJ?KY_Y
AQ                           | Split Q into 2 parts, G and H.
        J?K<0H`G_`G          | If 0 < H, J = str(G). Else, J = reverse(str(G)). Return J
       h                     | Find 1st element
      *            H         | Repeat H times
     +              J        | Concatenate with J
    <                lJ      | Find 1st length(J) elements
  =Y                         | Assign to Y.
                       ?KY_Y | If K, implicit print Y. Else implicit print reverse(Y).

05AB1E、33バイト

ÄF¹0‹©i¨ë¦}}²®i¤ë¬}sg¹Ä‚Ws\×®i«ëì

オンラインでお試しください！

05AB1Eは条件付きなのでそれほど高温ではありません。

JavaScript、80バイト

(n,s,k=n.length,p=s<=0)=>n.slice(p*-s,p?k:-s)[p?"padEnd":"padStart"](k--,n[p*k])

入力を数値のストリング表現と数値の「シフト」量として受け取ります。文字列を返します。

テストスニペット

let f=
(n,s,k=n.length,p=s<=0)=>n.slice(p*-s,p?k:-s)[p?"padEnd":"padStart"](k--,n[p*k])

I.value="31415";J.value="3";D.oninput()

<div id=D oninput="O.value=I.value.length&J.value.length?f(I.value,+J.value):''">n: <input id=I size=10> s: <input id=J size=2><br><input id=O disabled>