36

এন দেওয়া হয়েছে, এই অসীম অনুক্রমের Nth পদটি আউটপুট করুন:

-1 2 -2 1 -3 4 -4 3 -5 6 -6 5 -7 8 -8 7 -9 10 -10 9 -11 12 -12 11 ... etc.

N আপনার ইচ্ছামতো 0-ইনডেক্সড বা 1-ইনডেক্সেড হতে পারে।

উদাহরণস্বরূপ, যদি ইনপুট 0-ইন্ডেক্স তারপর 0, 1, 2, 3, 4নিজ নিজ আউটপুট উত্পাদন করা উচিত -1, 2, -2, 1, -3।

1-ইন্ডেক্স তারপর ইনপুট যদি 1, 2, 3, 4, 5নিজ নিজ আউটপুট উত্পাদন করা উচিত -1, 2, -2, 1, -3।

পরিষ্কার হওয়ার জন্য, এই ক্রমটি ইতিবাচক পূর্ণসংখ্যার ক্রমটি দু'বার পুনরাবৃত্তি করে উত্পন্ন হয়

1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 ...

এবং এর জোড় সংখ্যার একেবারে উপরে চারপাশে বিজোড় সংখ্যার প্রতিটি জোড়া পুনরায় সাজানো

1 2 2 1 3 4 4 3 5 6 6 5 7 8 8 7 9 10 10 9 11 12 12 11 ...

এবং অবশেষে প্রথমটি দিয়ে শুরু করে প্রতিটি অন্যান্য পদ অবহেলা করে

-1 2 -2 1 -3 4 -4 3 -5 6 -6 5 -7 8 -8 7 -9 10 -10 9 -11 12 -12 11 ...

বাইটের মধ্যে সংক্ষিপ্ততম কোডটি জয়ী।

— ক্যালভিনের শখ
সূত্র

A001057 অগ্রণী শূন্য ছাড়া?

— devRicher

@ দেবরিচার নং, সেখানকার পরম মানগুলি 1,1,2,2,3,3,4,4,...তবে এটি এখানে 1,2,2,1,3,4,4,3,...।

— মার্টিন ইন্ডার

6

আপনি এই ক্রম জন্য একটি বদ্ধ ফর্ম প্রদান করতে পারে বা অন্তত কিছু ন্যায্য প্রথম কয়েক পদ চেয়ে সামান্য আরো সুনির্দিষ্ট

— 0 '

নবম পদটির জন্য যে সমীকরণটি কোনও নেতিবাচক মানকে কখনই মূল্যায়ন করে না ... এর সাথে কিছু ভুল।

— ম্যাজিক অক্টোপাস উরান

1

@ 0 'আমি মনে করি এটি বন্ধ করে ফর্ম না হলেও এটি দেখার স্বজ্ঞাত উপায়ে আমি যা যুক্ত করেছি added চ্যালেঞ্জের অংশটি হ'ল ধরণটি কী এবং কীভাবে এটি গণিত এবং কোডে অনুবাদ করা যায়।

— ক্যালভিনের

32

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

lambda n:~n/2+n%2*(n|2)

বিজোড় ইনপুটগুলি মোটামুটি n/2, এমনকি মোটামুটি দেয় -n/2। তো, আমি -n/2+n%2*nসেখান থেকে শুরু করে টুইট করি aked

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

— xnor
সূত্র

1

ব্যাখ্যা? :)

— মাইল্ডলি মিল্কিওয়েস্ট

17

গণিত, 29 বাইট

