অপারেটর যা যোগফল, পণ্য এবং দুটি সংখ্যার মধ্যে পার্থক্য একত্রিত করে


28

চ্যালেঞ্জ:

সামাজিক নেটওয়ার্কগুলিতে একটি নির্বোধ ধাঁধা প্রচলিত রয়েছে যা পড়ে:

8 + 2 = 16106
5 + 4 = 2091
9 + 6 = ?

একটি ফাংশন বা অপারেটর বাস্তবায়ন যে দুটি ধনাত্মক পূর্ণসংখ্যা সংখ্যার দেওয়া xএবং yযেমন যে x > y > 0, একটি সঠিক উত্তর হিসাবে উৎপাদ পূর্ণসংখ্যা , উত্তর কই এর সংখ্যা ডিজিটের হয় x * yডিজিটের দ্বারা অনুসরণ x + yটি সংখ্যা দ্বারা অনুসরণ x - y। খুব সহজ.

নিয়মাবলী:

  • স্ট্যান্ডার্ড লুফোলগুলি অনুমোদিত নয়।
  • এটি তাই বাইট জিতে সংক্ষিপ্ততম কোড।
  • ইনপুট ডেটা বৈধতা প্রয়োজন হয় না । অবৈধ ইনপুট দেওয়া হলে এই প্রোগ্রামটি ক্র্যাশ বা আবর্জনা ফিরে আসতে পারে।
  • আপনাকে সংখ্যাসূচক ফাংশন এবং অপারেটরগুলি (পূর্ণসংখ্যার এবং ভাসমান পয়েন্ট, গণিত গ্রন্থাগার ফাংশন এবং অন্যান্য ক্রিয়াকলাপগুলি গ্রহণ করে এবং ফেরত নম্বরগুলি সহ) ব্যবহার করার অনুমতি দেওয়া হয়েছে।
  • আপনার যদি এমন কোনও ফাংশন ব্যবহারের অনুমতি দেওয়া হয় যা প্রযোজ্য হয় তবে কোনও সংখ্যার অঙ্কের সংখ্যা প্রদান করে।
  • তুমি না স্ট্রিং অথবা আপনার কোডে সংযুক্তকরণের জন্য যে কোন জায়গায় যে কোন ধরণের ব্যবহার করার অনুমতি দেওয়া।
  • ভাষার যে কোনও ক্ষেত্রে ফল প্রয়োগ বা স্ট্যাকের দিকে ধাক্কা দেওয়া যেতে পারে। ফলাফলটি অবশ্যই একটি পূর্ণসংখ্যার সংখ্যা হতে হবে, একটি স্ট্রিং নয়।

কোডের উদাহরণ:

ডায়ালগ এপিএল :

নিম্নলিখিত কোডটি একটি ডায়াডিক অপারেটর তৈরি করে X

এক্স ← {(⍺-⍵) + + ((⍺ + + ⍵) × 10 * 1 + + ⌊10⍟⍺-⍵) + + ⍺ × ⍵ × 10 * (2 + + ⌊10⍟⍺ + + ⍵) + + ⌊10⍟⍺- ⍵}

ব্যাখ্যা:

  • এপিএলে, আপনি ডান থেকে বামে মূল্যায়ন করেন।

  • ⍺ and ⍵ যথাক্রমে বাম এবং ডান অপরেন্দ্র

  • ⌊10⍟⍺-⍵লেখা আছে: floor of log10(⍺-⍵)। প্রথমে সাবস্ট্রাকশন করে তারপরে লোগারিদম তারপর তল। ডান থেকে বামে। লগ 10 এর অঙ্কগুলি গণনা করার জন্য করা হয় ⍺-⍵(আপনার পরে 1 টি যোগ করতে হবে)।

  • ⍺×⍵×10*(...) লেখা আছে: 10 to the (...)th power, multiplied by ⍵, multiplied by ⍺

  • সুতরাং, ⍺×⍵×10*(2+⌊10⍟⍺+⍵)+⌊10⍟⍺-⍵যোগফলের সংখ্যা এবং পার্থক্যের সংখ্যার যোগফল দ্বারা পণ্যটি বামে স্থানান্তরিত হয়। 10 এর পাওয়ার দ্বারা গুণিত করা একটি পূর্ণসংখ্যা বামে স্থানান্তরিত করে।

  • ((⍺+⍵)×10*1+⌊10⍟⍺-⍵) পার্থক্যের সংখ্যা সংখ্যা দ্বারা বামে স্থানান্তরিত করা যোগফল।

  • (⍺-⍵)পার্থক্য। এখানে কোন স্থানান্তর প্রয়োজন।

  • X←{...} আপনি কীভাবে এপিএলে কোনও অপারেটরকে সংজ্ঞায়িত করেন।

