একগুচ্ছ উদ্বেগজনক সংখ্যা মুদ্রণ করুন!

40

একটি উদ্বেগজনক সংখ্যা (যা আমি কেবল এই চ্যালেঞ্জের জন্য পুরোপুরি তৈরি করিনি) এইভাবে তৈরি করা হয়েছে:

  1. ধনাত্মক পূর্ণসংখ্যা N নিন
  2. এন এর শেষে N এর অঙ্কগুলি যুক্ত করে একটি নতুন নম্বর হে তৈরি করুন
  3. চূড়ান্ত উদাসীন নম্বরটি হ'ল ও * এন

উদাহরণস্বরূপ এন = 12 এর জন্য:

  1. ও = 1212
  2. ও * এন = 1212 * 12
  3. চূড়ান্ত সংখ্যা 14544

ইনপুট

একটি ধনাত্মক পূর্ণসংখ্যা N (N> 0) বা আপনার ভাষার সমতুল্য। আপনাকে ভুল ইনপুট ধরতে হবে না।

আউটপুট

সংশ্লিষ্ট উদ্বিগ্ন নম্বর

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

  1 -> 11
  2 -> 44
  3 -> 99
 10 -> 10100
174 -> 30306276

স্কোরিং

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

code-golf  math  number  sequence 
— Seims
সূত্র
9
প্রাসঙ্গিক ওইআইএস এন্ট্রি থাকতে হবে ...
— এমকেআইআই
1
@Seims এটা একটা রসিকতা, "uninsteresting" নাম ওপর ভিত্তি করে
— MKII
7
@ এমকেআই আমার খারাপ, আমি রসিকতা বলি না
— সেমস
1
নিয়মগুলি কি খুব বেশি বাঁকানো একটি স্ট্রিং আর্গুমেন্ট হিসাবে নম্বর নিচ্ছেন?
— ডম হেস্টিংস
1
এগিয়ে যান, নিয়ম বাঁক! : পি
— সেমস

উত্তর:

38

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

Ы*

ব্যাখ্যা

Ð    # triplicate input
 «   # conactenate
  *  # multiply

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

— Emigna
সূত্র
2
আহ্, সুন্দর! সেকেন্ডের মধ্যে আমাকে নিনজা করতেন: পি।
— আদনান
2
@ আদনান হেহে সেই
— সময়টার
1
3 টি অপারেশন, 3 বাইট, আমি মনে করি না আপনি এটির চেয়ে আরও ছোট করতে পারেন।
— লাসে মেয়ার
2
@ বুসুকক্সুয়ান ইয়েপ কনেকেটেট স্বয়ংক্রিয়ভাবে সংখ্যায় রূপান্তর করে strএবং *স্ট্রিংটিকে একটি সংখ্যার মতো ব্যাখ্যা করে। খুব দরকারী :)
— এমিগনা
2
@ বাসুকসুয়ান হ্যাঁ, পাইথ এবং 05 এএফ 1 ই এর সংমিশ্রণটি এটি 2 বাইটে করতে পারত :)
— এমিগানা
29

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

_=>(_+_)*_

একটি হিসাবে Stringনয়, যুক্তি দিয়ে ডাকা প্রয়োজন Number।

ব্যবহার:

(_=>(_+_)*_)('3')
99

-3 বাইটস @ কুইলের পরামর্শে ধন্যবাদ ।

