বিপরীতে ডিজিটাল মূল!

19

[এনালগ মূল] হিসাবেও পরিচিত

( ডিজিটাল মূলের বিপরীতে! );)

একটি সংখ্যার ডিজিটাল মূল হ'ল তার একক সংখ্যা না হওয়া অবধি তার সংখ্যার ধারাবাহিক সংমিশ্রণ, উদাহরণস্বরূপ, 89456 এর ডিজিটাল রুটটি এভাবে গণনা করা হয়:

8 + 9 + 4 + 5 + 6 = 32

3 + 2 = 5

89456 এর ডিজিটাল রুট 5 হয়।

এসটিডিআইএন এর মাধ্যমে ইনপুট হিসাবে একটি অঙ্ক দেওয়া , সম্ভাব্য দুটি অঙ্কের যে সমস্ত ডিজিটাল মূল রয়েছে তাদের সমস্ত মুদ্রণ / ফিরিয়ে দিন। আপনার যদি এটির প্রয়োজন হয় তবে এটি নিজের মধ্যে অন্তর্ভুক্ত করতে পারে, যেমন 05

এগুলি হ'ল সম্ভাব্য ইনপুট এবং আউটপুটগুলি:

(আপনি নিজেই অঙ্কের জন্য শূন্যস্থান অন্তর্ভুক্ত করবেন কিনা তা চয়ন করতে পারেন)

ইনপুট / আউটপুট

0 => 0 বা 00 বা কিছুই নয়

1 => 01 এবং / অথবা 1, 10, 19, 28, 37, 46, 55, 64, 73, 82, 91 - নিশ্চিত হন যে 1টি 100 না ফেরায়

2 => 02 এবং / অথবা 2, 11, 20, 29, 38, 47, 56, 65, 74, 83, 92

3 => 03 এবং / অথবা 3, 12, 21, 30, 39, 48, 57, 66, 75, 84, 93

4 => 04 এবং / অথবা 4, 13, 22, 31, 40, 49, 58, 67, 76, 85, 94

5 => 05 এবং / অথবা 5, 14, 23, 32, 41, 50, 59, 68, 77, 86, 95

6 => 06 এবং / বা 6, 15, 24, 33, 42, 51, 60, 69, 78, 87, 96

7 => 07 এবং / বা 7, 16, 25, 34, 43, 52, 61, 70, 79, 88, 97

8 => 08 এবং / বা 8, 17, 26, 35, 44, 53, 62, 71, 80, 89, 98

9 => 09 এবং / অথবা 9, 18, 27, 36, 45, 54, 63, 72, 81, 90, 99

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

অভিনন্দন Heeby Jeeby ম্যান উপর তার আশ্চর্যজনক 46 বাইট মস্তিষ্ক-বিমানবিধ্বংসী কামান উত্তর!

code-golf  math  number  kolmogorov-complexity  arithmetic 
— FantaC
সূত্র
1
সংখ্যাটি নিজেই দুটি অঙ্কের সংখ্যা হিসাবে গণনা করে? (05)?
— ধ্বংসাত্মক লেবু
2
— FryAmTheEggman
5
0 এর জন্য আউটপুটটি কী হওয়া উচিত? এবং আবারও, এরকম ক্ষেত্রে যেখানে কেবলমাত্র 10 টি সম্ভাব্য ইনপুট রয়েছে, আপনার চ্যালেঞ্জের ফলাফলগুলি সরবরাহ করা আপনার পক্ষে খুব উপকারী হবে।
— FryAmTheEggman
1
শূন্যকে কীভাবে পরিচালনা করবেন সে বিষয়ে আপনার সিদ্ধান্ত পোস্ট করা অনেক উত্তরকে অবৈধ করে দেয়। অংশগ্রহনকারীদের আপনি সিদ্ধান্ত নিয়েছেন তা জানানো বিবেচ্য হবে।
— FryAmTheEggman
2
ডিজিটাল রুটের বিপরীতটি একটি অ্যানালগ রুট?
— tuskiomi

উত্তর:

9

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