((#~GCD~4/. 4->-2)+#)/2(-1)^#&

1-ইনডেক্সড ইনপুট গ্রহণ করে খাঁটি ফাংশন। বিকল্প চিহ্নগুলি ব্যতীত (-1)^#, দ্বিগুণ ক্রমটি ইনপুটটির নিকটে, পার্থক্যটি 1, 2, 1, -2 চক্রাকারে হয়। এটি দুর্দান্ত যে #~GCD~4ইনপুটটির সর্বাধিক সাধারণ বিভাজক এবং 41, 2, 1, 4 চক্রাকারে; সুতরাং আমরা কেবল ম্যানুয়ালি প্রতিস্থাপন 4->-2এবং একটি দিন কল। আমি এই পদ্ধতির পছন্দ করি কারণ এটি বেশিরভাগ চরিত্রের ম্যাথেমেটিকা আদেশগুলি এড়িয়ে চলে।

— গ্রেগ মার্টিন
সূত্র

9

পিপ , 24 22 বাইট

v**a*YaBA2|1+:--a//4*2

কমান্ড-লাইন আর্গুমেন্ট হিসাবে 1 ইনডেক্সযুক্ত ইনপুট নেয়। এটি অনলাইনে চেষ্টা করুন বা 1-20 যাচাই করুন ।

ব্যাখ্যা

পর্যবেক্ষণ করুন যে আরও তিনটি অনুক্রম, একটি শূন্য-সূচকযুক্ত এবং অন্যগুলি এক-সূচক সমন্বয় করে ক্রমটি পাওয়া যাবে:

0 0 0 0 2 2 2 2 4 4 4 4= a//4*2(0-সূচকযুক্ত) দিয়ে শুরু করুন ;
যোগ করুন 1 2 2 1 1 2 2 1 1 2 2 1= aBA2|1, যেখানে BAবিটওয়াইজ এবং AND, এবং |যৌক্তিক OR (1-ইনডেক্সড);
যোগফলকে -1 1 -1 1 -1 1 -1 1 -1 1 -1 1= (-1)**a(1-ইনডেক্স) দিয়ে গুণ করুন।

যদি আমরা a1-সূচকযুক্ত দিয়ে শুরু করি , আমরা প্রথমে 1-সূচকযুক্ত অংশগুলি গণনা করতে পারি (এক্সপ্রেশন বাম থেকে ডানদিকে পড়া) এবং তারপরে a0-সূচকযুক্ত অংশের জন্য হ্রাস । বিল্টিন ভেরিয়েবল ব্যবহার করে v=-1আমরা পাই

v**a*((aBA2|1)+--a//4*2)

আরও দুটি বাইট শেভ করতে, আমাদের কিছু অগ্রাধিকার-হেরফের কৌশল ব্যবহার করতে হবে। আমরা প্রতিস্থাপন ভেতরের প্রথম বন্ধনী বাদ দিতে পারে +সঙ্গে +:(সমতূল্য +=ভাষার অনেক)। যে কোনও কম্পিউট-অ্যান্ড-এসাইনেট অপারেটর খুব কম অগ্রাধিকারের, তাই aBA2|1+:--a//4*2সমান (aBA2|1)+:(--a//4*2)। পাইপ কোনও পরিবর্তনশীল নয় এমন কিছুতে বরাদ্দ দেওয়ার বিষয়ে একটি সতর্কতা প্রেরণ করবে, তবে কেবলমাত্র যদি আমরা সতর্কতা সক্ষম করে থাকি।

ইয়াঙ্ক অপারেটরের চেয়ে নিম্নতম নজিরটিই :একমাত্র Y* এটি অপারেন্ডের মানটি yভেরিয়েবলের জন্য বরাদ্দ করে এবং অপরিবর্তিত অবস্থায় দিয়ে যায়; তাই আমরা মান yanking বদলে এটা parenthesizing দ্বারা পাশাপাশি বাইরের প্রথম বন্ধনী বাদ দিতে পারে: YaBA2|1+:--a//4*2।

_{* রিন্ট Pএবং Oআউটপুট এর পিঁপড়ার মতোই প্রাধান্য রয়েছে Yতবে এখানে দরকারী নয়।}

— DLosc
সূত্র

9

জেলি , 8 7 বাইট

H^Ḃ~N⁸¡

এটি আমার পাইথন উত্তর থেকে অ্যালগরিদম ব্যবহার করে , যা @ জিবি দ্বারা উল্লেখযোগ্যভাবে উন্নত হয়েছিল ।

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

কিভাবে এটা কাজ করে

H^Ḃ~N⁸¡  Main link. Argument: n

H        Halve; yield n/2. This returns a float, but ^ will cast it to int.
  Ḃ      Bit; yield n%2.
 ^       Apply bitwise XOR to both results.
   ~     Take the bitwise NOT.
    N⁸¡  Negate the result n times.

— ডেনিস
সূত্র

আমি মনে করি এটি জেলি জমাতে দেখেছি এটি সবচেয়ে মানসম্পন্ন ASCII অক্ষর। আমি কেবলমাত্র দুটি চরিত্র দেখতে পাচ্ছি যা আমাকে বিরক্ত করবে (গণনা করা হচ্ছে না ¡)

— এশোলেংগা ফলের

google.com/…

— ডেনিস

9

জাভা 8, 19 বাইট

n->~(n/2)+n%2*(n|2)

জাভা 7, 47 37 বাইট

int c(int n){return~(n/2)+n%2*(n|2);}

প্রথমবারের মতো জাভা (8) আসলে প্রতিযোগিতা করে এবং অন্য কয়েকটি উত্তরের চেয়ে কম। জেলির মতো বাস্তব গল্ফিং ভাষাগুলি এখনও একইভাবে হারাতে পারে না, যদিও (দুহুহ .. কী আশ্চর্য ..>।>; পি)

@ এক্সনোরের পাইথন 2 উত্তর
থেকে 0-সূচক পোর্ট । -10 বাইট @ জিবি ধন্যবাদ

এখানে চেষ্টা করুন।

— কেভিন ক্রুইজসেন
সূত্র

2

আপনি বন্ধনীতে (n / 2) রাখেন কিনা আপনার বার্ষিক চেক দরকার নেই।

— জিবি

1

@ জিবি আহ, তাই সমস্যাটি ছিল .. ধন্যবাদ। আমি এখন বোকা বোধ করছি ..>।>

— কেভিন ক্রুইজসেন

ওহ, আমরা জাভা জন্য কেবল ফাংশন সংজ্ঞা অনুমোদিত?

— ক্রুঙ্কার

@ ক্রাঙ্কার প্রশ্ন অন্যথায় না বললে ডিফল্টটি পুরো প্রোগ্রাম বা ফাংশন । সুতরাং হ্যাঁ, এটি কেবল জাভাতে কোনও পদ্ধতি, বা জাভা 8-এ একটি ল্যাম্বদা পোস্ট করার অনুমতি দেওয়া হয়েছে (আমি আমার উত্তরটিতে জাভা 8 সমতুল্য যুক্ত করেছি)।

— কেভিন ক্রুইজসেন

1

@ এরিকডুমিনিল ডিফল্ট হ'ল প্রোগ্রাম বা ফাংশন , যদি না চ্যালেঞ্জটি অন্যথায় বলে।

— কেভিন ক্রুইজসেন

8

জেলি , 15 12 11 বাইট

Ḷ^1‘ż@N€Fị@

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

কিভাবে এটা কাজ করে

Ḷ^1‘ż@N€Fị@  Main link. Argument: n

Ḷ            Unlength; yield [0, 1, 2, 3, ..., n-1].
 ^1          Bitwise XOR 1; yield [1, 0, 3, 2, ..., n-1^1].
   ‘         Increment; yield [2, 1, 4, 3, ..., (n-1^1)+1].
      N€     Negate each; yield [-1, -2, -3, -4, ..., -n].
    ż@       Zip with swapped arguments; 
             yield [[-1, 2], [-2, 1], [-3, 4], [-4, 3], ..., [-n, (n-1^1)+1]].
        F    Flatten, yield [-1, 2, -2, 1, -3, 4, -4, 3, ..., -n, (n-1^1)+1].
         ị@  At-index with swapped arguments; select the item at index n.

— ডেনিস
সূত্র

আমি জানতাম 10 এর কাছাকাছি জেলি উত্তর থাকবে

— ক্রাঙ্কার

7.. at ) তে জেলি উত্তরও রয়েছে

— ডেনিস

এই মন্তব্যটি পোস্ট করার পরে আমি ঠিক এটি দেখতে পেয়েছি। আমার সত্যিই এই দিনগুলির মধ্যে জেলি শিখতে হবে ... আপনি যদি এই এসই এর প্রশ্নের ইতিহাস দেখেন তবে মজার বিষয়। সমস্ত গল্ফস্ক্রিপ্ট হিসাবে ব্যবহৃত হত, তারপরে সিজেম দায়িত্ব গ্রহণ করেছিল এবং এখন এটি জেলি।

— ক্রুঙ্কার

6

RProgN 2 , 31 25 22 বাইট tes

nx=x2÷1x4%{+$-1x^*}#-?

ব্যাখ্যা

nx=                         # Convert the input to a number, set x to it.
   x2÷                      # Floor divide x by 2.
      1                     # Place a 1 on the stack.
       x4%{       }#-?      # If x%4 is 0, subtract 1 from x//2, otherwise...
           +                # Add the 1 and the x together.
            $-1             # Push -1
               x^           # To the power of x.
                 *          # Multiply x//2+1 by -1^x. (Invert if odd, do nothing if even)

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

— ATaco
সূত্র

চমৎকার পন্থা! +1

— আর কাপ,

6

রুবি, 26 23 18 বাইট

->n{~n/2+n%2*n|=2}

0 ভিত্তিক

গ্রেগ মার্টিন , ডেনিস এবং অন্য কারও কাছ থেকে -1 idea n ধারণা চুরি করে -3 বাইট , তারপরে -5 বাইট xnor থেকে এন | 2 ধারণা চুরি করে ।

— গিগাবাইট
সূত্র

5

স্ট্যাকড , 30 28 বাইট

:2%([:2/\4%2=tmo+][1+2/_])\#

এটি অনলাইন চেষ্টা করুন! কোনও ফাংশন প্রদান করে, যা অনুমোদিত হিসাবেমেটা sensকমত্য অনুযায়ী ।। স্ট্যাকের শীর্ষ থেকে ইনপুট নেয়।

RProgN 2 উত্তর হিসাবে একই পন্থা ব্যবহার করে ।

বিকল্পভাবে, 46 বাইট। এটি অনলাইন চেষ্টা করুন! :

{!()1[::1+,:rev,\srev\,\2+]n*@.n 1-#n 2%tmo*_}

এটি একটি পরিসীমা তৈরি করে তারপরে উপযুক্ত হিসাবে সদস্যকে বাছাই করে এবং উপেক্ষা করে।

— কনর ও ব্রায়ান
সূত্র

5

পাইথন 2 , 44 33 27 বাইট

lambda n:(-1)**n*~(n/2^n%2)

6 জি বাইট গলফ করার জন্য @ জিবি ধন্যবাদ!

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

— ডেনিস
সূত্র

4

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

2‰`^±¹F(

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

ব্যাখ্যা

2‰          divmod by 2
  `         flatten list
   ^        XOR
    ±       NOT
     ¹F(    Push 1st argument, loop N times, negate

— mbomb007
সূত্র

বাহ, আমি এটি ভালবাসি, তবে ¹F("যদি বিজোড় হয়, অবহেলা করি" তবে এটি ব্যয়বহুল বলে মনে হয়।

— যাদু অক্টোপাস উরন

@ কারাসোকম্পুটিং এটি করে তবে এটি আমিই সবচেয়ে কম জানি। জেলিতে ডেনিসের অনুরূপ উত্তরেরও সেই অংশটির জন্য 3 বাইট রয়েছে। এটি এখনও সদৃশ থেকে ছোট, সমানতাকে ধাক্কা, যদি, উপেক্ষা করুন।

— mbomb007

আমি এটির জন্য 15 মিনিটের জন্য চেষ্টা করেছি, কেবলমাত্র যে জিনিসটি এসেছিল তা হ'ল এর পাওয়ার n, পাওয়ার এর আরও 3 বাইট সমাধান 1/n।

— ম্যাজিক অক্টোপাস ভস্মাধার

4

জেলি , 9 8 বাইট

|2×Ḃ+H~$

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

-1 ডেনিসকে ধন্যবাদ । দুহ ফ্লোট রূপান্তর

@ Xnor এর পাইথন 2 পদ্ধতির ব্যবহার করুন।

সম্পাদনা : > _>

— এরিক আউটগল্ফার
সূত্র

3

আপনি যখন মনে করছেন আপনি জয়ী হচ্ছেন, ডেনিস আপনাকে সাথে নিয়ে আসবে।

— হাইপারনিউটারিনো

|2×Ḃ+H~$একটি বাইট সংরক্ষণ করে। tio.run/nexus/jelly#AR0A4v//fDLDl@G4gitIfiT/…

— ডেনিস

@ ডেনিস আমি ভেবেছিলাম যে এটির একটি ত্রুটি ঘটবে।

— এরিক আউটগল্ফার

3

সিজেম , 16 বাইট

{_(_1&)^2/)W@#*}

1-ভিত্তিক ইনপুট।

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

ব্যাখ্যা

এখানে থেকে প্রতিটি ইনপুট জন্য স্ট্যাক মান কোডের একটি ভাঙ্গন হয় 1থেকে 4। প্রথম কয়েক কমান্ড শুধুমাত্র প্রভাবিত দুই অন্তত উল্লেখযোগ্য বিট n-1তাই পর 4, এই স্টাফ শুধুমাত্র cyclically সঙ্গে ফলাফল halving কারণে, 2 দ্বারা বৃদ্ধি পুনরাবৃত্তি।

Cmd             Stack: [1]       [2]       [3]       [4]
_    Duplicate.        [1 1]     [2 2]     [3 3]     [4 4]
(    Decrement.        [1 0]     [2 1]     [3 2]     [4 3]
_    Duplicate.        [1 0 0]   [2 1 1]   [3 2 2]   [4 3 3]
1&   AND 1.            [1 0 0]   [2 1 1]   [3 2 0]   [4 3 1]
)    Increment.        [1 0 1]   [2 1 2]   [3 2 1]   [4 3 2]
^    XOR.              [1 1]     [2 3]     [3 3]     [4 1]
2/   Halve.            [1 0]     [2 1]     [3 1]     [4 0]
)    Increment.        [1 1]     [2 2]     [3 2]     [4 1]
W    Push -1.          [1 1 -1]  [2 2 -1]  [3 2 -1]  [4 1 -1]
@    Rotate.           [1 -1 1]  [2 -1 2]  [2 -1 3]  [1 -1 4]
#    -1^n.             [1 -1]    [2 1]     [2 -1]    [1 1]
*    Multiply.         [-1]      [2]       [-2]      [1]

— মার্টিন ইন্ডার
সূত্র

2

পার্ল 6 , 55 27 24 22 বাইট

{(-1,2,-2,1,{|($^a,$^b,$^c,$^d Z+ -2,2,-2,2)}...*)[$_]}

(হাস্কেল zipWithউত্তর দ্বারা অনুপ্রাণিত )
এটি চেষ্টা করুন

{+^($_ div 2)+$_%2*($_+|2)}

(বেশ কয়েকটি উত্তর দ্বারা অনুপ্রাণিত)
এটি চেষ্টা করুন

{+^($_+>1)+$_%2*($_+|2)}

চেষ্টা করে দেখুন

{+^$_+>1+$_%2*($_+|2)}

চেষ্টা করে দেখুন

সম্প্রসারিত:

{  # bare block lambda with implicit parameter ｢$_｣

    +^          # numeric binary invert the following
      $_ +> 1   # numeric bit shift right by one
  +
      $_ % 2    # the input modulo 2
    *
      ($_ +| 2) # numeric binary inclusive or 2
}

(সমস্ত 0 ভিত্তিক)

— ব্র্যাড গিলবার্ট বি 2 গিলস
সূত্র

চমৎকার জমা!

— ক্রেগআর 8806

2

হাস্কেল , 37 36 বাইট

(([1,3..]>>= \x->[-x,x+1,-x-1,x])!!)

এটি অনলাইন চেষ্টা করুন! এটি একটি বেনামে ফাংশন যা একটি সংখ্যাটিকে nআর্গুমেন্ট হিসাবে গ্রহণ করে এবং nক্রমটির তম উপাদানটিকে 0-সূচিযুক্ত করে দেয় ।

— লাইকনি
সূত্র

1

হাস্কেল, 56 বাইট

f n=concat(iterate(zipWith(+)[-2,2,-2,2])[-1,2,-2,1])!!n

0-ইন্ডেক্স

— ব্লেক্স
সূত্র

1

পার্ল 5 47 + 1 (পতাকার জন্য) = 48 বাইট

print(((sin$_%4>.5)+1+2*int$_/4)*($_%4&1?1:-1))

পুরাতন জমা 82 বাইট

@f=(sub{-$_[0]},sub{$_[0]+1},sub{-$_[0]-1},sub{$_[0]});print$f[$_%4](1+2*int$_/4)

এর মতো চালান:

perl -n <name of file storing script>  <<<  n

— CraigR8806
সূত্র

আপনি print +((ফাইনালটি ব্যবহার করে এবং অপসারণ করে একটি বাইট সংরক্ষণ করতে পারেন )। আর দুই ব্যবহার করে আরও sayএবং -E। এবং আরও ($_%4&1||-1)তিনটি পরিবর্তে আরও একটি করে ।

— সিম্বাবুখে

1

জাভাস্ক্রিপ্ট (ES7), 28 বাইট

n=>(n+2>>2)*2*(-1)**n-!(n&2)

1-ইন্ডেক্স। আমি এখনও অন্য কোনও উত্তর তাকান নি তাই আমি জানি না এটি সেরা আলগোরিদিম কিনা তবে আমার সন্দেহ নেই।

— ETHproductions
সূত্র

1

জাভাস্ক্রিপ্ট, 28 22 বাইট

6 বাইট বন্ধ করে গল্ফ করার জন্য @ ইটিএইচ প্রডাকশনস ধন্যবাদ

x=>x%2?~x>>1:x%4+x/2-1

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

— fənɛtɪk
সূত্র

হুম ... f=x=>x%2?~x>>1:x/2+x%4-1কাজ করবে?

— ইটিএইচ প্রডাকশনগুলি

কোনও কারণে আমি বেনামে ফাংশনটির সামনে এফ =

— রেখেছিলাম

1

ডিসি , 98 বাইট

?sa0sb1sq[lq1+dsqla!<i3Q]sf[lb1-lfx]su[lblfx]sx[lb1+dsblfx]sj[lqdd4%d0=u1=j2%1=xljxlfx]dsix_1la^*p

গুশ, এটি এখানে দীর্ঘতম উত্তর, মূলত কারণ আমি নীচের পুনরাবৃত্ত সূত্রের ভিত্তিতে ক্রমগুলির প্রতিটি উপাদানটির পরম মূল্য উত্পাদন করার পথে চলেছি:

তারপরে আউটপুট (-1)^n * a_n, সরাসরি n'তম উপাদানটি গণনা করার চেয়ে । যাইহোক, এই হয়1 মূল্যহীন।

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

— আর কাপ
সূত্র

1

আর, 38 বাইট

function(n)floor(n/2+1-2*!n%%4)*(-1)^n

ব্যাখ্যা

floor(n/2+1)                ->  1 2  2 3  3 4  4 5...
floor(n/2+1-2*!n%%4)        ->  1 2  2 1  3 4  4 3... (subtract 2 where n%%4 == 0)
floor(n/2+1-2*!n%%4)*(-1)^n -> -1 2 -2 1 -3 4 -4 3... (multiply odd n by -1)

— ব্যবহারকারী
সূত্র

1

টিআই-বেসিক (টিআই -৪৪ প্লাস সিই), 31 বাইট

.5(Ans+1+remainder(Ans+1,2)-4not(remainder(Ans,4)))i^(2Ans

টিআই-বেসিক হ'ল একটি টোকেনাইজড ভাষা এবং এখানে ব্যবহৃত প্রতিটি টোকেন একটি বাইট, ব্যতীত remainder(, যা দুটি।

এটি 1-ইনডেক্সড সংস্করণ ব্যবহার করে।

ব্যাখ্যা:

এমন একটি প্যাটার্ন রয়েছে যা প্রতি চারটি সংখ্যাকে পুনরাবৃত্তি করে। 1-ইনডেক্সড সংস্করণে এটি হ'ল: - (x + 1) / 2, (x + 1) / 2, - (x + 1) / 2, (x-1) / 2 ইনপুট মান x এর জন্য। এটি টুকরোড়া-সংজ্ঞায়িত ফাংশন হিসাবে উপস্থাপন করা যেতে পারে।

f (x) = - (x + 1) / 2 যদি x ≡ 1 মোড 4; (x + 1) / 2 যদি x ≡ 2 মড 4 হয়; - (x + 1) / 2 যদি x ≡ 3 মড 4 হয়; (x-1) / 2 যদি x ≡ 0 মড 4 হয়

যেহেতু "x ≡ 1 মোড 4" এবং "x 4 3 মড 4" অংশগুলি সমান, তাই আমরা তাদেরকে "x ≡ 1 মোড 2" এর সাথে সংযুক্ত করতে পারি।

এখন টুকরোড়া ফাংশন হয়:

f (x) = - (x + 1) / 2 যদি x ≡ 1 মোড 2; (x + 2) / 2 যদি x ≡ 2 মড 4 হয়; (x-2) / 2 যদি x ≡ 0 মড 4 হয়

এখান থেকেই আমি এটিকে আসল কমান্ডগুলিতে ভাঙ্গতে শুরু করি। যেহেতু মানটি সূচকগুলির জন্যও ইতিবাচক এবং বিজোড়গুলির জন্য নেতিবাচক, তাই আমরা (-1) ^ x ব্যবহার করতে পারি। তবে টিআই-বেসিক i^(2X(5 বাইট) (-1)^Ans(6 বাইট) এর চেয়ে কম হয় । নোট করুন যে ক্রিয়াকলাপের ক্রমের কারণে বন্ধনীগুলি প্রয়োজনীয়।

এখন যেহেতু আমাদের কাছে বিজোড় ইনপুটগুলি অগ্রাহ্য করার উপায় রয়েছে, আমরা মোডগুলিতে এগিয়ে যাই (পরবর্তীতে অগ্রাহ্যকারীটিকে যুক্ত করে)। আমি কোনও বিজোড় ইনপুটটিকে ডিফল্ট হিসাবে তৈরি করেছি, তাই আমরা শুরু করি .5(Ans+1)।

এমনকি ইনপুটটির ক্ষেত্রে ঠিক করার জন্য, প্রথম বন্ধনীতে কেবল একটি সংখ্যায় যুক্ত করুন, তবে x x 0 0 মোড 2 কেবল এটিই .5(Ans+1+remainder(Ans+1,2))বা হিসাবে প্রদর্শিত হতে পারে .5(Ans+1+not(remainder(Ans,2)))তবে তাদের বাইট গণনা রয়েছে তাই এটি কোন বিষয় নয়।

একাধিক -4-ইনপুটটির কেসটি ঠিক করতে, আমাদের প্রথম বন্ধনীগুলির সংখ্যা থেকে 3 টি বিয়োগ করতে হবে, তবে আরও 1 টি প্রয়োজন কারণ 4 এর সমস্ত গুণকটি সমান, যা আমাদের পূর্ববর্তী পদক্ষেপের মধ্যে একটি যোগ করবে, সুতরাং আমাদের এখন .5(Ans+1+remainder(Ans+1,2)-4not(remainder(Ans,4))) ।

এখন, সম্পূর্ণ প্রোগ্রামটি পেতে সাইন-নির্ধারণকারী অংশটি শেষ পর্যন্ত সন্ধান করুন।

— pizzapants184
সূত্র

0

বেফঞ্জ 93, 25 বাইট

শূন্য-ইন্ডেক্স

&4/2*1+&4%3%!!+&2%2*1-*.@

অনলাইনে চেষ্টা করে দেখুন!

নম্বর দিয়েছি ((2(n / 4) + 1) + !!((n % 4) % 3)) * (2(n % 2) - 1)

— MildlyMilquetoast
সূত্র

0

কিউবিআইসি , 53 বাইট

b=1:{[b,b+3|~b=a|_x(-(b%2)*2+1)*(q+(b%4>1)*-1)]]q=q+2

ব্যাখ্যা:

b=1     Set b to a starting value of 1
        QBIC would usually use the pre-initialised variable q, but that is already in use
:       Get an input number from the cmd-line, our term to find
{       Start an infinite loop
[b,b+3| FOR-loop: this runs in groups of 4, incrementing its own bounds between runs
~b=a|   If we've reached the term requested
_x      QUIT the program and print:

(-(b%2)*2+1)   The b%2 gives a 1 or a 0, times 2 (2,0), negged (-2,0) and plus one (-1,1)
*              That gives us the sign of our term. Now the value:
(q+(b%4>1)*-1) This is q + 1 if the inner loop counter MOD 4 (1,2,3,0...) is 2 or 3.
]       Close the IF that checks the term
]       Close the FOR-loop
q=q+2   And raise q by 2 for the next iteration of the DO-loop.

— steenbergh
সূত্র

0

বুদ্ধিমান , 19 বাইট

::>!:><^^~![!-!-~]|

অনলাইনে চেষ্টা করে দেখুন!

এটি হুইডের কাছে ডেনিসের জেলি উত্তরের একটি বন্দর ।

— MildlyMilquetoast
সূত্র

0

প্রশ্ন, 52 বাইট

{(1 rotate(,/){x,(-)x}each 1_((_)x%4)+til 3)x mod 4}

0 সূচকযুক্ত সমাধান।

ব্লক নম্বর পায়। যা [-x x + 1 - (x + 1) x] অনুক্রমের মধ্যে ব্লক সূচক রয়েছে।
সম্পূর্ণ অনুক্রমের মধ্যে মান সূচকের উপর ভিত্তি করে ব্লকের মধ্যে মানের সূচক পায়।
ব্লক তৈরি করে।
পদক্ষেপ 2 থেকে প্রাপ্ত সূচকের মাধ্যমে এতে সূচকগুলি।

— ড্যানিয়েল প্লেইনভিউ
সূত্র

অদ্ভুতভাবে এমনকি, ইতিবাচক নেতিবাচক

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

গণিত, 29 বাইট

পিপ , 24 22 বাইট

ব্যাখ্যা

জেলি , 8 7 বাইট

কিভাবে এটা কাজ করে

জাভা 8, 19 বাইট

জাভা 7, 47 37 বাইট

জেলি , 15 12 11 বাইট

কিভাবে এটা কাজ করে

RProgN 2 , 31 25 22 বাইট tes

ব্যাখ্যা

রুবি, 26 23 18 বাইট

স্ট্যাকড , 30 28 বাইট

পাইথন 2 , 44 33 27 বাইট

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

জেলি , 9 8 বাইট

সিজেম , 16 বাইট

ব্যাখ্যা

পার্ল 6 , 55 27 24 22 বাইট

সম্প্রসারিত:

হাস্কেল , 37 36 বাইট

হাস্কেল, 56 বাইট

পার্ল 5 47 + 1 (পতাকার জন্য) = 48 বাইট

পুরাতন জমা 82 বাইট

জাভাস্ক্রিপ্ট (ES7), 28 বাইট

জাভাস্ক্রিপ্ট, 28 22 বাইট

ডিসি , 98 বাইট

আর, 38 বাইট

টিআই-বেসিক (টিআই -৪৪ প্লাস সিই), 31 বাইট

বেফঞ্জ 93, 25 বাইট

কিউবিআইসি , 53 বাইট

বুদ্ধিমান , 19 বাইট

প্রশ্ন, 52 বাইট