যোগফলের বর্গের পার্থক্য

37

বর্গের যোগফল এবং যোগফলের বর্গের মধ্যে পার্থক্য সন্ধান করুন।

এটি গাণিতিক উপস্থাপনা:

(∑n)2−∑n2

আপনার প্রোগ্রাম / পদ্ধতিতে দুটি ইনপুট নেওয়া উচিত, এটি আপনার সীমার নিম্ন এবং উচ্চতর সীমা এবং অন্তর্ভুক্ত। সীমাগুলি 0 এর উপরে পুরো পূর্ণসংখ্যা হবে।

আপনার প্রোগ্রাম / পদ্ধতির উত্তরটি ফিরিয়ে দেওয়া উচিত।

আপনি যে কোনও বেসটি চান তা ব্যবহার করতে পারেন তবে দয়া করে আপনার উত্তরে আপনি কোন বেসটি ব্যবহার করেছেন তা উল্লেখ করুন।

পরীক্ষার কেস (বেস 10)

5,9      970
91,123   12087152
1,10     2640

এটি সাধারন কোড-গল্ফ, তাই উত্তরটি যত সংক্ষিপ্ততর হয় তত কম।

code-golf  math  arithmetic  array-manipulation 
— জর্জ
সূত্র
11
ইনপুটটি একটি ব্যাপ্তির শেষ পয়েন্টগুলি বুঝতে পেরে আমাকে কিছুটা সময় নিয়েছিল।
— ব্র্যাড গিলবার্ট বিগগিলস
@ BradGilbertb2gills স্বচ্ছতার জন্য সম্পাদনা
— জর্জ
এটি দেখতে চেয়ে সহজ?
— বিড়াল
@ কেট আপনি এর অর্থ কি? হ্যাঁ গণিতগুলি সহজ আলেভেল স্টাফ। তবে আপনি কীভাবে এটি গল্ফ করেন তা
— জর্জে
@george প্রশ্ন এবং উত্তরগুলির অনেকগুলি এটিকে অনেক কাজের মতো দেখায়, তবে তা নয়
— বিড়াল

উত্তর:

23

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

f=lambda a,b,s=0:b/a and 2*a*s+f(a+1,b,s+a)

আইডিয়নে এটি পরীক্ষা করুন ।

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

স্পেসিফিকেশন g (a, b) এ সংজ্ঞায়িত ফাংশনটি কল করুন । আমাদের তা আছে

ফ (এক্স, ওয়াই, গুলি) ফাংশনটি পুনরাবৃত্তভাবে নিম্নলিখিত হিসাবে সংজ্ঞা দিন।

মোট খ - a এর পুনরাবৃত্ত সম্পর্ক প্রয়োগ করে (ক, খ, 0) খ - এক বার, আমরা এটি প্রদর্শন করতে পারি।

এই ফাংশনটি হয় চ প্রয়োগের। b/aএকটি শূন্য-পূর্বে পূর্ণসংখ্যা ফেরত দেওয়ার সময় , নিম্নলিখিত কোডটি andকার্যকর করা হয়, সুতরাং চ এর পুনরাবৃত্ত সংজ্ঞাটি কার্যকর করে ।

একবার b/aপৌছানোর 0 , আমরা যে আছে b> একটি এবং ল্যামডা আয় মিথ্যা = 0 এইভাবে সংজ্ঞা বেস কেস বাস্তবায়ন, চ ।

— ডেনিস
সূত্র
আহ ঠিক আছে. আপনি আপনার পদ্ধতি ব্যাখ্যা করতে পারেন যদিও?
— জর্জে
আমি করব, তবে আমি বর্তমানে এটি আরও কিছুটা গল্ফ দেওয়ার চেষ্টা করছি।
— ডেনিস
সূত্রের জন্য ধন্যবাদ আমার ধারণা আমি এর আগে কখনও দেখিনি কারণ স্কুলে আমরা এরকম সিরিজের অঙ্ক কভার করি না। বেশ আকর্ষণীয় যদিও!
— জর্জে
2
@ জর্জ আমি ব্যাখ্যাটি শেষ করেছি।
— ডেনিস
Wanna কীভাবে আপনার পৃথিবীতে f সংজ্ঞা দেওয়ার ধারণাটি আপনার মনের মধ্যে এসেছিল তা আরও কিছু বলুন! প্রেরণা! আমি আসল আগ্রহী।
— মুসা আল-হাসি
15

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

