একটি শিফটার তৈরি করুন

Question

কয়েকটি nস্থানে "শিফট" করতে, নিম্নলিখিতগুলি করুন:

• শেষ nঅঙ্কগুলি সরান
• nসংখ্যাটির শুরুতে প্রথম অঙ্কের অনুলিপি যুক্ত করুন

উদাহরণস্বরূপ, সংখ্যা নামান 31415তিন জায়গা, শেষ তিনটি সংখ্যা বের পেতে 31, এবং তারপর প্রথম সংখ্যা তিন আরো কপি যোগ করুন, 3, শেষ করা, দান 33331।

যদি সংখ্যাটি নেতিবাচক হয় তবে অঙ্কগুলি পরিবর্তে বাম থেকে নেওয়া উচিত এবং প্রথম সংখ্যাটি ডানদিক থেকে "পূরণ করা" উচিত। উদাহরণস্বরূপ, স্ট্রিং 31415-3 স্থানের ওপরে স্থানান্তরিত হয়েছে 15555।

সংখ্যাটি 0 হলে কোনও পরিবর্তন করা উচিত নয়।

যদি শিফটটি প্রোগ্রামের দৈর্ঘ্যের চেয়ে বেশি হয়, তবে ভরাট করা অঙ্কগুলি অপসারণ শুরু হতে পারে। এর অর্থ হল যে প্রদত্ত সংখ্যাটি যদি স্ট্রিংয়ের দৈর্ঘ্যের চেয়ে বেশি হয় তবে পুরো স্ট্রিংটি একক অঙ্কে পরিণত হওয়ার পরে আর কোনও পরিবর্তন করা হবে না।

চ্যালেঞ্জ

দুটি নম্বর দেওয়া, nএবং s, ফিরে nস্থানান্তর স্থানান্তরিত s।

পরীক্ষার মামলা

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

এটি কোড-গল্ফ , তাই সংক্ষিপ্ততম বৈধ জমা (বাইটগুলিতে পরিমাপ করা) জয়ী।

Comments

বিজয়ী মানদণ্ড কী?

— মিঃ এক্সকোডার

"শিফটিং" কী করে আমি তা বুঝতে পারি বলে আমি মনে করি না। এটি ট্যাগ করা [বাইনারি], যা আমাকে ভাবায় যে এটি বাইনারি শিফটগুলির সাথে কিছু করার আছে। হতে পারে এটি পরীক্ষার ক্ষেত্রে বাইনারি সংখ্যাগুলি প্রদর্শন করতে সহায়তা করবে?

— ফল ফলবান

এটি স্থানান্তরিত এবং প্রথম বা শেষ অঙ্ক "প্রসারিত"। অস্পষ্ট কি?

— লুইস মেন্ডো

হ্যাঁ তারা যা জিজ্ঞাসা করছে তা এটি সম্পূর্ণ পরিষ্কার

— রাইমাগ করুন

স্থানান্তর ভাল সংজ্ঞায়িত: বেস একটি শক্তি দ্বারা পূর্ণসংখ্যা গুণ বা বিভাগ। তবে পরীক্ষার কোনও ক্ষেত্রেই কাজ হয় না, সুতরাং এই প্রশ্নটি আইডিসিঙ্ক্র্যাটিক সংজ্ঞা ব্যবহার করে এবং এটি কী তা বলে না।

— পিটার টেলর

Answer 1

এপিএল (ডায়ালগ) , 32 বাইট

বেনামে ফাংশন যা বাম আর্গুমেন্ট এবং সংখ্যাটিকে (স্ট্রিং হিসাবে) ডান আর্গুমেন্ট হিসাবে গ্রহণ করে।

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

এটি অনলাইন চেষ্টা করুন!

