23

पूर्णांक की एक सूची को देखते हुए एक निर्दिष्ट क्रम / गहराई पर एक फ़ॉरवर्ड अंतर उत्पन्न करता है ।

पूर्णांकों की सूची के लिए:

(10, 18, -12, 4, 8, -3, -5, 67, 9, 14)

विभिन्न आदेशों / गहराई पर फॉरवर्ड अंतर हैं:

0   10,   18,  -12,    4,    8,   -3,   -5,  67,  9,  14
1      8,  -30,   16,    4,  -11,   -2,   72, -58,  5
2       -38,   46,  -12,  -15,    9,   74, -130, 63
3           84,  -58,   -3,   24,   65, -204, 193
4            -142,   55,   27,   41, -269, 397
5               197,  -28,   14, -310, 666
6                 -225,   42, -324, 976
7                    267, -366, 1300
8                      -633, 1666
9                         2299

के इनपुट के साथ

4, (10, 18, -12, 4, 8, -3, -5, 67, 9, 14)

आप सूची वापस करेंगे

(-142,   55,   27,   41, -269, 397)

इनपुट

इनपुट STDIN या फ़ंक्शन मापदंडों के माध्यम से हो सकता है।

गहराई पूर्ण करने के लिए एक पूर्णांक निर्दिष्ट करता है। यह लिस्ट माइनस 1 की लंबाई 0 होगी

के लिए आगे के अंतर की गणना करने के लिए पूर्णांकों की एक सूची

उत्पादन

आउटपुट STDOUT के माध्यम से हो सकता है या फ़ंक्शन द्वारा लौटाया जा सकता है।

पूर्णांक की सूची के रूप में निर्दिष्ट गहराई के लिए आगे के अंतर

नियम

बिल्ट इन और थर्ड पार्टी फ़ंक्शंस जो इसे सीधे अनुमति नहीं देते हैं।

मानक ढील प्रतिबंध लागू होते हैं।

सबसे छोटा कोड जीतता है

— MickyT
स्रोत

19

जे, 15 9 7 बाइट्स

बहुत आसान। गहराई और सूची को बाएँ और दाएँ तर्क के रूप में लेता है।

-~/\~&2

सभी क्रियाविशेष प्रवंचनाओं के बिना एक स्पष्ट परिभाषा के रूप में, यह घट जाता है

4 : '(2 -~/\ ])^:x y'

-~/\~&2 y- सबसे आगे का अंतर y।
x -~/\~&2 y- x-थ आगे का अंतर y।

अगर मैं इस समारोह की एक गंभीर (i। ई। गैर-गोल्फ) परिभाषा बनाने वाला था, तो मैं शायद कुछ इस तरह से करूंगा:

(}. - }:) : ($:@[&0)

मोनाडिक मामला आगे के अंतर की गणना करता है जबकि डियाडिक मामला x-थ आगे के अंतर की गणना करता है ।

और भी सरल, लेकिन बिल्कुल बराबर नहीं:

+/\inv

+/\तर्क के उपसर्गों के योग के एक वेक्टर पैदावार। inv(के रूप में परिभाषित ^:_1) एक संयुग्मन है जो एक क्रिया को उलट देता है। यह काम करता है जहाँ भी J एक क्रिया को उलटा करना जानता है और के मामले के लिए +/\, J जानता है कि कैसे करना है।

— FUZxxl
स्रोत

3

यह क्रियाविशेषणों और संयुग्मों की शक्ति को दर्शाता है -जैसा कि इस कार्य में एकमात्र क्रिया है।

— यादृच्छिक

14

पायथन, 61 59 बाइट्स

f=lambda n,L:n and f(n-1,[x-y for x,y in zip(L[1:],L)])or L

यहाँ हम सभी लेकिन सूची के पहले के साथ सूची के अंतिम लेकिन सभी को जोड़कर घटाव का प्रदर्शन करते हैं। zip(L[1:],L)के बराबर है zip(L[1:],L[:-1]), zipदो सूचियों की न्यूनतम लंबाई लेने की प्रकृति के कारण :

>>> zip([1,2,3],[4,5])
[(1, 4), (2, 5)]

एक विकल्प जो केवल लंबा है (केवल पायथन 2):

f=lambda n,L:n and f(n-1,map(int.__sub__,L[1:],L[:-1]))or L

दुर्भाग्य से अजगर 2 सूची के अंत में कटौती नहीं करता है, इसलिए मैं ऐसा नहीं कर सकता map(int.__sub__,L,L[1:])। शायद ही , पायथन 3 करता है , लेकिन mapअब कोई सूची नहीं लौटाता है , इसलिए यह बाइट अधिक (60 बाइट्स) समाप्त होती है:

f=lambda n,L:n and f(n-1,list(map(int.__sub__,L[1:],L)))or L

हालाँकि, यदि हम इनपुट को सूची के बाद की गहराई f(3, 2, 5, 6, 7, 5, 10, 25)(जैसे गहराई 3 और सूची [2, 5, 6, 7, 5, 10, 25]) की अनुमति देते हैं, तो यह 56 बाइट्स है :

f=lambda n,*T:n and f(n-1,*map(int.__sub__,T[1:],T))or T

यहाँ एक और विकल्प है जो वास्तव में किसी को भी परेशान करेगा जिसने इसे उत्पादन कोड में देखा (यह मूल सूची को नष्ट कर देता है):

f=lambda n,L:n and f(n-1,[L[1]-L.pop(0)for _ in L[1:]])or L

— Sp3000
स्रोत

आपका अंतिम कोड गलत है आपको L[1]-L.pop(0)इसके बजाय की आवश्यकता होगी ।

— mbomb007

@ mbomb007 पकड़ने के लिए धन्यवाद। यह अजीब था - मैंने पूरे समय गलत तरीके से बहस की।

— Sp3000

यह करीब था, लेकिन हर दूसरी गहराई की तरह कुछ संकेत उलटे थे।

— mbomb007 15

9

गणितज्ञ 23 57 23 बाइट्स

मार्टिन ब्यूटनर का सुझाव, घटाव की सूची का दोहन।

 Rest@#-Most@#&~Nest~##&

जैसे

Rest@# - Most@# &~Nest~## & @@ {{10, 18, -12, 4, 8, -3, -5, 67, 9, 14}, 4}

{-142, 55, 27, 41, -269, 397}

Rest@#-Most@# भिन्नता उत्पन्न करने वाले घटाव को वहन करता है।

नेस्ट प्रदर्शनों ने कहा कि समय की निर्दिष्ट संख्या का संचालन करें, हमेशा सबसे हाल की सूची पर परिचालन करना।

— DavidC
स्रोत

7

हास्केल, 40 34 बाइट्स

n#l=iterate(zipWith(-)=<<tail)l!!n

उपयोग उदाहरण: 4 # [10,18,-12,4,8,-3,-5,67,9,14]जो आउटपुट [-142,55,27,41,-269,397]।

यह कैसे काम करता है: बार-बार पड़ोसी तत्वों के बीच अंतर की गणना करें और एक सूची में मध्यवर्ती परिणामों को संग्रहीत करें। nइस सूची से वें तत्व को लें ।

संपादित करें: @Zgarb को बचाने के लिए 6 बाइट्स मिले। बहुत बढ़िया!

— nimi
स्रोत

आप फ़ंक्शन मोनाड का उपयोग कर सकते हैं और मेमने को छोटा कर सकते हैं (zipWith(-)=<<tail)।

— जर्ग्बेल

7

जावास्क्रिप्ट (ईएस 6), 52 49 बाइट्स

सरल पुनरावर्ती फ़ंक्शन, mapसरणी को स्कैन करने और sliceप्रत्येक पुनरावर्ती कॉल पर पहला तत्व छोड़ने के लिए।

3 बाइट्स संपादित करें , धन्यवाद @DocMax, वास्तव में स्मार्ट सुझाव

F=(n,l)=>n?F(n-1,l.slice(1).map((a,k)=>a-l[k])):l

फ़ायरफ़ॉक्स / फायरबग कंसोल में टेस्ट करें

for(i=0;i<10;i++)console.log(F(i,[10, 18, -12, 4, 8, -3, -5, 67, 9, 14]))

[१०, १ [, १ 10, -४,-, ३, ५, ६ 9, ९, १४]
[-, -३०, १६, ४, -११, -२, -२, -५-, ५]
[-३- , 46, -12, -15, 9, 74, -130, 63]
[84, -58, -3, 24, 65, -204, 193]
[-142, 55, 27, 41, और -269, 397 ]
[197, -28, 14, -310, 666]
[-225, 42, -324, 976]
[267, -366, 1300]
[-633, 1666]
[2299]

— edc65
स्रोत

1

कुशलतापूर्वक की जरूरत से बचने pऔर 3 वर्णों को बचाने के लिए मानचित्र से पहले स्लाइस करें H=(n,l)=>n?H(n-1,l.slice(1).map((a,k)=>a-l[k])):l:।

— डॉकमैक्स

6

सीजेएम, 15 बाइट्स

l~{{_@-\}*;]}*p

इनपुट को CJam- स्टाइल ऐरे के रूप में लेता है और फिर गहराई:

[10 18 -12 4 8 -3 -5 67 9 14] 4

और परिणाम को CJam- शैली सरणी के रूप में प्रिंट करता है।

इसका परीक्षण यहां करें।

व्याख्या

l~              "Read and eval input.";
  {         }*  "Repeat this block N times, which computes the forward differences.";
   {    }*      "Fold this block onto the list - this is quite an abuse of folding semantics.";
    _           "Duplicate the current element (for the use in the next difference).";
     @          "Pull up the other copy of the last element.";
      -         "Subtract.";
       \        "Swap the difference and the other copy of the current element.";
          ;     "Discard the last element.";
           ]    "Wrap everything in an array again.";