&:&*XRssE

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

ব্যাখ্যা

&:   % Inclusive range between the two implicit inputs
&*   % Matrix of all pair-wise products
XR   % Upper triangular part of matrix, without the diagonal
ss   % Sum of all elements of the matrix
E    % Multiply by 2. Implicit display

উদাহরণ

এগুলি ইনপুটগুলির জন্য প্রতিটি লাইনের আংশিক ফলাফল 5এবং 9:

  1. &:

    5 6 7 8 9

  2. &:&*

    25 30 35 40 45
30 36 42 48 54
35 42 49 56 63
40 48 56 64 72
45 54 63 72 81

  3. &:&*XR

    0 30 35 40 45
0  0 42 48 54
0  0  0 56 63
0  0  0  0 72
0  0  0  0  0

  4. &:&*XRss

    485

  5. &:&*XRssE

    970
— লুইস মেন্ডো
সূত্র
7
আমি আংশিক ফলাফল দেখতে সত্যিই পছন্দ করি। তারা প্রোগ্রামটি বুঝতে সহায়তা করে। তাদের অন্তর্ভুক্ত করার জন্য ধন্যবাদ!
— ড্যান
10

জেলি, 9 8 বাইট

rµS²_²S$

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

r         inclusive range from first input to second input
 µ        pass the range to a new monadic chain
  S       the sum
   ²      squared
    _     minus...
     ²S$  the squares summed

একটি বাইট জন্য FryAmTheEggman ধন্যবাদ !

— ডোরকনব
সূত্র
3
একবারের জন্য, জেলি আসলে খুব পঠনযোগ্য।
— অ্যাডম
আমি কি আমার উত্তরটি কাঁটাতে পারি?
— ফাঁস নুন
পছন্দ করুন
— ডুরকনব
এই ।
— ফাঁস নুন
6
দুর্দান্ত কানের দুল: S²_²S
— টমাস ওয়েলার
10

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

lambda a,b:(a+~b)*(a-b)*(3*(a+b)**2+a-b-2)/12

বন্ধ ফর্ম সমাধান - সংক্ষিপ্ত নয়, তবে আমি ভেবেছিলাম এটি যেভাবে পোস্ট করা ভাল।

ব্যাখ্যা

দিন p(n)হতে এন ম বর্গ পিরামিডাকৃতির সংখ্যা , এবং t(n)হতে এন ম ত্রিদলীয় সংখ্যা । তারপর, জন্য এন সীমায় একটি , ..., খ :

  • =n = t(b)-t(a-1), এবং
  • ²n² = p(b) - p(a-1)
  • সুতরাং ()n) ²-²n² = (t(b)-t(a-1))² - (p(b) - p(a-1))।

এই অভিব্যক্তিটি কোডটিতে এটি হ্রাস করে।