{ বেনামে ফাংশন যেখানে ⍺ এবং left বাম এবং ডান আর্গুমেন্ট

 |⍺ শিফটের পরম মান

 a← সঞ্চয় একটি

 ⋄ তারপর

 ⌽⍵ নম্বর বিপরীত

 ⊃ প্রথম (অর্থাত্ শেষ) অঙ্কটি বেছে নিন

 a⍴ দ দৈর্ঘ্য তা eshape একটি

 ⍵, নম্বরটি প্রিপেন্ড করুন

 (… ), নিম্নলিখিতটি পুনরায় সংশোধন করুন:

  ⊃⍵ প্রথম সংখ্যা

  a⍴ দ দৈর্ঘ্য তা eshape একটি

 (… )↓ নিম্নলিখিত অক্ষরের সংখ্যা ফেলে দিন:

  a-⍺ একটি বিয়োগ শিফট

 (… )↑ নিম্নলিখিত অক্ষর নিন:

  ≢⍵ মূল সংখ্যার দৈর্ঘ্য

Answer 2

পাইথন 2 , 50 বাইট

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

এটি অনলাইন চেষ্টা করুন!

Answer 3

হাস্কেল, 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

Answer 4

এমএটিএল , 12 বাইট

tn:i-yn1&Xl)

ইনপুটগুলি হ'ল: স্ট্রিং হিসাবে স্থানান্তরিত করার সংখ্যা; একটি সংখ্যা হিসাবে স্থানান্তর পরিমাণ।

এটি অনলাইন চেষ্টা করুন! বা সমস্ত পরীক্ষার কেস যাচাই করুন ।

উপকরণ ইনপুট '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'

Comments

এটি এখন পর্যন্ত ভাল চাকরির সর্বনিম্ন পরিমাণ!

— কে স্প্লিট এক্স

@ কেএসপ্লিটএক্স ধন্যবাদ! বিটিডাব্লু আমি কেবল একটি ব্যাখ্যা যুক্ত করেছি

— লুইস মেন্ডো

Answer 5

জে, 37 বাইট

এটি জে-র এমন একটি পরিস্থিতির মধ্যে যেখানে একটি স্পষ্ট ক্রিয়াটি সঠিক (একমাত্র?) পছন্দ মতো বলে মনে হয়েছিল তবে আমি এটির একটি সুস্পষ্ট পুনর্লিখন আছে কিনা তা জানতে আগ্রহী:

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

জে এর শিফ্ট ক্রিয়াটি বিল্ট ইন আপনাকে "ভরাট" অক্ষরটি কনফিগার করতে দেয়:

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

প্রথম বা শেষ চরটি পূরণের চরিত্রটি সোজা হিসাবে ব্যবহার করা হবে তা নির্ধারণের জন্য যুক্তি

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

এটি অনলাইন চেষ্টা করুন!

Answer 6

জে , 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

Comments

সুন্দর। আমার সন্দেহ ছিল আমার চেয়ে আরও ভাল পন্থা ছিল ...

— জোনা

যদিও আমি লক্ষ্য করেছি আপনি একটি স্ট্রিং হিসাবে এন নেবেন যা সম্ভবত (সম্ভবত ভুলভাবে) আইডি অনুমান করা হয়নি। যদিও এটি আমাকে কেবলমাত্র চারটি অক্ষর রক্ষা করতে পারত ...

— যোনা

Answer 7

রেটিনা , 61 বাইট

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

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

এটি অনলাইন চেষ্টা করুন!

Answer 8

05 এ বি 1 ই , 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

Answer 9

পাইথন 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]]

এটি অনলাইন চেষ্টা করুন!

স্ট্রিং হিসাবে নম্বর এবং পূর্ণসংখ্যা হিসাবে স্থানান্তর করে। একটি স্ট্রিং প্রদান করে।

আমি পুনরাবৃত্তি কল করার চেয়ে ফাংশনের অভ্যন্তরে বিপরীতটি এম্বেড করার চেষ্টা করেছি, তবে আমি এটি সঠিকভাবে পাইনি বলে মনে হয়।

Answer 10

পাইথন 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

এটি অনলাইন চেষ্টা করুন!

Answer 11

হাস্কেল , 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

এটি অনলাইন চেষ্টা করুন!

Ungolfed

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

Answer 12

ক্লোজার, 121 বাইট

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

খুব, নেতিবাচক ইনপুটগুলি মোকাবেলা করতে বাজে।

Answer 13

পাইথ, 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).

Answer 14

05 এ বি 1 ই , 33 বাইট

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

এটি অনলাইন চেষ্টা করুন!

---

05AB1E শর্তসাপেক্ষে এত গরম নয়।

Answer 15

জাভাস্ক্রিপ্ট, 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>