উদাহরণ:

      8 X 2
16106
      5 X 4
2091
      9 X 6
54153

জিএনইউ ডিসি:

নিম্নলিখিত কোডটি একটি ম্যাক্রো নামক তৈরি করে a:

[sysx10lxly-dseZdsclxly+dsd+Z1+^lxly**10lc^ld*+le+]sa

ব্যাখ্যা:

  • sxএবং syস্ট্যাকের থেকে একটি উপাদান পপ এবং রেজিস্টার এটি সংরক্ষণ xএবং yযথাক্রমে।

  • lxএবং lyরেজিস্টার xএবং yযথাক্রমে একটি উপাদান লোড করুন এবং এটি স্ট্যাকের দিকে ধাক্কা।

  • d স্ট্যাকের শেষ উপাদানটি নকল করে।

  • ^ দুটি সংখ্যার শক্তি গণনা করে।

  • Zএকটি সংখ্যা পপ করে এবং তার সংখ্যাটি প্রদান করে। এটি করা হয়েছে কারণ dcকোনও লগারিদম ফাংশন নেই।

  • [...]saরেজিস্টার একটি ম্যাক্রো সঞ্চয় alaএটি বোঝা। xস্ট্যাকের শীর্ষে ম্যাক্রো চালায়।

উদাহরণ:

8 2 laxn
16106
5 4 laxn
2091
9 6 laxn
54153

আমি ধরে নিয়েছি যে পূর্ণসংখ্যা থেকে স্ট্রিংয়ে রূপান্তরটি অবৈধ?
অ্যান্থনি ফ্যাম

2
আমি মনে করি আমাদের অনেকটা এরকম একটি চ্যালেঞ্জ হয়েছিল তবে কী শর্তাবলী ডুপটি খুঁজে পাবে তা জানি না।
xnor

2
@ অ্যান্থনি ফ্যাম "আপনাকে আপনার কোডের কোথাও স্ট্রিং বা কোনও ধরণের কনক্যাটেনশন ব্যবহার করার অনুমতি নেই" "
ASCII- কেবল

1
আমরা কি ইনপুট হিসাবে একজোড়া পূর্ণসংখ্যা নিতে পারি?
কনর ও'ব্রায়ান

1
আমি কি কোনও ফাংশনের পরিবর্তে একটি সম্পূর্ণ প্রোগ্রাম তৈরি করতে পারি?
এরিক আউটগল্ফার

উত্তর:


10

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

সংরক্ষিত 4 ধন্যবাদ বাইট নিল

(a,b)=>[a*b,a+b,a-b].reduce((p,c)=>p*10**-~Math.log10(c)+c)

<input id=a type=number oninput="c.innerText=((a,b)=>[a*b,a+b,a-b].reduce((p,c)=>p*10**-~Math.log10(c)+c))(+a.value,+b.value)">
<input id=b type=number oninput="c.innerText=((a,b)=>[a*b,a+b,a-b].reduce((p,c)=>p*10**-!Math.log10(c)+c))(+a.value,+b.value)">
<p id=c>


কিছু বাইট ব্যবহার করে সংরক্ষণ করুন 10**-~Math.log10(c)। (তবে reduceঅবশ্যই ব্যবহারের জন্য +1 ))
নীল

"ES7" ওহ, কোডিংয়ের ভালবাসার জন্য ... তারা অন্যটি তৈরি করছে?
ফেদারক্রাউন

@ ফেদারক্রাউন হ্যাঁ, তবে "জাভা 9" শুনার চেয়ে এটি কি খারাপ? প্লাস এটির মতো দরকারী জিনিসগুলি রয়েছে async/ awaitএবং ক্ষতিকারক অপারেটর**
এএসসিআইআই-