— Sp3000
সূত্র
হাই যদি আপনি সম্ভব হয় আপনার সমীকরণ ব্যাখ্যা করতে পারেন। আমার পাইথন সংস্করণ 16 আর বাইট এবং আমি চিন্তা করতে পারে না কিভাবে আপনি আপনার সমীকরণ উদ্ভূত
— জর্জ
1
@george দিন p(n)হতে nতম বর্গ পিরামিডাকৃতির সংখ্যা , এবং t(n)হতে nতম ত্রিদলীয় সংখ্যা । তাহলে এটি একটি সরল সংস্করণ (t(b)-t(a-1))^2 - (p(b) - p(a-1))।
— মার্টিন এন্ডার
@ মার্টিনএেন্ডার সুতরাং এটিই আমি সঠিক সূত্রটি ব্যবহার করেছি তবে এসপি 3000 এটিকে এমনভাবে সরল করেছে যাতে আমি বুঝতে পারি না। আমার অজগর লিপিটি হ'ল: (খ * - ~ বা * ~ -এ) ** 2 / 4- (খ * - ~ বি * (2 * বি + 1) -এ * ~ -এ * (2 * এ -1) ) / 6 যদি এটি কোনও কাজে আসে। আমি যতটা golfed আছে আমি করতে পারেন টু ফর্মুলা
— জর্জ
কখনও কখনও @george, এই মত সমস্যার সঙ্গে, সবচেয়ে সহজ উপায় পেতে হয় আলফা | উল্ফর্যাম ক্লান্তিকর অংশ তারপর ডবল পরীক্ষণ নিশ্চিত করুন যে এটি ডান করতে করতে। সত্যি কথা বলতে কি আমি মনে করি না যে আমি নিজে (a-b-1)থেকে ফ্যাক্টরটি টেনে বের করতে পারতাম (b*(b+1)*(2b+1)-a*(a-1)*(2a-1))/6।
— Sp3000
@ এসপি 3000 এটি করার এক দুর্দান্ত উপায়। আমি ভবিষ্যতে চেষ্টা করব
— জর্জে
6

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

ŸDOnsnO-

ব্যাখ্যা

ŸD       # range from a to b, duplicate
  On     # sum and square first range
    s    # swap top 2 elements
     nO  # square and sum 2nd range
       - # take difference

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

— Emigna
সূত্র
05AB1E জেলি এর একটি ROT13 সংস্করণ হতে পারে? By, µ দ্বারা ডি দ্বারা, এস দ্বারা ও, n এন দ্বারা, _ দ্বারা এস এবং $ দ্বারা - এর পরিবর্তে আর।
— টমাস ওয়েলার
4
@ থমাস ওয়েলার: এগুলি আসলে অন্যরকম। কিছু "ফাংশন" এর মধ্যে একটি সাধারণ অফসেট সম্ভবত কাকতালীয়। জেলি হ'ল চেইন ফাংশন (আফাইক) সম্পর্কে স্বতন্ত্র ভাষা, যখন 05 এ বি 1 ই একটি স্ট্যাক ভিত্তিক ভাষা।
— Emigna
6

গণিত, 21 বাইট