— ডোম হেস্টিংস
সূত্র
1
আপনি যদি স্ট্রিং হিসাবে প্যারামিটারটি পাস করতে পারেন তবে আপনি এই সমাধানটি দুটি বাইট কেটে ফেলতে পারেন:_=>(_+_)*+_
— কুইল
3
কিভাবে এই কাজ করে? যদি আমি সঠিকভাবে বুঝতে পারি, আপনি কি _কোনও ভেরিয়েবলের জন্য স্বেচ্ছাচারী চরিত্র হিসাবে ব্যবহার করছেন ? (পিএস - (_+_)পুরোপুরি
— বাটের
@ চেরেডগ্রাস $এছাড়াও কাজ করবে
— বিড়াল
11
কাস্টিং অপব্যবহারের এগারটি টাইপ করুন
— ডাউনওয়েট
3
সুদ আউট, শ্রেষ্ঠ আমি বিশুদ্ধরূপে গাণিতিকভাবে কাজ করতে পারে ES7 30 বাইট ছিল n=>(1+10**-~Math.log10(n))*n*n(দুঃখিতভাবে -~বেশী প্রাধান্য আছে **ES6 অথবা 31) n=>-~`1e${-~Math.log10(n)}`*n*n। এমনকি পুনরাবৃত্তি আমাকে 32 বাইট নিয়েছিল:f=(n,m=1)=>n<m?-~m*n*n:f(n,m*10)
— নীল
24

জাভা 8, 29 26 25 21 বাইট

Blessশ্বর লাম্বদা মঙ্গল করুন

c->new Long(c+""+c)*c

সি> Long.decode (গ + + "" + C) * গ;

— user902383
সূত্র
28
আপনি জাভা ভালবাসতে হবে; এমনকি জাভা 8 এর ল্যাম্বডাস এবং জাডেমের সবচেয়ে ছোট উত্তরগুলির মধ্যে একটি এখানে কোডগলফের সাথে রয়েছে, এটি এখনও অন্য সমস্ত বর্তমান উত্তর দ্বারা ছাপিয়ে গেছে। এক্সডি
— কেভিন ক্রুইজসেন
3
java is bae, lambda is bae
— সেমস
3
@ কেভিন ক্রুজসেন আমার এখনও একটি আশা আছে, একদিনের জাভা কোডগল্ফের প্রতিযোগিতা জিতবে
— ব্যবহারকারী 902383
1
আপনার সম্পাদনার পরে আপনি @ মার্টিনএেন্ডারকে তার রেটিনা উত্তরটি 1 বাইট দ্বারা ছাড়িয়ে গেছেন ! o.Ô
— কেভিন ক্রুইজসেন
1
@ কেভিন ক্রুইজসেন তবে এখনও জিততে বা কমপক্ষে
— পাইথনকে
20

ভিম, ১১

C<C-r>=<C-r>"<C-r>"*<C-r>"<cr>

crcrcrcrcr ...

C       change (delete and enter insert mode) until the end of the line
<C-r>=  insert an expression via the special "expression register"
<C-r>"  insert the contents of the default register (what we just C'd)
<C-r>"  ... again
*       multiplied by
<C-r>"  the input (again)
<cr>    insert the result of this expression
— ডোরকনব
সূত্র
11 কি? বাইট?
— উন্মাদ
3
@ ইনসান বাইটস যদি আপনি কমান্ড লাইন থেকে কল করেন, আপনি যদি সরাসরি ভিআইএম থেকে করেন তবে কীস্ট্রোক হয়। আমি আমার ভিএম উত্তরগুলি থেকে ইউনিটটি সাধারণত বাদ দিই কারণ এটি কোনও একটি হতে পারে।
— ডুরকনব
— ডিজেএমসিএমহেম
কি <C-r>একটি গাড়ি ফেরত?
— ক্যাপ্টেন ম্যান
@ ক্যাপিটম্যান ম্যান, <C-r>কন্ট্রোল প্লাস আর। গাড়ি ফেরত <cr>।
— ডুরকনব
15

ইমাস, 17 বাইট

(*SPACEC-SPACEC-EM-YSPACEC-YC-Y)C-J

ব্যাখ্যা

  • (*SPACE(*পয়েন্টে যোগ করুন (সংখ্যার আগে);
  • C-SPACEC-EM-Y নম্বরটি নির্বাচন করুন এবং অনুলিপি করুন;
  • SPACE বিন্দুতে একটি স্থান অক্ষর যুক্ত করে (সংখ্যার পরে);
  • C-YC-Y বিন্দুতে সংখ্যা দ্বিগুণ আটকান;
  • )যোগ করা )শেষে;
  • C-J লাইনটিকে এলআইএসপি এক্সপ্রেশন হিসাবে ব্যাখ্যা করে এবং এর ফলাফলটি মুদ্রণ করে।

উদাহরণস্বরূপ

পাইপ দ্বারা প্রতিনিধিত্বকারী কার্সার ( |)

  • |174
  • (*SPACE (* |174
  • C-SPACEC-EM-Y (* 174|
  • SPACE (* 174 |
  • C-YC-Y (* 174 174174|
  • ) (* 174 174174)|
  • C-J

ফলাফল

(* 174 174174)
30306276|
— YSC
সূত্র
3
হাই, এবং পিপিসিজিতে আপনাকে স্বাগতম! প্রথম প্রথম পোস্ট!
— Rɪᴋᴇʀ
13

সি #, 19 23 বাইট

n=>int.Parse(""+n+n)*n;

স্ট্রিং ছাড়াই, 47 বাইট

n=>{int i=1;while(i<=n)i*=10;return(i+1)*n*n;};
— Weston
সূত্র
4
এটি একটি স্নিপেট, পুরো প্রোগ্রাম বা ফাংশন নয়। এটি উদাহরণস্বরূপ (n)=>{int.Parse(""+n+n)*n}2
— বিড়াল
@ কেট আরও ভাল? আমার কি চলার দরকার আছে ;?
— ওয়েস্টন
আমি জানি না। কোড গল্ফ এবং সি #
— বিড়ালের
12

পাইথন 2.7, 21 বাইট:

lambda f:int(`f`*2)*f

ঠিক আছে, এটি হতে হবে সবচেয়ে কম সময়ের পাইথন উত্তর আমি এখন পর্যন্ত স্বল্পতম সময়ে লিখেছি। এটি একটি বেনাম ল্যাম্বডা ফাংশন যা আপনার যে কোনও কিছু নামকরণ করে এবং তারপরে এটিকে মোড়ানো কোনও সাধারণ ক্রিয়াকলাপের মতো ডাকার মাধ্যমে সম্পাদন করা যেতে পারে print()। উদাহরণস্বরূপ, যদি আপনার ইনপুট হয় 12এবং ফাংশনটির নামকরণ করা হয় Hতবে এটি এ জাতীয় বলা হবে print(H(12))।

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

নোট করুন যে এটি কেবলমাত্র 9223372036854775807উচ্চতর মানের থেকে সমান মানের জন্য কাজ করে এবং পূর্ণসংখ্যার শেষে repr()একটি রাখে L। সুতরাং, এর চেয়ে বড় মানের জন্য 9223372036854775807, এই 24 বাইট সংস্করণটি কাজ করবে:

lambda f:int(str(f)*2)*f

এই অনলাইন চেষ্টা করুন! (Ideone)

— আর কাপ
সূত্র
আমি এখনও ঐন্দ্রজালিক Phytons স্ট্রিং অপারেশন এটি ...
— Seims
@ সিমস কীভাবে?
— বুসুক্সুয়ান
স্ট্রিং গুণ এবং সংযোজন। প্রায়ই দেখা হয় নি।
— সেমস
@ সিমস আমার ধারণা আপনি তখন বেশিরভাগ স্থির ভাষা নিয়ে ডিল করেন?
— বুসুক্সুয়ান
@ বাসুকসুয়ান আপনি চাইলে আমাকে নুব ডাকুন: ^)
— সেমস
11

জেলি, 4 বাইট

;DḌ×

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

ব্যাখ্যা

;DḌ×    Main link. argument : N

 D      Decimal; Yield the digits of N
;       Concatenate N and its digits
  Ḍ     Convert to integer; We get O
   ×    Multiply O and N
— Essari
সূত্র
1
এটি একটি ছাগলের সাথে সত্যই খুশী চোখ! ;DDx
— বিড়াল
কোন এনকোডিংয়ে Ḍকেবল 1 বাইট লাগবে? সাধারণত আমরা ইউটিএফ -8 ব্যবহার করি, এতে এটি লাগে 3 (এবং 2 2 লাগে, তবে এটি আইএসও 8859-1-তে 1 বাইট)।
— o11c
@ o11c জেলি তার নিজস্ব কাস্টম কোড পৃষ্ঠা ব্যবহার করে যেখানে এই অক্ষরগুলির প্রতিটি এক একটি বাইট।
— একটি স্প্যাগেটো
10

সি, 70 68 54 53 52 44

f(n){return(pow(10,(int)log10(n)+1)*n+n)*n;}

পূর্ববর্তী সংস্করণ (৪৮ বাইট, কোনও গণিতের ফাংশন নেই), @ লেকইনুনকে ১ thanks বাইট ধন্যবাদ সংরক্ষণ করেছে, @ ফ্রিঅ্যাম দ্য এজম্যানকে ১ বাইট ধন্যবাদ, @ টবিস্পাইটকে 4 বাইট ধন্যবাদ:

f(n,d,i){for(i=d=n;d;d/=10)i*=10;return(i+n)*n;}

f()একটি যুক্তি, নাম্বার সহ কল করুন এবং এটি সম্পর্কিত উদাসীন নম্বরটি প্রদান করে।

পরীক্ষা প্রোগ্রাম

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char **argv)
{
    while (*++argv) {
        int n = atoi(*argv);
        printf("%d -> %d\n", n, f(n));
    }
    return 0;
}

পরীক্ষার ফলাফল:

$ ./84712 1 2 3 4 10 174
1 -> 11
2 -> 44
3 -> 99
4 -> 176
10 -> 10100
174 -> 30306276

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

— owacoder
সূত্র
f(n){int b=1;while(a)b*=10,a/=10;return(n+n*b)*n;}
— লিকি নুন
এটি অন্তর্ভুক্ত না করে সঠিকভাবে কাজ করা উচিত নয় math.h, তবে আপনি এটি জিসিসিতে চলে যান, যেখানে log10()এবং pow()অন্তর্নির্মিত আছেন এবং সংকলকটি কেবল "বিল্ট-ইন ফাংশনটির বেমানান অন্তর্নিহিত ঘোষণা" সম্পর্কে সতর্ক করে (এটি যেমন করা উচিত) বরং তারা উভয় ফিরে int।
— টবি স্পিড 14
@ লিকি - আপনি এতে কিছু ফেলেননি a...
— টবি স্পিড
1
আর এক উত্তর দেখে ভাল লাগল যা পুরোপুরি পাটিগণিতের মধ্যে থাকে (স্ট্রিং কনটেন্টেশন না করে)। :-)
— টবি স্পিড 14
1
@ টবি - সিতে স্ট্রিং কনটেনটেশন গল্ফের সাথে বেমানান। ;-)
— owacoder
9

ডায়ালগ এপিএল , 7 বাইট

⊢×#⍎⍕,⍕

⍕ স্ট্রিং প্রতিনিধিত্ব

⍕, স্ট্রিং প্রতিনিধিত্ব preend

#⍎ সংখ্যায় তৈরি করুন (রুট নেমস্পেসে)

⊢× আসল সংখ্যা দিয়ে গুণ করুন

— আদম
সূত্র
1
এই বিধ্বস্ত টিআইই যোদ্ধারা মজার!
— লুইস মেন্ডো
2
— blog
1
কাঁটাচামচ জেগে :
— লুইস মেন্ডো
আমি নিশ্চিত যে সেগুলি কোনও এনকোডিংয়ে বাইট নেই , কারণ তারা লেটারলক বা খুব সাধারণ নয়।
— o11c
@ o11c আপনি কি "বাইটস" শব্দের জন্য প্রিমিটিভ লিঙ্কটি পরীক্ষা করে দেখেছিলেন, যেমন। meta.codegolf.stackexchange.com/a/9429/43319 ।
— অ্যাডম
9

জে, 7 বাইট

*,~&.":

ব্যাখ্যা

*,~&.":  Input: n
     ":  Format n as a string
 ,~&.    Reflect and join the string to make "nn"
         and parse the string to get a number
*        Multiply that number by n
— মাইল
সূত্র
+1 টি। আমি ভাবতেও পারি না যে Underস্ট্রিং কনকেন্টেশন সহ সঠিকভাবে কাজ করছে। আমার জন্য কত বড় আবিষ্কার! ধন্যবাদ.
— ড্যান ওক
দুঃখজনকভাবে, আমি মনে করি এটি প্রথম বন্ধনে আবদ্ধ হওয়া উচিত, যেহেতু এটি এমন একটি হুক যা সরাসরি টাইপ করা থাকলে কাজ করে না * ,~ &.": nএবং অন্য ক্রিয়া গঠনেও এটি ব্যবহার করা যায় না।
— ড্যান ওক
1
@ ডাহনাক এখানে পিপিসিজিতে, আমাদের কেবল কোনও ফাংশনের জন্য প্রয়োজনীয় তা নির্দিষ্ট করতে হবে এবং সুতরাং উপরেরটি জেতে একটি ফাংশন তৈরি করার জন্য প্রয়োজনীয় Then বন্ধনী বা একটি চলক মধ্যে সঞ্চিত।
— মাইল
আহ, আমি পেয়েছি।
— ড্যান ওক
9

রেটিনা , 27 20 বাইট

^
$_$*: $_
:
$_$*:
:

বড় ইনপুটগুলির জন্য কিছুটা ধীর গতি পায়, কারণ শেষ পর্যায়ে যাওয়ার আগে ফলাফলটি অকেজোতে উপস্থাপন করা হয়।

এটি অনলাইন চেষ্টা করুন! (প্রথম লাইন একটি লাইনফিড-বিচ্ছিন্ন পরীক্ষা স্যুট সক্ষম করে))