অন্যথায় সমাধানের অ্যারের 0জন্য 0বা ফেরত দেয় ।

n=>n&&[...1e9+''].map(_=>n+=9)

ডেমো

কোড স্নিপেট দেখান

— Arnauld
সূত্র
3
কোনও মন্তব্য ছাড়াই একটি ডাউনভোট উত্তরটি উন্নত করতে খুব বেশি সাহায্য করে না ...
— আর্নল্ড
কারও কাছে এটি অস্পষ্ট হতে পারে কোন অংশটি আসল কোডগল্ফড ফাংশন এবং কোন অংশটি একটি প্রদর্শনী। এটি সরাসরি জাভাস্ক্রিপ্ট লাইনের নীচে সরাসরি ফাংশনটি রাখা ভাল ধারণা হতে পারে ।
— ডেভিড মুল্ডার
@ ডেভিড মল্ডার এই পরামর্শের জন্য ধন্যবাদ। আমি বেশিরভাগ সময় এইভাবেই উত্তর করি। আপডেট করা হয়েছে।
— আর্নল্ড
চমৎকার সমাধান! একটি পুরানো সমাধান টেনে আনার জন্য দুঃখিত তবে আপনি কি +অন্য একটি বাইট সংরক্ষণ করতে ড্রপ করতে পারেন? যদিও এটি স্ট্যান্ডিন স্ট্রিংয়ের সাথে কাজ করে না আমি মনে করি।
— ক্রেগ আয়রে
@ ক্রেইগএয়ার আমি নিশ্চিত নই যে এটি +কোথা থেকে এসেছে ... আপডেট হয়েছে। ধন্যবাদ!
— আর্নল্ড
8

05 এ বি 1 ই , 13 12 9 বাইট

-৩ বাইট ধন্যবাদ আদনানকে

тL<ʒSOSOQ

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

ব্যাখ্যা

тL<ʒSOSOQ   Main link. Argument n
тL<         List from 1 to 100, then decrement to get 0 to 99
   ʒ        Filter
    SOSO    Sum of all chars, twice
        Q   Compare to input
— kalsowerus
সূত্র
আমার মনে হয় আপনি দ্বারা অসীম লুপ প্রতিস্থাপন করতে পারেন SOSO, যেহেতু সংখ্যা বড় চেয়ে 99. হতে হবে না
— আদনান
@ আদনান ভাববেন না, আমি আপনাকে আশ্বাস দিচ্ছি যে সে পারবে।
— এরিক দি আউটগল্ফার
1
тL<প্লেইনের চেয়ে সত্যই ছোট নয় 99Ý। ;)
— এরিক দ্য আউটগল্ফার
1
@ এরিকথ আউটগল্ফার ওয়েল, আমি সম্ভবত সেখানে একটি বাইট সংরক্ষণ করার চেষ্টা করছিলাম; ডি
— ক্যালসওয়ারাস
2
প্রধান "লিঙ্ক"? যখন থেকে 05AB1E এর লিঙ্ক রয়েছে? এটা জেলি নয়।
— অ্যান্ড্রু সাভিনিখ
7

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

f একটি পূর্ণসংখ্যা নেয় এবং পূর্ণসংখ্যার একটি তালিকা প্রদান করে।

f d=[d,d+9..99^0^0^d]

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

  • অঙ্কটি দিয়ে শুরু করে dএবং প্রতিটির 9 ম সংখ্যাটি 99 এর সীমানা পর্যন্ত ব্যাপ্তিযুক্ত ক্ষেত্রে বাদ দিয়ে সীমা তৈরি করে 0।
  • এর জন্য তাড়াতাড়ি থামতে 0, ব্যবহার করে যা অন্য সমস্ত সংখ্যার 0^d==1জন্য 0এবং এর ==0জন্য শক্তি । সুতরাং 99^0^0^dদেয় 1জন্য 0কিন্তু 99অন্য কিছু জন্য।
— আরজান জোহানসেন
সূত্র
7

ব্রেন-ফ্লাক , 46 বাইট

{((()()()()()){}){(({}[()])<(({}{}[]))>)}}{}{}

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