Tr[x=Range@##]^2-x.x&

একটি নামবিহীন ফাংশন দুটি যুক্তি গ্রহণ করে এবং পার্থক্যটি ফিরিয়ে দেয়। ব্যবহার:

Tr[x=Range@##]^2-x.x&[91, 123]
(* 12087152 *)

এখানে তিনটি ছোট (এবং মোটামুটি মানের) গল্ফিং ট্রিকস রয়েছে:

  • ##উভয় যুক্তি একবারে উপস্থাপন করে, যাতে আমরা উপসর্গ স্বরলিপি ব্যবহার করতে পারি Range। Range@##শর্টহ্যান্ড Range[##]যা এর জন্য প্রসারিত হয় Range[a, b]এবং প্রয়োজনীয় হিসাবে আমাদের একটি অন্তর্ভুক্ত পরিসর দেয়।
  • Trএটি ট্রেসের জন্য তবে এটি একটি ভেক্টর ব্যবহার করে কেবল সেই ভেক্টরের সমষ্টি হয়, তিনটি বাইট বেশি সঞ্চয় করে Total।
  • x.xএকটি ডট পণ্য, চার বাইট ওভার সঞ্চয় Tr[x^2]।
— মার্টিন ইন্ডার
সূত্র
হায় Varianceসাহায্য করেছিল?
— ফাঁস নুন
@LeakyNun আমি দেখতে পাচ্ছি না কিভাবে, কারণ দুটি পদ এক Varianceদ্বারা বিভক্ত করা হয় nএবং অন্যান্য n^2এবং আমি ঐ আলাদাভাবে পূর্বাবস্থা একটি সহজ উপায় দেখতে পাচ্ছি না।
— মার্টিন এন্ডার
1
Tr@#^2-#.#&@*Rangeশুধুমাত্র 18 বাইট।
— মিশা লাভরভ
পছন্দ করুন এটি একটি পৃথক উত্তর করতে নির্দ্বিধায়। :)
— মার্টিন এন্ডার
5

ল্যাবরেথ , 28 24 বাইট

?:?:}+=-:(:(#{:**+**#2/!

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

ব্যাখ্যা

যেহেতু লুপগুলি লাইব্রেরিতে ব্যয়বহুল হিসাবে প্রবণতাযুক্ত, তাই আমি অনুভব করেছি যে সুস্পষ্ট সূত্রটি সবচেয়ে কম হওয়া উচিত, কারণ এটি লিনিয়ার কোড হিসাবে প্রকাশ করা যেতে পারে।

Cmd Explanation                 Stacks [ Main | Aux ]
?   Read M.                     [ M | ]
:   Duplicate.                  [ M M | ]
?   Read N.                     [ M M N | ]
:   Duplicate.                  [ M M N N | ]
}   Move copy to aux.           [ M M N | N ]
+   Add.                        [ M (M+N) | N ]
=   Swap tops of stacks.        [ M N | (M+N) ]
-   Subtract.                   [ (M-N) | (M+N) ]
:   Duplicate.                  [ (M-N) (M-N) | (M+N) ]
(   Decrement.                  [ (M-N) (M-N-1) | (M+N) ]
:   Duplicate.                  [ (M-N) (M-N-1) (M-N-1) | (M+N) ]
(   Decrement.                  [ (M-N) (M-N-1) (M-N-2) | (M+N) ]
#   Push stack depth.           [ (M-N) (M-N-1) (M-N-2) 3 | (M+N) ]
{   Pull (M+N) over from aux.   [ (M-N) (M-N-1) (M-N-2) 3 (M+N) | ]
:   Duplicate.                  [ (M-N) (M-N-1) (M-N-2) 3 (M+N) (M+N) | ]
*   Multiply.                   [ (M-N) (M-N-1) (M-N-2) 3 ((M+N)^2) | ]
*   Multiply.                   [ (M-N) (M-N-1) (M-N-2) (3*(M+N)^2) | ]
+   Add.                        [ (M-N) (M-N-1) (3*(M+N)^2 + M - N - 2) | ]
*   Multiply.                   [ (M-N) ((M-N-1)*(3*(M+N)^2 + M - N - 2)) | ]
*   Multiply.                   [ ((M-N)*(M-N-1)*(3*(M+N)^2 + M - N - 2)) | ]
#   Push stack depth.           [ ((M-N)*(M-N-1)*(3*(M+N)^2 + M - N - 2)) 1 | ]
2   Multiply by 10, add 2.      [ ((M-N)*(M-N-1)*(3*(M+N)^2 + M - N - 2)) 12 | ]
/   Divide.                     [ ((M-N)*(M-N-1)*(3*(M+N)^2 + M - N - 2)/12) | ]
!   Print.                      [ | ]

নির্দেশ নির্দেশিকাটি তখন একটি মৃত প্রান্তে আঘাত করে এবং ঘুরে দাঁড়াতে হবে। যখন এটি এখন মুখোমুখি হয় তখন এটি /শূন্য দ্বারা বিভাজনের চেষ্টা করে (যেহেতু স্ট্যাকের নীচে স্পষ্টভাবে জিরো দিয়ে ভরা হয়), যা প্রোগ্রামটি বন্ধ করে দেয়।

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

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

a#b=sum[a..b]^2-sum(map(^2)[a..b])

ব্যবহারের উদাহরণ: 91 # 123-> 12087152।

বোঝানোর মতো কিছুই নেই।

— nimi
সূত্র
3

মতলব, 30 29 28 বাইট

স্যুভারের ধারণাটি ব্যবহার করে normআমাদের 2 বাইট কম দেয়

@(x,y)sum(x:y)^2-norm(x:y)^2

পুরানো (সাধারণ) সংস্করণ:

@(x,y)sum(x:y)^2-sum((x:y).^2)
— pajonk
সূত্র
3

অক্টাভা, 27 23 বাইট

@(x,y)sum(z=x:y)^2-z*z'

একটি নামহীন ফাংশন তৈরি করে ansযা দুটি ইনপুট গ্রহণ করে:ans(lower, upper)

অনলাইন ডেমো

ব্যাখ্যা

থেকে একটি সারিতে ভেক্টর তৈরি করে xকরার y(সহ) ও সঞ্চয় করে z। এরপরে আমরা সমস্ত উপাদান ব্যবহার করে sumএটি ব্যবহার করে বর্গ করি ( ^2)। স্কোয়ারগুলির যোগফল গণনা করতে, আমরা সারি-ভেক্টর এবং এটি ট্রান্সপোজের মধ্যে ম্যাট্রিক্স বহুবৃত্তি করি। এটি কার্যকরভাবে প্রতিটি উপাদানকে বর্গক্ষেত্র করবে এবং ফলাফলের সমষ্টি করবে। আমরা তখন দুজনকে বিয়োগ করি।

— Suever
সূত্র
3

জাভা, 84 77 টি অক্ষর, 84 77 বাইট

মার্টিন ইন্ডার এবং ফ্রাইআমএইজিজিম্যানের কারণে 7 বাইট ছোট, আপনাকে ধন্যবাদ।

public int a(int b,int c){int e=0,f=0;for(;b<=c;e+=b,f+=b*b++);return e*e-f;}

মূল পোস্টে তিনটি পরীক্ষার কেস ব্যবহার করে: http://ideone.com/q9MZSZ

Ungolfed:

public int g(int b, int c) {
    int e = 0, f = 0;
    for (; b <= c; e += b, f += b * b++);
    return e*e-f;
}

প্রক্রিয়া মোটামুটি স্ব-ব্যাখ্যামূলক। আমি বকেয়ার বর্গ এবং স্কোয়ারের যোগফলের প্রতিনিধিত্ব করার জন্য দুটি ভেরিয়েবল ঘোষণা করেছিলাম এবং বারবার এটিকে অ্যাপোপ্রিয়েটে বাড়িয়েছি। অবশেষে, আমি গণিত পার্থক্যটি ফিরিয়ে দিই।

— মারিও ইসহাক
সূত্র
পিপিসিজিতে আপনাকে স্বাগতম! আপনি সম্ভবত এটি ++চালিয়ে একটি বাইট সংরক্ষণ f+=b*b++করতে পারেন (যাতে আপনি খালিটির তৃতীয় স্লটটি ছেড়ে দিতে পারেন for) এবং eএটি ফিরিয়ে দেওয়ার আগে আপনার বর্গাকারও প্রয়োজন হবে না (যেমন কেবল করুন return e*e-f)।
— মার্টিন ইন্ডার
প্রকৃতপক্ষে forখালি তৃতীয় স্লটটি রেখে যাওয়ার পরিবর্তে f+=b*b++সেখানে প্রবেশ করুন, যাতে আপনি একটি সেমিকোলন এবং ধনুর্বন্ধনী উভয়কে সঞ্চয় করতে পারেন।
— মার্টিন ইন্ডার
মার্টিন ইন্ডিয়ার দুর্দান্ত ক্যাচ, আপনাকে ধন্যবাদ :)
— মারিও ইশাক
মার্টিনের মনে কী ছিল তার ভিত্তিতেও এটিকে কিছুটা খাটো মনে হচ্ছে।
— FryAmTheEggman
1
স্পষ্টতই, আমার শেষ মন্তব্যটি ভুল ছিল। এটি আসলে জাভা ব্যাকরণের একটি বিশেষ অঙ্গ: একটি এর চূড়ান্ত বিবৃতি আসলে একটি বিশেষ ধরণের বিবৃতি, যা একটি বিবৃতি প্রকাশের তালিকা বলে। এই বিশেষ বিবৃতিতে কমা দিয়ে একাধিক বক্তব্য থাকতে পারে। 14.14.1 দেখুন (আপনাকে সেখানে নিজেরাই চলাফেরা করতে হবে, ভাষা সুনির্দিষ্টতার জন্য আরও সুনির্দিষ্ট লিঙ্ক করার কোনও উপায় আমি খুঁজে পাইনি)।
— FryAmTheEggman
3

জাভাস্ক্রিপ্ট (ES6), 50 37 বাইট

f=(n,m,s=0)=>n>m?0:2*n*s+f(n+1,m,n+s)

এখন @ ডেনিসের পাইথন সমাধানের একটি বন্দর।

— নিল
সূত্র
ব্যবহার করার চেষ্টা করুনn=>m=>eval(`for(s=t=0;n<=m;t+=n++)s+=n*n;t*t-s`)
— মামা ফান রোল
@ মামাফুনরল অন্যদিকে, আমি ডেনিসের পাইথন সমাধানটি চিত্রিত করার চেষ্টা করতে পারি ...
— নীল
3

ফ্যাক্টর, 48 বাইট

[ [a,b] [ [ sq ] map sum ] [ sum sq ] bi - abs ]

একটি বেনামে ফাংশন।

[ 
  [a,b] ! a range from a to b 
  [ 
    [ sq ] map sum ! anonymous function: map sq over the range and sum the result 
  ] 
  [ sum sq ] ! the same thing, in reverse order
  bi - abs   ! apply both anon funcs to the range, subtract them and abs the result
]
— বিড়াল
সূত্র
3

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

m#n=sum[2*i*j|i<-[m..n],j<-[i+1..n]]

λ> m # n = sum [ 2*i*j | i <- [m..n], j <- [i+1..n] ]
λ> 5 # 9
970
λ> 91 # 123
12087152
λ> 1 # 10
2640

মনে রাখবেন যে

(∑k=mnk)2−∑k=mnk2=⋯=∑k1=mn∑k2=mk2≠k1nk1k2=∑k1=mn∑k2=k1+1n2k1k2
— রদ্রিগো দে আজেভেদো
সূত্র
1
আপনার চারপাশে পেরেন দরকার নেই i+1।
— গম উইজার্ড
2
এছাড়াও আপনি যদি হাস্কেল এবং হাস্কেল গল্ফিংয়ের কথা বলতে চান তবে আমাদের সাথে চ্যাট রুমে যোগ দিতে পারেন ।
— গম উইজার্ড
3

পার্ল 6 ,  36 32  31 বাইট

{([+] $_=@_[0]..@_[1])²-[+] $_»²}
{([+] $_=$^a..$^b)²-[+] $_»²}
{[+]($_=$^a..$^b)²-[+] $_»²}

এটা পরীক্ষা করো

ব্যাখ্যা:

{ # bare block with placeholder parameters $a and $b

  [+](# reduce with &infix:<+>
      # create a range, and store it in $_
      $_ = $^a .. $^b
  )²
  -
  [+] # reduce with &infix:<+>
    # square each element of $_ ( possibly in parallel )
    $_»²
}

টেস্ট:

#! /usr/bin/env perl6
use v6.c;
use Test;

my @tests = (
  (5,9) => 970,
  (91,123) => 12087152,
  (1,10) => 2640,
);

plan +@tests;

my &diff-sq-of-sum = {[+]($_=$^a..$^b)²-[+] $_»²}

for @tests -> $_ ( :key(@input), :value($expected) ) {
  is diff-sq-of-sum(|@input), $expected, .gist
}
1..3
ok 1 - (5 9) => 970
ok 2 - (91 123) => 12087152
ok 3 - (1 10) => 2640
— ব্র্যাড গিলবার্ট বি 2 গিলস
সূত্র
1
অ্যাসাইনমেন্টটি সরানো এবং প্যারেনগুলি এড়ানোর কোনও বাইট সংরক্ষণ করুন:{$_=$^a..$^b;.sum²-[+] $_»²}
— ফিল এইচ
1
25 বাইট:{.sum²-[+] $_»²}o&[..]
— নভেলহোহফ
2

ব্র্যাচল্যাগ , 24 বাইট

:efL:{:2^.}a+S,L+:2^:S-.

তালিকা হিসাবে ইনপুটটিতে 2 নম্বর আশা করে [91:123]।

ব্যাখ্যা

:efL                     Find the list L of all integers in the range given in Input
    :{:2^.}a             Apply squaring to each element of that list
            +S,          Unify S with the sum of the elements of that list
               L+:2^     Sum the elements of L, then square the result
                    :S-. Unify the Output with that number minus S
— Fatalize
সূত্র
2

এপিএল, 23 20 বাইট

-/+/¨2*⍨{(+/⍵)⍵}⎕..⎕

NARS2000 এ কাজ করে।

— আদম
সূত্র
2

পাইথ, 11 বাইট

s*M-F#^}FQ2

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

s*M-F#^}FQ2
       }FQ    Compute the range
      ^   2   Generate all pairs
   -F#        Remove those pairs who have identical elements
 *M           Product of all pairs
s             Sum.
— ফুটো নুন
সূত্র
ফিল্টার দুর্দান্ত ব্যবহার। যদিও এই কাজের জন্য ইতিমধ্যে একটি বিল্ড-ইন রয়েছে:s*M.P}FQ2
— জাকুবে
1

সিজেম, 17 বাইট

q~),>_:+2#\2f#:+-