ব্যাখ্যা

আমি 2উদাহরণ ইনপুট হিসাবে ব্যবহার করব (কারণ অ্যানারি উপস্থাপনাগুলি বড় ইনপুটগুলির জন্য কিছুটা অস্বাস্থ্যকর হয়ে ওঠে)।

মঞ্চ 1: প্রতিস্থাপন

^
$_$*: $_

এর সাথে স্ট্রিংয়ের ^শুরুটির সাথে মিলে আমরা কেবল কিছু স্টাফ প্রিপেন্ড করি। $_ইনপুট স্ট্রিংটি নিজেই বোঝায় এবং এর $*:অর্থ আমরা সেই বহু কলোন সন্নিবেশ করি। সুতরাং আমরা পেতে:

:: 22

দ্বিতীয় পর্যায়: প্রতিস্থাপন

:
$_$*:

এখন আমরা প্রতিটি ম্যাচ :এবং আবার এটি প্রতিস্থাপন $_$*:। অবশ্যই, এই সময়টি $_কোনও পূর্ণসংখ্যার (তবে :: 22আমাদের উদাহরণে) মূল্যায়ন করে না , তবে $*কেবল স্ট্রিংয়ের প্রথম দশমিকের সন্ধান করে, তাই এটি নিজের কাছে ( Oচ্যালেঞ্জের স্পেসিফিকেশন) কনক্যানটেড ইনপুটটির মূল্যায়ন করে । আমরা N*Oকলোন দিয়ে শেষ করব , তারপরে O:

:::::::::::::::::::::::::::::::::::::::::::: 22

মঞ্চ 3: ম্যাচ

:

বাকি :সমস্তগুলি অ্যানারি থেকে দশমিক রূপান্তর করতে গণনা করছে যা এই পর্যায়ে ঠিক তাই করে।

— মার্টিন ইন্ডার
সূত্র
ওহ, জাভা হিসাবে দীর্ঘ হিসাবে থাকার এত কাছাকাছি। এটি মাত্র 2 বাইটে আউটগল্ফ করেছে। +1
— আর কাপ,
@ আর.ক্যাপ আসলে, 3 টি বাইট অপসারণের পরে জাভা 8 এটিকে ছাড়িয়ে গেছে! o.Ô
— কেভিন ক্রুইজসেন
4
দুঃখিত, জাভা ....
— মার্টিন ইন্ডার
9

সিজেম , 8 বাইট

ri_`_+i*

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

r     e# Read input
i     e# Convert to integer
_     e# Duplicate
`     e# Convert to string
_     e# Duplicate
+     e# Concatenate
i     e# Convert to integer
*     e# Multiply. Implicitly display
— লুইস মেন্ডো
সূত্র
2
আমি তত্ক্ষণাত্ পুনরায় স্ট্রিংয়ে রূপান্তর না করার পরামর্শ দিতে যাচ্ছিলাম তবে নিষ্পাপ পদ্ধতির (অর্থাত্ সিজেএম আগে কখনও ব্যবহার করেন নি) r__+i\i*যা একই দৈর্ঘ্য।
— নিক হার্টলি
পছন্দ করুন আমি আপনার মতো একই জিনিসটি লক্ষ্য করেছি: কেন প্রথমে এটি ইনট এবং তারপরে আবার স্ট্রিংয়ে রূপান্তর করুন। আমি কখনও সিজেএম ব্যবহার করি নি এবং সম্ভাব্য সমস্ত অপারেটরগুলিতে সত্যই যথেষ্ট পরিমাণে দেখতে পাইনি, তাই আমি প্রথম নজরে কোনও সমাধান খুঁজে পেতে পারিনি। আপনার পন্থাটি একই স্ট্রাইটে আবার রূপান্তর না করে ভাগ করে নেওয়ার জন্য ধন্যবাদ, যদিও এটি একই বাইট-দৈর্ঘ্য।
— কেভিন ক্রুইজসেন
পুরো স্ট্যাকটিতে দুটি বাইটে কোনও অপারেশন প্রয়োগ করার কোনও উপায় থাকলে, এটি একটি বাইট শর্ট হবে (এমন কিছু r__+si*, যেখানে s"স্ট্যাকের উপরে এই অপারেশনটি প্রয়োগ করা হয়") তবে আমি এর মতো কিছুই দেখি না
— নিক হার্টলি
8