@ এএসসিআইআই কেবলমাত্র **কার্যকর, আমি সম্মত। এটি ES6 এ হওয়া উচিত ছিল।
ফেদারক্রাউন

8

সি, 79 75 বাইট

4 জি বাইট সংরক্ষণ করার জন্য @ জিবি ধন্যবাদ!

#define X for(c=1;(c*=10)<=a
c,d;f(a,b){X+b;);d=c*a*b+a+b;X-b;);a=d*c+a-b;}

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


1
কোনও ফাংশনের পরিবর্তে একটি সংজ্ঞা ব্যবহার করে কিছু বাইট সংরক্ষণ করুন: tio.run/nexus/…
জিবি

6

বাশ, 66

  • 2 বাইট @ চেপনারকে ধন্যবাদ রক্ষা করেছে।
f()(s=$[$1+$2]
d=$[$1-$2]
echo $[($1*$2*10**${#s}+s)*10**${#d}+d])

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


যদি আপনি আপনার ভেরিয়েবলগুলি (গুলি, ডি এবং অন্যটি যে সংখ্যার জন্য আপনি সংজ্ঞায়িত করেননি) একে অপরের পাশে রাখেন এবং এটি একটি পাটিগণিতের এক্সপ্রেশন হিসাবে মূল্যায়ন করেন তবে এটি প্রায় দু'বার সংক্ষিপ্ত করা সম্ভব।
ম্যাক্সিম মিখায়লভ

3
@ ম্যাক্সলাউনবয় হ্যাঁ, যদিও এটি আমার কাছে নিষিদ্ধ স্ট্রিং কনটেক্সেনেশনের মতো শোনাচ্ছে।
ডিজিটাল ট্রমা

1
ভিতরে সনাক্তকারী নামগুলি দুটি অক্ষর সংরক্ষণ $[...]করে সুস্পষ্ট $(যেমন, dপরিবর্তে $d) ছাড়াই প্যারামিটার বিস্তারের সাপেক্ষে ।
চিপনার

@ চেপনার হাঁ - ধন্যবাদ - আমি সেগুলি মিস করেছি missed
ডিজিটাল ট্রমা

আরও দুটি পাওয়া গেছে; ((s=$1+$2,d=$1-$2))দুটি ভেরিয়েবলকে আন্তঃকরণ করতে ব্যবহার করুন ।
চিপনার


5

স্ট্যাকড , 36 বাইট

,@A$(*+-){!A...n!}"!{%y#'10\^x*y+}#\

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

পূর্বে: ,@A$(-+*){!A...n!}"!:inits$#'"!$summap:pop@.10\^1\,\*sum

আমি ব্যাখ্যা লেখার আগে একটি বা দুটি বাইট বের করার চেষ্টা করতে যাচ্ছি। ( #'= এর আকার এবং "এটি "প্রত্যেকের সাথে করা হয়", এখানে কোনও স্ট্রিং সংযুক্ত নেই)

26 বাইট এ Noncompeting: $(*+-)#!!:{%y#'10\^x*y+}#\



4

জিএনইউ ডিসি, 36

এমন ম্যাক্রো সংজ্ঞায়িত mকরে যা স্ট্যাকের শীর্ষ দুই সদস্যকে নিয়ে যায়, ম্যাক্রো প্রয়োগ করে এবং ফলটিকে স্ট্যাকের উপরে ছেড়ে দেয় (প্রশ্নের উদাহরণ অনুযায়ী):

[sadsbla-dZAr^lalb+*+dZAr^lalb**+]sm

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


3

পার্ল 6 ,  81 61  58 বাইট

->\x,\y{($/=($/=x- y)+(x+y)*({10**$++}...*>$/).tail)+x*y*({10**$++}...*>$/).tail}

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

->\x,\y{(x*y,x+y,x- y).reduce:{$^a*10**Int(1+log10($^b))+$b}}

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

->\x,\y{[[&({$^a*10**Int(1+$^b.log10)+$b})]] x*y,x+y,x- y}

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


পার্ল 6 না জেনে, আমি এটি x-yবৈধ সনাক্তকারী হিসাবে আবিষ্কার করে কিছুটা অবাক হয়েছি ।
নীল

3

জেলি , 27 বাইট

+,ạ,.1Fl⁵Ḟ‘€Ṛ+\⁵*
ạ,+,×Fæ.ç

ডায়াডিক লিঙ্ক / ফাংশন সংজ্ঞায়িত করে, কলযোগ্য ç। ইনপুট হিসাবে দুটি পূর্ণসংখ্যা নেয় এবং পূর্ণসংখ্যা ফেরত দেয়। এতে পরম পার্থক্যটি ব্যবহার করে x <y বা x >y নিতে সক্ষম হওয়ার যুক্ত বোনাস রয়েছে ।

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

ব্যাখ্যা:

+,ạ,.1Fl⁵Ḟ‘€Ṛ+\⁵* -- Create link which computes what order of magnitude
                        to multiply the difference, sum, and product by
ạ,+,×Fæ.ç         -- Main link, applies this using dot product

বিবরণ:

+,ạ,.1Fl⁵Ḟ‘€Ṛ+\⁵* -- Create dyadic like which does the following:
       l⁵Ḟ‘       -- Create operation which computes number of digits
                       (log base 10 (⁵ is the literal 10), floored, incremented)
           €      -- Apply this to each element in
+,ạ,.1F           -- ... the list [sum,difference,.1]
            R     -- Reverse the list
             +\   -- Add up first n elements to get list.
               ⁵* -- Raise 10 (⁵ is literal 10) to the power of each element

ạ,+,×Fæ.ç         -- Main link, applies above link
ạ,+,×F            -- The list [difference, sum, product]
      æ.          -- Dot product (multiply corresponding elements) with
        ç         -- The above link.

2

পিএইচপি, 79 75 বাইট

দুটি সংস্করণ:

[,$a,$b]=$argv;echo(10**strlen($s=$a+$b)*$a*$b+$s)*10**strlen($d=$a-$b)+$d;
[,$a,$b]=$argv;echo(10**strlen($a+$b)*$a*$b+$a+$b)*10**strlen($a-$b)+$a-$b;

কমান্ড লাইন আর্গুমেন্ট থেকে ইনপুট নেয়; সাথে চালানো -r

আমি অনুমান করি strlenযে "অঙ্কটি সংখ্যার ফিরিয়ে দেয়" এমন ফাংশন হিসাবে যোগ্যতা অর্জন
করবে যদিও এটি একটি স্ট্রিং হিসাবে নম্বরটি ব্যবহার করে। না হলে আমাকে জানাবেন।


'আপনার কোডের যে কোনও জায়গায় আপনি স্ট্রিং বা কোনও ধরণের কনটেনটেশন ব্যবহার করার অনুমতি পাচ্ছেন না so', সুতরাং আমি strlenবৈধ বলে মনে করি না ।
নম্বরমানিয়াক

@ নাম্বারমানিয়াক ওপিকে সিদ্ধান্ত নিতে দিন ইমো সীমাবদ্ধতা ছিল একে অপরের পরে কেবল তিনটি ফলাফল মুদ্রণের পরিবর্তে সমাধানগুলি একটি ফলাফল তৈরি করতে বাধ্য করা । এর বাইরে সমস্ত কিছুই নিটপিক করছে।
তিতাস

2

সি (জিসিসি) , 70 বাইট

#define _ for(c=1;a+b>=(c*=10););d=c*d+a-(b=-b);
c,d;f(a,b){d=a*b;_ _}

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

স্টেডিবক্স উত্তরের উপর ভিত্তি করে , সবকিছুকে ম্যাক্রোতে আরও কিছুটা গল্ফ করার জন্য রেখে।

(দ্রষ্টব্য: অপ্রত্যাশিতভাবে কাজের dপরিবর্তে ফলাফল নির্ধারণ করা aআমি উত্পন্ন সমাবেশ কোডটি দেখেছিলাম এবং এটি ঠিক আছে বলে মনে হচ্ছে))


2

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

a%0=a
a%b=10*a%div b 10+mod b 10
a#b=(a*b)%(a+b)%(a-b)

ধাঁধাটি একটি ইনফিক্স ফাংশনের মাধ্যমে প্রয়োগ করা হয় #, যেমন 8#2 = 16106। অন্যান্য ফাংশন, %বেস -10 কনটেনটেশনকে সংজ্ঞায়িত করে (অনুমান করে যে আরএইচএস 0 এর চেয়ে বেশি)



1

পিএইচপি, 87 বাইট

[,$a,$b]=$argv;echo($s=$a-$b)+($t=$a+$b)*10**($l=strlen($s))+$a*$b*10**($l+strlen($t));

এবং 37 বাইটের জন্য একটি বৈধ সমাধান নয়

[,$a,$b]=$argv;echo$a*$b,$a+$b,$a-$b;

1

রুবি, 61 বাইট

->a,b{[a*b,a+b,a-b].reduce{|x,y|z=y;x*=10while(z>z/=10);x+y}}

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


1

পাইথন, 92 91 চারস

def g(x,y):
    l=lambda x,i=0:l(x/10,i+1)if x else 10**i
    a=x-y
    a+=(x+y)*l(a)
    return x*y*l(a)+a

উইজার্ডস এর পরামর্শ ধন্যবাদ;)


সাইটে স্বাগতম! আপনার মাঝে )এবং এর মধ্যে জায়গার দরকার নেই if
গম উইজার্ড

1

আর (3.3.1), 104 বাইট

function(x,y)Reduce(function(p,q)p*10^(floor(log10(q)+1))+q,lapply(c(`*`,`+`,`-`),function(z)z(x,y)),0)

একটি বেনামি ফাংশন প্রদান করে।

এটি আমার প্রথম গল্ফিং প্রচেষ্টা, তাই কোনও প্রতিক্রিয়া প্রশংসা করা হয়।


1
আমি যদি বলি যে যদি সম্ভব হয় তবে এটি প্রচুর বাইট ব্যবহার করে তবেই সংরক্ষিত শব্দ 'ফাংশন' এর মাধ্যমে ফাংশনগুলি সংজ্ঞায়িত করার চেষ্টা করবেন না। শুধু গণনা করা।
ব্যবহারকারী 11599

0

রেক্সএক্স, 70 বাইট

f:arg a b
c=a-b
c=(a+b)*10**length(c)+c
c=a*b*10**length(c)+c
return c

অবশ্যই, স্থানীয় উপায়টি আরও খাটো হবে:

f:arg a b
return a*b||a+b||a-b

0

পাওয়ারশেল, 88 বাইট

param($x,$y)$l=2;if(($a=$x+$y)-gt9){$l++};($x*$y)*[math]::Pow(10,$l)+$a*10+$x-$y

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


0

পাইথন 2.7, 109 96 বাইট

import math
a=lambda n:10**int(math.log10(10*n))
b,c=input()
d=b-c+(b+c)*a(b-c)
print d+b*c*a(d)

প্রতিযোগিতার নিয়ম অনুসরণ করার পরে সংশোধন করা হয়েছে। কোডটি 109 বাইট থেকে 96 বাইটে নামিয়ে আনার জন্য mbomb007 এর ক্রেডিট


1
এই চ্যালেঞ্জের নিয়মগুলি থেকে -•You're not allowed to use strings or any kind of concatenation anywhere in your code.
অ্যাডমবর্কবার্ক

aল্যাম্বডা তৈরি করে আপনি কিছু বাইট সংরক্ষণ করতে পারেন । a=lambda n:10**int(...b,c=input()আপনার দুটি ইনপুট কমা দ্বারা পৃথক করে দিয়ে আপনিও করতে পারেন ।
mbomb007

@ mbomb007 বি, সি = ইনপুট () টাইপ এয়ারার দেয়: 'ইনট' অবজেক্টটি পুনরাবৃত্তিযোগ্য নয়। আমি চেষ্টা করেছি। এবং ল্যাম্বডা ফাংশনটি বাইট সংরক্ষণ করবে না কারণ আমি কোডটিতে দুবার ফাংশনটি কল করছি। সেটাও চেষ্টা করেছিলাম। :(
কুইশোর রায়

@ কুইশোররোয় আমার মনে হয় না আপনি যা বলতে চাইছেন তা পেয়ে গেছেন। 96 বাইট
mbomb007

0

জে , 25 বাইট

X=.10#.[:;10#.inv&.>*;+;-
  1. *;+;- প্রতিটি অপারেশন ফলাফল বক্স।
  2. 10#.inv&.>প্রতিটি ফলাফলকে বেস -10 সংখ্যার অ্যারে রূপান্তর করুন। ( invহয় ^:_1)
  3. [:; আনবক্স এবং অ্যারে যোগদান করুন।
  4. 10#. বেস -10 ডিজিটের অ্যারেটিকে পূর্ণসংখ্যায় রূপান্তর করুন।
  5. X=.অপারেটর হিসাবে উপরের সংজ্ঞা দিন X

ফলাফল:

   8 X 2
16106
   5 X 4
2091
   9 X 6
54153

আপনার প্রয়োজন নেইX=.
সাইয়েস

@ কোয়েস - চ্যালেঞ্জের নমুনা এপিএল কোড একটি অপারেটরকে সংজ্ঞায়িত করে। আমি নিশ্চিত যে এই চ্যালেঞ্জের জন্য আমরা পুনরায় ব্যবহারযোগ্য অপারেটরটি নির্ধারণ করব to
ডেন

"৩. [:; আনবক্স করুন এবং অ্যারেগুলিতে যোগদান করুন।" - "আপনাকে আপনার কোডের কোথাও স্ট্রিং বা কোনও ধরণের কনটেনটেশন ব্যবহার করার অনুমতি নেই" "
এনজিএন

@ngn - আপনার মন্তব্যটি প্রসারিত করুন। কোনও বিন্দুতে স্ট্রিং ব্যবহার করা হয় না।
ডেন

আমি কেবল ইঙ্গিত করতে চেয়েছিলাম যে "যোগদান" ("লিঙ্ক"?) একটি "ধরণের বক্তব্য" গঠন করতে পারে, যদিও আমি জে এর সাথে খুব পরিচিত নই, এবং এই ক্ষেত্রে সমস্যার বিবৃতিটি কীভাবে ব্যাখ্যা করব তা নিশ্চিত নই। । আমার নিজের সমাধান একই ধরণের প্রশ্ন উত্থাপন করে - আমি স্ট্র্যান্ডিং ব্যবহার করি (এপিএলে বিশেষ্যগুলির নামকে ভেক্টর রূপ দেয়) যা জে এর "লিঙ্ক" এর মতো হতে পারে তবে এটি উপস্থাপনের জন্য গ্লাইফ ছাড়াই।
এনজিএন

0

গণিত, 67 বাইট

c=Ceiling;l=Log10;#-#2+(#+#2)10^(c@l[#-#2]/. 0->1)+10^c@l[2#]10#2#&

লাগে x-y, তারপরে লগ 10 নিয়ে যায়, এটিটিকে চারপাশে নিয়ে যায় x-y, এর পাওয়ারে 10 টি গণনা করে এবং তারপরে এটিকে গুণ করে x+y। তবে আমাদের log10(x-y)0 হওয়ার বিষয়টিও বিবেচনা করা উচিত , সুতরাং আমরা 0 এর সাথে 1 প্রতিস্থাপন করব Then তারপরে আমরা লগ 2x10 নিয়ে, গোলাকার, আরও 1 এবং এর সন্ধানের জন্য 10 খুঁজে পাই । এটি দিয়ে গুণ xyকরুন এবং এটি যুক্ত করুন।


0

05 এ বি 1 ই , 23 22 16 বাইট

-Dg°¹²+*Dg°¹²**O

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

"-+*"প্রতিটি অপারেশনের জন্য সম্পাদিত কোডটি সমান হওয়ায় ক্রিয়াকলাপের স্ট্রিংটির উপরে লুপিং করে প্রোগ্রামে স্ট্রিংগুলি ব্যবহার করার অনুমতি দেওয়া (তবে গণনায় নয়) আমরা কয়েকটি বাইট সংরক্ষণ করতে পারতাম ।
অবশ্যই, যদি আমাদেরকে কনটেনটেশন ব্যবহারের অনুমতি দেওয়া হত তবে আমরা আরও অনেক কিছু সঞ্চয় করতাম।


0

আর, 64 বাইট

x=scan();(b=(a=diff(-x))+10^nchar(a)*sum(x))+10^nchar(b)*prod(x)

ব্যবহার:

> x=scan();(b=(a=diff(-x))+10^nchar(a)*sum(x))+10^nchar(b)*prod(x)
1: 8 2
3: 
Read 2 items
[1] 16106
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.