এটি এখানে পরীক্ষা করুন।

ব্যাখ্যা

q~       e# Read and evaluate input, dumping M and N on the stack.
),       e# Increment, create range [0 1 ... N].
>        e# Discard first M elements, yielding [M M+1 ... N].
_        e# Duplicate.
:+2#     e# Sum and square.
\2f#:+   e# Swap with other copy. Square and sum.
-        e# Subtract.

বিকল্পভাবে, কেবলমাত্র সমস্ত স্বতন্ত্র জোড়াগুলির পণ্যগুলি যোগ করতে পারে (মূলত সমষ্টিটির বর্গাকার গুণিত করে এবং স্কোয়ারগুলি অপসারণ), তবে এটি একটি দীর্ঘতর বাইট:

q~),>2m*{)-},::*:+
— মার্টিন ইন্ডার
সূত্র
1

পাওয়ারশেল ভি 2 +, 47 বাইট

দুটি ভিন্নতা

param($n,$m)$n..$m|%{$o+=$_;$p+=$_*$_};$o*$o-$p

$args-join'..'|iex|%{$o+=$_;$p+=$_*$_};$o*$o-$p

উভয় ক্ষেত্রেই আমরা ..অপারেটরের সাথে একটি পরিসর তৈরি করছি , এটিকে একটি লুপে পাইপ করব |%{...}। প্রতিটি পুনরাবৃত্তি, আমরা জমে $oএবং $pসমষ্টি বা সমষ্টিগুলির সমষ্টি হিসাবে। তারপরে আমরা বর্গফলের অঙ্কগুলি $o*$oবিয়োগ করে এবং বিয়োগ করে $p। আউটপুটটি পাইপলাইনে রেখে গেছে এবং মুদ্রণ জড়িত।