জেলি, 8 6 বাইট

ŒṘẋ2v×

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

ব্যাখ্যা

ŒṘẋ2v× - Main link. Left argument: the number to convert

     × - Multiply
    v  - an evaluation of the left argument
ŒṘ     - converted to string
  ẋ    - multiplied by
   2   - two and the left argument
— user48538
সূত্র
1
আমি মনে করি না যে এই দুটির মধ্যে একটিও আপনার দরকার ³।
— মার্টিন ইন্ডার
8

ওওক, 13 বাইট

$0=($0$0)*$0

নিজেই 2 দিয়ে লাইনটি নিজের দ্বারা গুণিত করুন

— User112638726
সূত্র
7

মতলব / অষ্টাভ, 20 বাইট

@(x)eval([x x 42 x])

এটি একটি অনামী ফাংশন যা ইনপুটটিকে স্ট্রিং হিসাবে গ্রহণ করে।

উদাহরণ ব্যবহার:

>> f = @(x)eval([x x 42 x])
f = 
    @(x)eval([x,x,42,x])
>> f('12')
ans =
       14544

অথবা আদর্শের সাহায্যে অনলাইনে চেষ্টা করুন ।

ব্যাখ্যা

কোডটি দু'বার ইনপুট স্ট্রিংকে সংযোগ দিয়ে একটি স্ট্রিং তৈরি করে, তারপরে অক্ষরটি *(এতে ASCII কোড রয়েছে 42), তারপরে আবার স্ট্রিং। সংক্ষিপ্ত স্ট্রিং এর পরে মূল্যায়ন করা হয়।