ব্যাখ্যা

এই উত্তরটি মেগটমের উত্তর থেকে একটি ধারণা ব্যবহার করে যাকে স্ট্যাকের উচ্চতা লুপ কাউন্টার এবং ইনক্রিমেন্টের মধ্যে পার্থক্য হিসাবে ব্যবহার করে। পূর্ববর্তী উত্তরগুলির মতো এই উত্তরটিতে সমস্ত শূন্যকে ধরার জন্য একটি বহিরাগত লুপ রয়েছে। লুপের অভ্যন্তরে আমরা কাউন্টার হিসাবে কাজ করতে 10 টি চাপি, তারপরে আমরা আর একটি নেস্টেড লুপটি শুরু করি। এই লুপে আমরা কাউন্টারটি 1 দ্বারা হ্রাস করি

({}[()])

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

সবেমাত্র মেগাটমকে মারধর করার কারণটি হ'ল মেগাটমের উত্তরটি স্ট্যাকের উচ্চতা পেতে বাধ্য হয়েছে, যদিও শেষ ফলাফল এখনও স্ট্যাকের মধ্যে রয়েছে। এর অর্থ তারা [()]মোট একটিকে কমাতে ব্যয়বহুল ব্যয় করতে বাধ্য হয় । লুপটির শেষে ডুপ্লিকেটটি সরিয়ে আমি প্রোগ্রামের একেবারে শেষে [()]অতিরিক্ত অর্থ ব্যয়ে ব্যবহার করা এড়াতে সক্ষম হয়েছি {}। যদি মেগাটম এই কৌশলটি ব্যবহার করে তবে তার উত্তরটি দেখতে এই রকম হবে:

{<>((()()()()()){}){((({}[()])<>{}[]))<>}}<>{}

এছাড়াও 46 বাইট।

ব্রেন-ফ্লাক , 52 বাইট

{((()()()()()){}){({}[()]<(({})((()()())){}{})>)}}{}

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

ব্যাখ্যা

মূল আউটলুপ শূন্যের ইনপুট জন্য একটি বিশেষ কেস তৈরি করে। শূন্য যদি ইনপুট হয় তবে আমরা পুরো লুপের উপরে ঝাঁপ দাও, শূন্যকে পপ করব এবং তারপরে কিছুই আউটপুট হবে না। অন্যথায় আমরা লুপ প্রবেশ করি। এখানে আমরা পুরানো মানগুলি রেখে, স্ট্যাকের শীর্ষে 9 বার যোগ করে প্রতিবার 10 বার লুপটি চাপি। যেহেতু 9 ডিজিটাল অঙ্কগুলি সংরক্ষণ করে এটি আমাদের পরবর্তী মানটি পাবে। লুপটির মেয়াদ শেষ হয়ে গেলে আমরা লুপ থেকে বেরিয়ে আসার জন্য উত্পন্ন শূন্যটি ব্যবহার করি যা {}শেষে শেষে পপ করা হয় ।

ব্রেন-ফ্লাক , 56 বাইট

{([(((()()())){}{})]){({}()<(({})<(({}{}))>)>)}}{}({}{})

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

ব্যাখ্যা

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