— AdmBorkBork
সূত্র
1

জাভাস্ক্রিপ্ট (ES6), 67 বাইট

a=>b=>([s=q=0,...Array(b-a)].map((_,i)=>q+=(s+=(n=i+a),n*n)),s*s-q)

পরীক্ষা স্যুট

f=a=>b=>([s=q=0,...Array(b-a)].map((_,i)=>q+=(s+=(n=i+a),n*n)),s*s-q)
e=s=>`${s} => ${eval(s[0])}` // template tag format for tests
console.log(e`f(5)(9)`)
console.log(e`f(91)(123)`)
console.log(e`f(1)(10)`)
স্নিপেট প্রসারিত করুন

— প্যাট্রিক রবার্টস
সূত্র
1

জুলিয়া, 25 বাইট

f(a,b,x=a:b)=sum(x)^2-x'x

এটি এমন একটি ফাংশন যা দুটি পূর্ণসংখ্যা গ্রহণ করে এবং 1x1 পূর্ণসংখ্য অ্যারে প্রদান করে।

পদ্ধতির সহজ: একটি নির্মানের UnitRangeএন্ড পয়েন্ট থেকে aএবং bএবং এটি কল x, তারপর যোগফল x, এটি বর্গাকার, এবং তার আদর্শ, যা গণনা করা হয় বিয়োগ transpose(x) * x।