— লুইস মেন্ডো
সূত্র
কী 42মানে?
— লিকি নুন
4
@LeakyNun এটা জীবন, মহাবিশ্ব, এবং সবকিছু চূড়ান্ত প্রশ্নের "থেকে উত্তর । এছাড়া, এটিও জন্য ASCII কোড হতে হবে*
— লুইস Mendo
আহ। আমি 42 তম ফাংশনের মতো কিছু সন্ধান করছিলাম।
— লিকি নুন
কোডটি কেবল দু'বার ইনপুট স্ট্রিংকে সংযোগ দিয়ে স্ট্রিং তৈরি করে, তারপরে *আবার স্ট্রিং। সংক্ষিপ্ত স্ট্রিং এর পরে মূল্যায়ন করা হয়। আমি উত্তরে এটি সম্পাদনা করব
— লুইস মেন্ডো
6

zsh, 13 বাইট

<<<$[$1$1*$1]

কমান্ড লাইন আর্গুমেন্ট হিসাবে ইনপুট নেয়, STDOUT এ আউটপুট দেয়।

এটি কেবল zsh এ কাজ করে তবে বাশের 15 টি বাইটecho পরিবর্তে এখানে ব্যবহার করা হয়েছে <<<:

echo $[$1$1*$1]
— ডোরকনব
সূত্র
6

পার্ল, 11 বাইট

$_*=$_ x2

+ pএবং lপতাকা।

(সাথে চালানো perl -ple '$_*=$_ x2')

-2 বাইট পাইপ ধন্যবাদ।

— দাদা
সূত্র
দুটি বাইট সংরক্ষণ করুন:$_*=$_ x2
— পাইপ
আমি আপনার প্রয়োজন মনে করি না-l
— ব্র্যাড গিলবার্ট b2gills
@ ব্র্যাডগিলবার্টব ২ গিলস হ্যাঁ আমার এটি দরকার কারণ এটি ছাড়াই, $_ x2উত্পাদিত হবে ...\n...\nযখন পারল দ্বারা একটি সংখ্যার হিসাবে রূপান্তরিত হলে প্রথমটি শেষ হয়\n
— দাদা
আমি এটি পার্ল 5 এবং 6 উভয়ের সাথেই পরীক্ষা করে দেখছিলাম এবং খেয়াল করিনি যে আমি এটিকে অপসারণ করতে ভুলে গেছি 6।
— ব্র্যাড গিলবার্ট 18
6

এক্সেল ভিবিএ, 35 বাইট

সাব নাম্বার সহ ডাকা হয়, msgbox উত্তর দেয়

Sub B(a)
MsgBox (a & a) * a
End Sub

বিকল্প এক্সেল ভিবিএ, 42 বাইট

সূত্রে প্রদত্ত নম্বর, উত্তর প্রদান করে।

Function B(a)
B = (a & a) * a
End Function
— tjb1
সূত্র
একটি এমএসজিবক্স এবং একটি সাব সম্পর্কে চিন্তা করুন। এটি আপনাকে 13 বাইট সংরক্ষণ করবে, যদি আমি সঠিকভাবে গণনা করি
— GER_Moki
মান পেতে আমার কিছু ফর্ম ইনপুট বাক্স লাগবে, না?
— tjb1
সাব বি (ক) এমসবিবক্স (এন্ড এ) * এন্ড সাব সাব
— জি -২০ মোকি
মানটি পাস করার জন্য এটির জন্য আরও একটি সাব দরকার, আমি নিশ্চিত না যে এটি গল্ফের মধ্যে অনুমোদিত।
— tjb1
— ফাংশনটিও
6

লুয়া, 20 বাইট

কমান্ড-লাইন আর্গুমেন্ট গ্রহণ করে এবং STDOUT এর মাধ্যমে আউটপুট দেয়

a=...print((a..a)*a)

@ লিকিউন মন্তব্যে জিজ্ঞাসা করায় এবং অসন্তুষ্ট :)

a=...       -- alias for the first argument
print(
     (a..a) -- concatenate a with itself, equivalent to a:rep(2)
     *a)    -- multiply the resulting number by a