— গম উইজার্ড
সূত্র
46 টি মূল সংখ্যাটি সংরক্ষণ করে না :(
— জো কিং
@ জোকিং হ্যাঁ, এটি কেবল 2 ডিজিটের কেস করে। যা আমি মনে করি এটির উদ্দেশ্যটি একধরণের, যাতে এটি আমাকে বেশ আনন্দিত করে।
— গম উইজার্ড
সুন্দর কাজ! আপনি অনুগ্রহ অর্জন করেছেন।
— ফ্যান্টাসি
5

বাশ ,31 27 বাইট

seq $1 9 $(($1?99:0))|xargs

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

আগে

eval echo {$1..$(($1?99:0))..9}
— marcosm
সূত্র
ম্যান পেজ / বাশ সহায়তা / কীভাবে একজন খুঁজে পাবে? "{x..y..z}" সম্পর্কে? এটাকে কি বলে?
— অলিভিয়ার ডুলাক
এটি খুঁজে পেয়েছে: ম্যান পেজে, অনুসন্ধান করুন [^।] \। \। [^।]:brace expansion: (...) A sequence expression takes the form {x..y[..incr]}, where x and y are either integers or single characters, and incr, an optional increment, is an integer. (...) When the increment is supplied, it is used as the difference between each term. The default increment is 1 or -1 as appropriate.
— অলিভিয়ার ডুলাক
5

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

{(×⍵)/+\⍵,10⍴9}

কিভাবে?

⍵,10⍴9- 10 9টি ( ⍵ 9 9 9 9 9 9 9 9 9 9) দিয়ে কনকেনেট ইনপুট ।

+\ - সংখ্যার যোগফল।

(×⍵)/ - সাইনাম বার প্রসারিত করুন - যেখানে সাইনাম 1-9 এর জন্য 1 এবং 0 এর জন্য 0 দেয়।

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

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

{⍵/⍨⎕=(⍵≠0)×1+9|⍵-1}⍳100

প্রয়োজন ⎕IO←0।

কিভাবে?

                      ⍳100  ⍝ 0 .. 99
              1+9|⍵-1      ⍝ digit sum (⍵-1 mod 9 + 1)
        (⍵≠0)×             ⍝ edge case for 0
     ⎕=                    ⍝ equals to the input
 ⍵/⍨                       ⍝ compress with the range
— উরিল
সূত্র
5

ব্রেন-ফ্লাক , 48 বাইট

{<>((()()()()()){}){(({}[()])<>[][()]({}))<>}}<>

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

আমি পরে একটি ব্যাখ্যা যোগ করতে পারেন।

— মেগা
সূত্র
উজ্জ্বল! আমি একটি পাল্টা তৈরির জন্য দৈর্ঘ্যের সাথে +9 একত্রিত করার চেষ্টা করেছি, তবে আমি কখনও অন্যভাবে এটি করার কথা ভাবিনি
— জো কিং
1
— গম উইজার্ড
4

গণিত, 25 বাইট

If[#==0,0,Range[#,99,9]]&

0 জন্য কাজ করে

— J42161217
সূত্র
জন্য কাজ করে না 0 । এটিতে এমন সংখ্যাও অন্তর্ভুক্ত থাকবে না যার অঙ্কগুলি 9 এর চেয়ে বেশি সংখ্যায় যুক্ত হবে (যেমন আউটপুটটিতে 9না থাকত 99)।
— জংহওয়ান মিন
আমি বুঝছি তুমি কি বলতে চাও. আপনি কি কেবল "আমার" কোডগুলি পরীক্ষা করেন? এখানে অনেক কোড 0 এর জন্য কাজ করে না কারণ
— J42161217
1
ওয়েলপ, আমি ম্যাথমেটিকা ​​কোডের দিকে মনোনিবেশ করার প্রবণতা কারণ এটি সেই ভাষা যা আমি ভাল জানি। আপনাকে বা অন্য কোনও কিছুর লক্ষ্যবস্তু করার অর্থ নয়। ভালো লাগলে ক্ষমা চাইছি।
— জংহওয়ান মিন
সমস্ত স্থির এবং কর্মক্ষম
— J42161217
কি? বিল্টিন না?
— OldBunny2800
4

জেলি , 12 বাইট

⁵²Ḷµ,³%9EµÐf

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

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

⁵²Ḷµ,³%9EµÐf
⁵             - literal 10
 ²            - square
  R           - lowered range: 0 to 99 inclusive.
   µ     µÐf  - filter based on:
    ,³          - element and input
      %9        - mod 9
        E       - are equal
— fireflame241
সূত্র
1
যখন আমি 1 টি আর্গুমেন্ট হিসাবে ব্যবহার করি এটি 100 প্রদান করে, যা দুটি অঙ্ক নয়
— ফ্যান্টা
এটি 0 এবং 9 কেস বিভক্ত করে না।
— janর্জন জোহানসেন
এটি এখনও 0
— এয়ারড কোইনারিংহিং
4

আসলে , 18 বাইট

╗2╤DR⌠╜-9@%Y⌡░╜;)I

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

ব্যাখ্যা:

╗2╤DR⌠╜-9@%Y⌡░╜;)I
╗                   save input to register 0
 2╤DR               range(1, 100)
     ⌠╜-9@%Y⌡░      elements in range where function returns truthy:
      ╜-              subtract from input
        9@%           mod 9
           Y          is equal to 0
              ╜;)   push a copy of the input on the top and the bottom of the stack
                 I  if input is truthy, return the filtered range, else return the input (special-cases 0)