এটি অনলাইন চেষ্টা করুন! (সমস্ত পরীক্ষার কেস অন্তর্ভুক্ত)

— অ্যালেক্স এ।
সূত্র
1
a\b=-(x=a:b)'x+sum(x)^2কয়েক বাইট সাশ্রয়।
— ডেনিস
1

টিআই-বেসিক, 19 বাইট

Prompt N,M
randIntNoRep(N,M
sum(Ans)2-sum(Ans2

randIntNoRepপরিসর পায় (বদলে গেছে)। বাকিগুলি বেশ স্ব-বর্ণনামূলক।

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

ফিথ , 52 বাইট

{ 1 + range dup sum 2 pow swap { 2 pow } map sum - }

এটি একটি বেনাম ফাংশন যা স্ট্যাকের উপর দুটি সংখ্যা নেয় এবং একটি সংখ্যা ছেড়ে যায়।

ব্যাখ্যা:

{
    1 + range dup      2 ranges from a to b inclusive
    sum 2 pow          Sum one and square it
    swap               Bring a fresh range to the top
    { 2 pow } map sum  Square every element and sum the list
    -                  Subtract
}
— bkul
সূত্র
1
আপনি যদি পোস্টফিক্স, পয়েন্ট-ফ্রি এবং স্ট্যাক-ভিত্তিক ক্রিয়ামূলক পূর্বনির্মাণ পছন্দ করেন তবে আপনি পছন্দ করতে পারেন ফ্যাক্টর : ডি
— বিড়াল
1

জিওজেব্রা, 91 বাইট

a(x)=(x²+x)/2
b(x)=x³/3+x²/2+x/6
c(x,y)=(a(y)-a(x))²
d(x,y)=b(y)-b(x)
c(x-1,y)-d(x-1,y)

একটি ফাংশন (সম্ভবত e(x,y)) সংজ্ঞায়িত করে যা পছন্দসই পার্থক্য গণনা করে। এবং এর
a(x)মধ্যে প্রাকৃতিক সংখ্যার যোগফল গণনা করে । মধ্যে স্বাভাবিক সংখ্যার বর্গের সমষ্টি হিসাব করে এবং । প্রথম নির্ণয় মধ্যে প্রাকৃতিক সংখ্যার যোগফল এবং তারপর, স্কোয়ার যে সমষ্টি। এবং এর মধ্যে বর্গাকার যোগফল গণনা করে । শেষ লাইনটি একটি বহু-পরিবর্তনশীল ফাংশন সংজ্ঞা দেয় যা গণনা শেষ করে। ফাংশনটি কয়েকটি বাইট সংরক্ষণ করে স্বয়ংক্রিয়ভাবে একটি নাম নির্ধারিত হয়।0x
b(x)0x
c(x,y)xy
d(x,y)b(x)b(y)

— জো
সূত্র
হাই, আমি এই ফাংশনটিকে সংজ্ঞায়িত করে কীভাবে কল করব? আমি geogebra.org/classic#cas এ ইনপুটটি বের করতে সক্ষম হয়েছি , তবে চূড়ান্ত ফাংশনটি কীভাবে সন্ধান করতে বা কল করতে হবে তা নির্ধারণ করতে পারিনি।
— - মনিকা পুনরায় ইনস্টল করুন 2'18
@ সুন্দর: শেষ লাইনটি এক্স এবং ওয়াইয়ের মধ্যে একটি অভিব্যক্তি। আমরা e(x,y)=এটির নাম দেওয়ার প্রস্তুতি নিতে পারি, তবে বাইটগুলি সংরক্ষণ করার জন্য, আমরা এখানে নেই। জিওজেব্রা স্বয়ংক্রিয়ভাবে এক্সপ্রেশনটিকে একটি নাম বরাদ্দ করে (সম্ভবত এটি পরবর্তী অক্ষর)। আমার এখনই পরিবেশ উপলব্ধ নেই তবে আমি সিএএস ফলকটি ব্যবহার করব না। বীজগণিত ফলক এবং ইনপুট বারটি সঠিকভাবে কাজ করা উচিত। (আমি অনলাইনে জিজিবি ব্যবহার করেছি, এর কিছুক্ষণ হয়েছে; আমার এটির মানসিক চিত্রটি পুরানো হতে পারে))
— জো
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.