— Katenkyo
সূত্র
এটি ধরণের জবরদস্তির একটি দুর্দান্ত প্রদর্শন হতে পারে ... যদি আপনি ব্যাখ্যাটি এতে যোগ করেন
— লিকি নুন
5

পিএইচপি, 25 24 বাইট

শর্ট ওপেনিং ট্যাগগুলি আশ্চর্যজনকভাবে কয়েকটি গল্ফ চ্যালেঞ্জের জন্য দরকারী, ভাগ্যক্রমে এটি তাদের মধ্যে একটি। দুর্ভাগ্যক্রমে অপারেটর অগ্রাধিকার হ'ল আপনার যাতে ক্রমগুলি করা প্রয়োজন তাই ক্রমের বিপরীত।

<?=($a=$argv[1])*"$a$a";

সম্পাদনা: আমি বুঝতে পেরেছি যেভাবেই আমি বন্ধনীগুলি কীভাবে ব্যবহার করছি তা দেখে আমি কার্যকরভাবে চারপাশের ক্রিয়াকলাপগুলির লিখিত ক্রম পরিবর্তন করে কনকন্টেশন অপারেটরটি এড়িয়ে যেতে পারি।

— user55641
সূত্র
5

ডিসি, 11 10 বাইট

ddZAr^1+**

আমি জানতাম যে শেষ পর্যন্ত আমি Zকমান্ডটির জন্য একটি ব্যবহার খুঁজে পাব!

অপারেশন মোটামুটি সহজ - অঙ্কগুলি গণনা করুন, সেই শক্তিতে 10 টি বাড়িয়ে নিন এবং একটি যুক্ত করুন। এটি এমন একটি গুণক দেয় যা সংখ্যাটি নিজের সাথে সংযুক্ত করে। তারপরে শুধু গুণ

আই / ও স্ট্যাকটি যথারীতি ডিসির জন্য ব্যবহার করে।

পুরো প্রোগ্রাম

আমি পরীক্ষাগুলির জন্য এটি ব্যবহার করেছি:

#!/usr/bin/dc
?
ddZAr^1+**
p

অতিরিক্ত দুটি কমান্ড আমাদের পাইপলাইন I / O দেয়।

টেস্ট

$ for i in 1 2 3 10 174; do printf '%d -> ' $i; ./84712.dc <<<$i; done
1 -> 11
2 -> 44
3 -> 99
10 -> 10100
174 -> 30306276

ধন্যবাদ স্যার বিডেন XVII (1 বাইট) এর কারণে।

— টবির গতি
সূত্র
আপনি একটি বাইট সংরক্ষণ করার Aজন্য বিকল্প করতে পারেন 10। সাবাশ!
— জো
4

মাম্পস, 11 বাইট

R I W I_I*I

এটি এমন একটি বিরল গল্ফ চ্যালেঞ্জগুলির মধ্যে একটি যেখানে ম্যাম্পসের আইডিয়োসিএনসিগুলি খুব কাজে আসতে পারে। প্রথমত, সমস্ত ভেরিয়েবলগুলি স্ট্রিং, এবং সমস্ত গণিতের সমীকরণগুলি বাম-থেকে-ডানদিকে কঠোরভাবে মূল্যায়ন করা হয় (যেমন: পেমডাস নয়), সুতরাং 1 + 2 * 4 = 12 পেমডাসের মতো = 9 এর পরিবর্তে umps সুতরাং, (সবেমাত্র) নিরপেক্ষ:

R I ;     Read from stdin to variable I
W I_I*I ; Write out I concatenated with I, then multiplied by I.

সাবধানতার কথা - যেহেতু আমি যে ম্যাম্পগুলির স্বাদ ব্যবহার করছি (ইন্টারসিস্টেমস এনসেম্বল) স্টিডিনের জন্য ক্যারেজ রিটার্ন প্রতিধ্বনিত হয় না, তাই ইনপুট এবং আউটপুট নম্বরটি সংমিশ্রিত হবে। সেই / বৃদ্ধি পঠনযোগ্যতা সংশোধন করতে আপনাকে দুটি বাইট যুক্ত করতে হবে এবং ম্যানুয়াল সিআর / এলএফ যুক্ত করতে হবে, এইভাবে:

R I W !,I_I*I

তবে, যেহেতু আমি চ্যালেঞ্জের নিয়মগুলিতে সেই প্রয়োজনীয়তাটি দেখিনি, আমি নিশ্চিত যে আমি সংক্ষিপ্ত কোডের সাথে ভাল। যদি আমার ভুল হয়ে থাকে তবে দয়া করে বিনা দ্বিধায় আমাকে লর্ট করুন এবং আমি আমার উত্তরটি পরিবর্তন করব। :-)

— zmerch
সূত্র
4

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