— ঐ মেগো
সূত্র
নিবন্ধন করুন
— মেগো
4

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

আন্ডারস্কোর পৃথক মানগুলি মুদ্রণ করে

for(;100>$a=&$argn;$a+=$a?9:ERA)echo$a._;

ERA মান সহ পিএইচপি মধ্যে সংক্ষিপ্ততম ধ্রুবক 131116 । আপনি বিরক্তিকর বিকল্পের সাথে এটি প্রতিস্থাপন করতে পারেন 100বা এর মাধ্যমে প্রোগ্রামটি শেষ করতে পারেনdie

অনলাইন সংস্করণ

— জার্গ হালসারম্যান
সূত্র
4

ব্রেন-ফ্লাক , 54 52 বাইট

{<>((((()()())){}{})()){({}<(({})<>({}))><>[()])}}<>

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

মস্তিষ্ক-ফ্ল্যাকের সাথে আমার প্রথম প্রচারণা, এবং আমি মনে করি আমি বেশ ভাল করেছি। আরও অভিজ্ঞ কেউ পরামর্শ আছে?

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

{ Don't do anything if input is 0
  <>((((()()())){}{})()) Switch to other stack and add 9 and 10
                         10 is the counter, 9 is to add to the current num
  { While counter
     (
       {} Pop the counter
       <(({})<>({}))> Get a copy of the 9, switch to the other stack and add it to a copy of the top of it. Use <...> to make it return 0
       <>[()] Switch to the other stack and decrement the counter
     ) 
  }
}<> Switch to the stack with the values on it
— জো কিং
সূত্র
1
সাবাশ! ব্রেইন ফ্ল্যাঙ্ক স্বাগতম।
— মেগাটম
3

পিএইচপি, 35

print_r(range($argn,!!$argn*99,9));

অ্যারে হিসাবে [$argn, 100)একটি পদক্ষেপ সহ পরিসর তৈরি করে 9এবং এটি মুদ্রণ করে। যদি ইনপুট হয় তবে 0এটি [0,0]=> রেঞ্জ তৈরি করে array(0)।

— ক্রিস্টোফ
সূত্র
3

পাইথন, 48 51 বাইট

3 বাইট @WatWizard এর জন্য ধন্যবাদ সংরক্ষণ করেছে saved

lambda n:[x for x in range(100)if~-n==~-x%9or x==n]
— ঊরীয়েল
সূত্র
1
এর ~-xপরিবর্তে চেষ্টা করুন(x-1)
— গম উইজার্ড
1
এখনও @ হুইট উইজার্ডের ডগা দিয়ে, স্থানটি সরিয়ে ফেলুনif ~-x%9
— ফিলিপ
এখন আপনি ~-n==~-x%9or x==nএকটি বাইট সংরক্ষণ করতে পারেন
— গম উইজার্ড
— ফ্যান্টাসি 12'18 এ
আমাকে নির্বোধ প্রশ্ন করা দরকার ... আমি এটি চালাতে চাই। আমি এই কোডটি কীভাবে চালাব? এখানে কয়েকটি কনস্ট্রাকশন রয়েছে যা সম্পর্কে শিখছি (মূলত অপারেটর)
— অ্যালেন ফিশার
2

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

f()আসলে কোন যুক্তি দিয়ে ডাকার দরকার নেই; nঠিক আছে ফাংশন একটি বাইট সংরক্ষণ করতে বাহিরে পরিবর্তে হয়।