— मार्टिन एंडर
स्रोत

5

जावा, 122 119 बाइट्स

int[]a(int[]a,int b){if(b<1)return a;int e=a.length-1,c[]=new int[e],i=e;for(;i-->0;)c[i]=a[i+1]-a[i];return a(c,b-1);}

उदाहरण उपयोग: http://ideone.com/ALgYez

3 बाइट्स जियोबिट्स के लिए धन्यवाद: v)>

— नंबर एक
स्रोत

आपको दूसरे से छुटकारा पाना चाहिए int और बस i=eदूसरों के साथ असाइन करना चाहिए ।

— भूतकाल

5

> <> 53 50 बाइट्स

l:[2-&\~~]r1-:?!vr
&}-@:$/!?&:-1
:;!? &&  lo*84n~<

उपयोग: स्टैक को (पहले python दुभाषिया में -v) गहराई से और उसके बाद पूर्णांक से रोकें।

उदाहरण के लिए:

forward.fish -v 3 2 5 6 7 5 10 25

रिटर्न

2 -3 10 3

मदद के लिए Sp3000 का धन्यवाद।

— cirpis
स्रोत

1

क्या इसके ?!बजाय कुछ घटकों का उपयोग और स्थानांतरित करना संभव है 0=??

— Sp3000

अच्छा पकड़ा! यह एक गुच्छा की मदद करता है

— सिरप

5

प्रस्तावना , ९ ५ ९ 78 ९ by by बाइट्स