পিএস পাইপলাইনটি কতটা ভালবাসে তা আমাকে স্মরণ করিয়ে দেওয়ার জন্য টেসেল্ল্যাটিংহেকলারকে ধন্যবাদ।

নতুন 18 বাইট:

process{$_*"$_$_"}

পুরানো 25 বাইট:

param($a);[int]"$a$a"*$a

ব্যাখ্যা:

# new
process{$_*"$_$_"}
process{         } # runs code block once for each passed item
        $_*        # multiple the first parameter
           "$_$_"  # concatenate as a string for ease
                   # in this case, the order does the typecasting for us
# old
param($a);[int]"$a$a"*$a
param($a)                 # assigns the first passed parameter to variable $a
         ;                # line terminator
          [int]           # type cast string "$a$a" to int32
               "$a$a"     # convert $a$a to string for easy concatenation
                     *$a  # multiply by $a

পরীক্ষা করা (বোরিং.পিএস 1 হিসাবে সংরক্ষণ করুন):

# new
12 | .\boring.ps1
14544
174 | .\boring.ps1
30306276

# old
.\boring.ps1 12
14544
.\boring.ps1 174
30306276

অবশ্যই বিজয়ী উত্তর নয়, মজা নির্বিশেষে!

— ThePoShWolf
সূত্র
আপনি যদি ভেরিয়েবলগুলি অন্য উপায়ে রেখে দেন, ইনট * স্ট্রিং সুস্পষ্টভাবে স্ট্রিংটিকে কোনও ইনটকে ফেলে দেয় এবং আপনি 5 বাইট কাস্টিং সংরক্ষণ করতে পারেন। process{$_*"$_$_"}18 বাইট, এবং "স্টিডিন" (অর্থাত পাইপলাইন) থেকে ইনপুট নেয়, যেমন174|script.ps1
— টেসেল্লাটিংহেকলারের
হুমমম ... মজাদার পয়েন্ট। আমি আমার একই কাঠামোটি ব্যবহার করে সেগুলিকে স্যুইচ করতে এবং একই ফলাফল অর্জন করতে পারি:param($a);$a*"$a$a"
— ThePoShWolf
এরে, আমি তা ফিরিয়ে নিই, আমার এক বাইট আর বেশি!
— ThePoShWolf
@ ট্যাসেল্লাটিংহেকলার সেই উত্তরের সাথে যত্নশীল, যেহেতু পাওয়ারশেলের আরপিএল পরিবেশ প্রোগ্রাম বা ফাংশন ডিফল্টের জন্য যোগ্যতা অর্জন করে না । এর মতো কিছু param($n)$n*"$n$n"(দারথ যা ছিল, ছাড়া ;) একই দৈর্ঘ্য এবং একটি আরপিএল নয়।
— অ্যাডমবর্কবর্ক
@ টিমিমিডি test.ps1পাইপলাইন গণনা থেকে পড়া কোনও ফাইল কেন নয় ? স্টিডিনের কাছ থেকে পাঠানো কোনও বাশ শেল স্ক্রিপ্টও গণনা করে না?
— টেসেল্ল্যাটিংহেকলার 19
4

ব্যাচ, 27 20 18 বাইট

@cmd/cset/a%1%1*%1

সম্পাদনা করুন: টেসেল্লাটিংহেকলারের কাছে 7 টি বাইট সংরক্ষণ করা হয়েছে। @ EʀɪᴋᴛʜᴇGᴏʟғᴇʀ এর জন্য আরও 2 বাইট সংরক্ষণ করা হয়েছে

— নিল
সূত্র
set /aপ্রম্পটে অ্যাসাইনমেন্টের ফলাফল আউটপুট করে। -> @cmd/c set/a n=%1%1*%122 বাইট জন্য।
— টেসেল্ল্যাটিংহেকলারের
@ টেসেল্ল্যাটিংহেকলার আপনি আউটপুট দিচ্ছেন কেন বরাদ্দ দেওয়া বিরক্ত করবেন?
— নিল
@ টেসেল্ল্যাটিংহেকলার হু, আমি ইতিমধ্যে ছয় সপ্তাহ আগে এই কৌশলটি নিজেই করেছি এবং এটি আমি ইতিমধ্যে ভুলে গিয়েছি ..
— নীল
@cmd/cset/a%1%1*%118.
— এরিক দি আউটগল্ফার
1
@Neil না, কিন্তু আমি এটা পরীক্ষিত (উইন্ডোজ 10!) cmd/cকারণ ব্যাচ ফাইল নির্বাহ টুল অংশ প্রয়োজন হয় না cmd নিজেই।
— এরিক আউটগল্ফার
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.