f(n){for(scanf("%d",&n);n&&n<100;n+=9)printf("%d ",n);}

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

— gastropner
সূত্র
printfলুপ হেডারের ভিতরে রেখে আপনি 2 বাইট সংরক্ষণ করতে পারেন : এটি অনলাইনে চেষ্টা করুন!
— DLosc
@ ডিএলকস মাইয়া, তবে তারপরে এটি একটি সংখ্যা খুব দেরিতে শুরু করে।
— গ্যাস্ট্রোপনার 21 '15
বাক্যে কথন পরিষ্কার হতে পারে, কিন্তু প্রশ্ন এ (যেমন) 10 পরিবর্তে 1 শুরু অনুমতি দেয়। "... সম্ভব দুই অঙ্ক নম্বর যে ডিজিটাল রুট আছে সব আপনি এটি প্রয়োজন , এটা করতে পারেন অন্তর্ভুক্ত [SINGLE -ডিজিট সংখ্যা] নিজেই, যেমন 05. " অন্য কথায়, আউটপুটে একক-অঙ্কের সংখ্যা সহ অনুমোদিত তবে প্রয়োজনীয় নয় ।
— DLosc
2

কাঠকয়লা , 14 11 বাইট

Ｉ∧Ｎ⁺Ｉθ×⁹…¹¹

এটি অনলাইন চেষ্টা করুন! লিঙ্কটি কোডটির ভার্জোজ সংস্করণ। সম্পাদনা করুন: শূন্য ইনপুট এবং 1 বাইট ভেক্টরাইজিং অপারেশন ব্যবহার করে 3 বাইট কেবলমাত্র ASCII- এর জন্য প্রিন্ট না করে 2 বাইট সংরক্ষণিত ব্যাখ্যা:

         ¹¹ Literal 11
        …   Range
       ⁹    Literal 9
      ×     Vector multiply
     θ      (First) input
    Ｉ       Cast to number
   ⁺        Vector add
  Ｎ         Input digit as a number
 ∧          Logical AND
Ｉ           Cast to string
            Implicitly print on separate lines
— নিল
সূত্র
— ASCII- কেবল
আমি মনে করি আমি এখানে একটি বিকল্প সন্ধান করেছি যা এখানে
— ASCII- কেবল
1

জুলিয়া 0.6 , 18 বাইট

আমি কেসটি ধরার জন্য একটি টেরিনারি 0এবং n:9:99সংখ্যাগুলি তৈরি করতে একটি ব্যাপ্তি ব্যবহার করি । জুলিয়ায় একটি ব্যাপ্তি হ'ল এবং বেশিরভাগ ক্ষেত্রে AbstractVectorপ্রকৃত Vectorসংখ্যার জায়গায় ব্যবহার করা যেতে পারে , তবে এটি কেবল মুদ্রণ করবে 1:9:91যা চ্যালেঞ্জকে মেটায় না, তাই আমি এটিকে লিখিতভাবে একটিতে [_;]সংগ্রহ করি Vector। 

n->n>0?[n:9:99;]:0

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

— gggg
সূত্র
1

ক্লোজার , 38 বাইট

(defn f[n](if(pos? n)(range n 100 9)))

বা বেনামে ফাংশন যা 29 বাইট 

(#(if(pos? %)(range % 100 9))n)

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

ধন্যবাদ @ স্টেডিবক্স

— Alonoaky
সূত্র
1
n=9শেষ সংখ্যাটি যখন অনুপস্থিত তখন আউটপুট 99। এটি অনলাইন চেষ্টা করুন! এছাড়াও, আপনি f[n]এবং এর মধ্যে স্থান সরিয়ে একটি বাইট সংরক্ষণ করতে পারেন (if(...।
— স্টেডিবক্স
0

পার্ল 5, 62 বাইট

sub x{$f=$_[0];@x=("0$f",$f);push@x,map$f+$_*10,(1..9)if$f;@x}

আরও ছোট একটি উপায় হতে বাধ্য

— টম ট্যানার
সূত্র
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.