?    (1-vv- # ) v  !
  ?     #   ^   #
?(1-)   1  (#)  1)(#)
  1   #(# ) 1  (#

इनपुट प्रारूप है

N
M
n_1
n_2
...
n_M

जहां Nअंतर की गहराई है और Mइनपुट में पूर्णांकों की संख्या है। जोड़ना Mआवश्यक था, क्योंकि 0इनपुट के अंत से अलग करने के लिए प्रस्तावना के लिए कोई रास्ता नहीं है । आउटपुट भी पूर्णांक की एक नई पंक्तिबद्ध सूची के रूप में है। मुझे इस चुनौती के लिए तैयार किए गए थोड़ा समायोजित प्रील्यूड कल्पना को मानना पड़ा , क्योंकि मानक प्रिल्यूड पूर्णांक को बाइट मान के रूप में पढ़ता है, जिससे नकारात्मक संख्याओं को दर्ज करना असंभव हो जाता है। अनिवार्य रूप से, यह एक अतिरिक्त ध्वज के साथ पायथन दुभाषिया हैNUMERIC_INPUT ।

संदर्भ के लिए केवल 48 38 37 गैर-अंतरिक्ष वर्ण हैं - बाकी को कोड को सही ढंग से संरेखित करने की आवश्यकता थी।

व्याख्या

प्रस्तावना में, प्रत्येक पंक्ति एक अलग "आवाज़" है जो अपने स्वयं के स्टैक पर संचालित होती है। कार्यक्रम को कॉलम द्वारा निष्पादित किया जाता है, जहां "समानांतर में" संचालित करने के लिए अलग-अलग आवाज़ें ली जाती हैं। सभी कमांड एकल वर्ण हैं, और कोष्ठक ब्रेनफक-जैसे लूप हैं (जो कि जब भी स्टैक के शीर्ष गैर-शून्य होते हैं, तब दर्ज किया जाता है और दोहराया जाता है)। ध्यान दें कि बंद कोष्ठक की ऊर्ध्वाधर स्थिति अप्रासंगिक है - इसे एक अलग आवाज़ में रखना अभी भी सबसे हाल के उद्घाटन कोष्ठक के साथ मिलान के रूप में गिना जाता है, और लूप स्थिति के लिए जाँच की गई स्टैक हमेशा वह आवाज़ होती है जहाँ पर खड़ी होती है( दिखाई देती है। अब इस कार्यक्रम पर ...

कार्यक्रम को मूल रूप से दो भागों में विभाजित किया जा सकता है। नीचे की दो पंक्तियों को प्रोग्राम में अधिकांश लूपों के लिए उपयोग किया जाता है (मुख्य लूप ओवर को छोड़कर N), 1आगे और पीछे गुजरते हुए। शीर्ष दो पंक्तियों में मुख्य लूप और वास्तविक विभेदक शामिल हैं। निम्नलिखित एनोटेशन में कोड ट्रांसपोज़ किया गया है, इसलिए मैं व्यक्तिगत कॉलम एनोटेट कर सकता हूं:

? ?   # Read two integers. Read instructions are processed top to bottom, so the first voice 
      # reads N and the third voice reads M.
  (   # Start a loop on the third voice. This loop will execute M times, reading the input list
      # and pushing M 1s onto the fourth voice - i.e. a unary representation of M.
 ?11  # Read an integer onto the second voice, push 1s onto the third and fourth voice.
  -   # Subtract the 1 from the third voice, decrementing M down to 0.
  )   # End of loop, if the third voice is not 0 yet, to back two columns.
(     # Start a loop on the first voice. This is the main loop and will execute N times. Each
      # iteration will compute the forward differences once and thereby shorten the list by one
      # element and also reduce the stack of 1s on the bottom voice by one.
1  #  # Push a 1 onto the first voice and pop a 1 from the last. Together with the next column,
      # this decrements both N and (the unary) M.
-  (  # Subtract the 1 from the first voice (decrementing N), and start a loop on the fourth 
      # voice over whatever is left of M (the length of the resulting difference list). Note 
      # that this column is *not* part of the loop, so the - on the first voice will only be 
      # executed once. This loop builds the differences in reverse order on the first voice.
v#1#  # Pop a 1 from the fourth voice and push a 1 onto the third. This loops over M while
      # shifting its unary representation to the other stack. In addition, shift the top stack
      # element from the second to the first voice.
v     # Copy the next element from the second voice to the first, without popping.
-  )  # Subtract the two elements on the first voice and end the loop if the fourth voice is 
      # empty. Note that his column *is* part of the loop.
  (   # Start a loop on the third voice. This is another loop over M, shifting the stack of 1s 
      # back to the fourth voice, and reversing the differences by shifting them onto the 
      # second.
#^#1  # As stated above, shift an element from the first to the second voice, a 1 from the
      # third to the fourth.
  )   # End the loop. After this point, we're back to the original situation, except that the
      # second voice has been replaced by its differences. The bottom stack element the
      # previous list is also still on that stack, but the decreasing loop lengths on the third
      # and fourth voices ensures that this element is never touched again.
)     # End the main loop when N has been reduced to 0.
   (  # Start another loop over the remaining list length, shifting and reversing the result.
v#1#  # Shift a 1 back to the third voice and an element from the second to the first voice.
  )   # End the loop. Note that this parenthesis is not on the same voice as the corresponding
      # opening parenthesis, but its exact position is irrelevant. Moving it to this voice
      # saves a byte.
  (   # Start one last loop over the length of the result.
! #   # Pop a 1 from the third voice while printing (and popping) one element of the result.
  )   # End the loop.

— मार्टिन एंडर
स्रोत

5

पायथन, 70 68 67 59 बाइट्स

f=lambda x,n:n and f([x[1]-x.pop(0)for i in x[1:]],n-1)or x

पुनरावर्ती जाने से पहले गैर-गोल्फ संस्करण:

def f(x,n):
    for j in range(n):
        for i in range(len(x)-1):
            x[i]=x[i+1]-x[i]
    return x[:-n]

— mbomb007
स्रोत

5

आर, ४ R ३ ९ ४६ 44 बाइट्स

प्रत्यावर्तन!

function(x,y)if(x)Recall(x-1,diff(y)) else y

xप्रदर्शन करने के लिए पुनरावृत्तियों की संख्या है, और yपूर्णांक का एक वेक्टर है।
if(x)लंबे समय के रूप के रूप में सच है x>0।
Recall वर्तमान फ़ंक्शन को कॉल करता है लेकिन नए तर्कों के साथ।
Diff लगातार सूची / वेक्टर तत्वों के बीच अंतर को आउटपुट करता है।

पिछला संस्करण:

#does not work for x=0:
function(x,y){for(i in 1:x)y=diff(y);y}

#does not use diff function:
function(x,y){for(i in 1:x)y=y[-1]-head(y,-1);y}

y[-1]       is a list minus its first element
head(y,-1)  is a list minus its last element

— freekvd
स्रोत

क्या एक्स फ़ंक्शन को बार-बार दोहराने का एक बेहतर तरीका है? एक लूप का उपयोग करने से अत्यधिक महसूस होता है।

— फ्रीक्वाड

वहाँ कमी है, लेकिन मुझे लगता है कि यह अधिक पात्रों की लागत होगी।

— मिकी

एक छोटी सी समस्या है। जब 0 गहराई के साथ बुलाया जाता है तो यह गहराई 2 पर लौट आता है

— मिकी

एक अलग दृष्टिकोण के लिए गए, समस्या हल हो गई लेकिन 7 वर्ण जोड़ने पड़े।

— 21

2

का अच्छा उपयोग Recall()।

— एलेक्स ए।

3

पायथन, 92 87 86 बाइट्स

def a(b,c):
 if c<1:return b
 d=[];e=b[0]
 for f in b[1:]:d+=f-e,;e=f
 return a(d,c-1)

यह मेरा पहला पायथन गोल्फ है। कोई भी सुझाव प्रशंसनीय होगा :)

5 6 बाइट्स Sp3000 के लिए धन्यवाद: डी

— नंबर एक
स्रोत

मैं एक सूची समझने की सलाह दूंगा।

— mbomb007

आप बदल सकते हैं appendमें d+=f-e,। सामान्य तौर पर, कोड-गोल्फ के लिए आपको इसके कारण कभी भी उपयोग करने की आवश्यकता नहीं होगी L.append।

— Sp3000

3

सी, 68 55 बाइट्स

f(int *l){for(--l[-1]?f(l):0;*l;l++)*l=l[1]-*l;*--l=0;}

यह थोड़ा इनपुट कल्पना के साथ स्वतंत्रता ले सकता है। एक इंट सरणी का निर्माण इस तरह किया जाता है कि तत्व 0 गहराई है और तत्व 1 से (n + 1) इनपुट सूची तत्व 0 से n हैं। फिर तत्व 1 का पता फ़ंक्शन को दिया जाता है।

सरणी को शून्य समाप्त किया जाना चाहिए। सरणी को जगह में संपादित किया गया है।

उदाहरण के लिए:

#include <stdio.h>

f(int *l){for(--l[-1]?f(l):0;*l;l++)*l=l[1]-*l;*--l=0;}

int main (int argc, char **argv)
{
  int list[] = {4, 10, 18, -12, 4, 8, -3, -5, 67, 9, 14, 0};
  int *elem;

  f(list + 1);

  for (elem = list + 1; *elem; elem++) {
    printf("%d, ", *elem);
  }
}

http://ideone.com/m5PDgF

— डिजिटल आघात
स्रोत

आपने एक स्थान क्यों छोड़ा int *l?

— जोनाथन फ्रेच

2

पॉवरशेल 115 111 बाइट्स

$p={param($a, $b)0..($a-1)|%{$b=@($l=$b.length;for($i=0;$i-lt$l;$i++){$b[$i+1]-$b[$i]})[0..($l-2)]};$b-join','}

इस तरह से निष्पादित करें:

.$p 4 @(10,18,-12,4,8,-3,-5,67,9,14)

आउटपुट:

-142,55,27,41,-269,397

एक घुंघराले ब्रेस को एक अलग स्थान पर ले जाने से यह उत्तर के हर चरण को प्रदर्शित करने की अनुमति देता है।

8,-30,16,4,-11,-2,72,-58,5
-38,46,-12,-15,9,74,-130,63
84,-58,-3,24,65,-204,193
-142,55,27,41,-269,397

— StephenP
स्रोत

2

STATA, 126 बाइट्स

di _r(a)_r(b)
token $b
gl $c=wordcount($b)
forv x=1/$a{
gl $c--
forv y=1/$c{
loc `y'=``y'+1'-``y''
}
}
forv z=1/$c{
di ``z''
}

एक पूर्णांक के रूप में इनपुट की अपेक्षा करता है, जो गहराई का प्रतिनिधित्व करता है, इसके बाद पूर्णांक की एक अलग-अलग सूची, दोनों मानक प्रॉम्प्ट के माध्यम से दी जाती है। आउटपुट न्यूलाइनर्स की पूर्ण सूची से अलग है।

पहले यह पूर्णांक की सूची को परिवर्तित करता है (जिसे यह 1 लंबी स्ट्रिंग के रूप में देखता है) स्थानीय चर की सूची में जिसका नाम 1,2,3 है, ... तब यह होने वाले yth स्थानीय चर का मान सेट करके आगे के अंतर की गणना करता है। y + 1th स्थानीय चर का मान yth स्थानीय चर का मान (यानी 18-10 = 8), जो उपयोग के बाद ही मौजूदा मानों को अधिलेखित कर देता है। यह इस $ a (वैश्विक चर का मान) a बार करता है। फिर यह एक बार में प्रत्येक स्थानीय चर का मान प्रदर्शित करता है।

— bmarks
स्रोत

स्पष्टीकरण के लिए +1। यह प्रसंस्करण सूचियों का एक बहुत ही जटिल तरीका है।

— ज़गर्ब

@Zbb, मैं STATA के लिए फ़ाइल के माध्यम से एक सरणी / सूची के रूप में इनपुट लेने का एक तरीका नहीं जानता (जो अन्य इनपुट के कारण यहां काम नहीं करेगा)। इसलिए इसे इस तरह से काम करना होगा।

— bmarks

2

टी-एसक्यूएल, बहुत सारे :)

जब मैंने पहली बार इस समस्या को देखा, तो मुझे आश्चर्य हुआ कि क्या किसी प्रश्न में ऐसा करने का कोई तरीका है। अधिकांश भाषाओं के लिए, यह SQL क्वेरी के लिए बहुत अधिक नहीं है।

इनपुट पूर्णांक सूची के लिए चर @ (गहराई के लिए) और @ एल में जाता है। @ एल एक उपयोगकर्ता परिभाषित टेबल प्रकार है

CREATE TYPE L AS TABLE(n INT IDENTITY(0,1),v INT)

इनपुट सेटअप

DECLARE @L L,@ INT=4
INSERT @L(v)values(10),(18),(-12),(4),(8),(-3),(-5),(67),(9),(14)

कुछ टिप्पणियों के साथ क्वेरी

WITH R AS( 
    -- Recursive query to calculate the level of a pascal triangle with alternating negatives
    -- For 4 this is 1 -4  6 -4  1  
    SELECT 1c,0g UNION ALL SELECT-c*(@-g)/(g+1),g+1FROM r WHERE g<@
    ),
    O AS( 
    --Multiple N values of list by reversed pascal triangle values
    --shifting the start for each iteration (list length) - N
    SELECT c*v v,F 
    FROM @L L 
        CROSS APPLY(
            SELECT TOP((SELECT COUNT(*)FROM @L)-@)ROW_NUMBER()OVER(ORDER BY(SELECT\))-1F FROM sys.all_views a,sys.all_views b)c 
        JOIN R ON N=F+@-G
    )
-- Sum the multiplied values
SELECT SUM(V)FROM o GROUP BY F ORDER BY F

परिणाम

— MickyT
स्रोत

2

जाप `-h` , 17 5 बाइट्स

12 बाइट्स @ धन्यवाद का धन्यवाद बचा लिया

VÆ=än

इसे ऑनलाइन आज़माएं!

— लुइस फेलिप डी जीसस मुनोज
स्रोत

13 बाइट्स

— झबरा

या एक अलग कार्यान्वयन 12 बाइट्स

— झबरा

आप बदल सकते हैं äÏ-Xके साथ än2 और बाइट्स को बचाने के लिए उन दोनों में।

— झबरा

यह 5 बाइट्स के लिए नीचे मिल गया !

— झबरा

@ झगड़ालू लानत है कि आप जप xD में बहुत अच्छे हैं। आपको अपने 5 बाइट्स जवाब पोस्ट करने चाहिए

— लुइस फेलिप डी जीसस मुनोज

0

स्माइलबासिक, 76 बाइट्स

अंत में उपयोग करने का एक कारण ARYOP!

DEF F L,D
IF!D THEN@R
DIM B[0]COPY B,L
T=SHIFT(L)ARYOP 1,L,L,B
F L,D-1@R
END

— 12Me21
स्रोत

0

क्लोजर, 47 बाइट्स

#(if(= 0 %)%2(recur(dec %)(map -(rest %2)%2))))

अनाम फ़ंक्शन पर एक सरल पुनरावृत्ति। आप 1 बाइट बचाते हैं यदि तर्कों का क्रम स्वैप किया जाता है क्योंकि अब की %2तुलना में अधिक बार होता है %।

— NikoNyrh
स्रोत

0

जेली , 2 बाइट्स

I¡

इसे ऑनलाइन आज़माएं!

व्याख्या

I¡  Main Link
 ¡  Repeat `n` times; this repeats the previous link by <right argument> times
I   Get forward differences

बहुत सीधा सा जवाब: पी

— हाइपरन्यूट्रिनो
स्रोत

0

Japt , 7 बाइट्स

लुइस को उनके समाधान के लिए मैंने कुछ विकल्प उपलब्ध कराए ।

_än}gNÅ

कोशिश करो

10 बाइट्स

ÏÄ<V}f@=än

कोशिश करो

— झबरा
स्रोत

अलग रास्ता आगे

इनपुट

उत्पादन

नियम

जे, 15 9 7 बाइट्स

पायथन, 61 59 बाइट्स

गणितज्ञ 23 57 23 बाइट्स

हास्केल, 40 34 बाइट्स

जावास्क्रिप्ट (ईएस 6), 52 49 बाइट्स

सीजेएम, 15 बाइट्स

व्याख्या

जावा, 122 119 बाइट्स

> <> 53 50 बाइट्स

प्रस्तावना , ९ ५ ९ 78 ९ by by बाइट्स

व्याख्या

पायथन, 70 68 67 59 बाइट्स

आर, ४ R ३ ९ ४६ 44 बाइट्स

पायथन, 92 87 86 बाइट्स

सी, 68 55 बाइट्स

पॉवरशेल 115 111 बाइट्स

STATA, 126 बाइट्स

टी-एसक्यूएल, बहुत सारे :)

जाप -h , 17 5 बाइट्स

स्माइलबासिक, 76 बाइट्स

क्लोजर, 47 बाइट्स

जेली , 2 बाइट्स

व्याख्या

Japt , 7 बाइट्स

10 बाइट्स

जाप `-h` , 17 5 बाइट्स