আমি কি একটি স্বতন্ত্র সংখ্যা?

Question

একটি স্ব সংখ্যা (কলম্বিয়ান বা দেবলালী নম্বরও বলা হয়) একটি প্রাকৃতিক সংখ্যা x, যেখানে সমীকরণটির n + <digit sum of n> = xকোনও প্রাকৃতিক সংখ্যার জন্য কোনও সমাধান নেই n। উদাহরণস্বরূপ, 21n = 15 ফলাফল হিসাবে কোনও স্ব সংখ্যা নয় 15 + 1 + 5 = 21। অন্যদিকে, 20 হয় একটি স্ব নম্বর, কোন nপাওয়া যাবে, যা সন্তুষ্ট যেমন একটি সমতা।

যেহেতু এই সংজ্ঞাটি অঙ্কের সমষ্টি উল্লেখ করে, এটি বেস নির্ভর। এই চ্যালেঞ্জের উদ্দেশ্যে, আমরা কেবল বেস 10 স্ব সংখ্যাগুলি বিবেচনা করব, যা ওইআইএসের ক্রম A003052 । বাইনারি ( A010061 ) এবং বেস 100 ( A283002 ) স্ব সংখ্যাগুলিও ক্যালগ করা হয়েছে।

চ্যালেঞ্জ

xইনপুট হিসাবে ধনাত্মক পূর্ণসংখ্যা দেওয়া হয়েছে , xবেস 10 এর একটি স্বতন্ত্র সংখ্যা হলে সত্যবাদী মান এবং অন্যথায় মিথ্যা মান output সত্য এবং মিথ্যা মানগুলির স্পষ্টতার জন্য, বিষয়টির এই মেটা পোস্টটি পড়ুন ।

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

এটি কোড-গল্ফ , সুতরাং আপনার উত্তরটি কম (বাইটে) আরও ভাল!

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

Truthy:

1
3
5
7
9
20
31
86
154
525

Falsey:

2
4
6
8
10
15
21
50
100
500

স্যান্ডবক্স লিঙ্ক

লিডারবোর্ড

নিয়মিত লিডারবোর্ড এবং ভাষার দ্বারা বিজয়ীদের একটি সংক্ষিপ্ত বিবরণ উভয়ই তৈরি করতে এখানে একটি স্ট্যাক স্নিপেট।

আপনার উত্তরটি প্রদর্শিত হয়েছে তা নিশ্চিত করার জন্য, দয়া করে নীচের মার্কডাউন টেম্পলেটটি ব্যবহার করে আপনার উত্তরটি শিরোনাম দিয়ে শুরু করুন:

# Language Name, N bytes

Nআপনার জমা দেওয়ার আকারটি কোথায় ? আপনি যদি নিজের স্কোরটি উন্নত করেন তবে আপনি পুরানো স্কোরগুলি শিরোনামে রেখে দিতে পারেন । এই ক্ষেত্রে:

# Ruby, <s>104</s> <s>101</s> 96 bytes

যদি আপনি নিজের শিরোনামে একাধিক সংখ্যা অন্তর্ভুক্ত করতে চান (যেমন আপনার স্কোর দুটি ফাইলের সমষ্টি বা আপনি পৃথকভাবে দোভাষী পতাকা দণ্ডের তালিকা করতে চান), নিশ্চিত করুন যে আসল স্কোরটি শিরোনামের শেষ সংখ্যা:

# Perl, 43 + 2 (-p flag) = 45 bytes

আপনি ভাষাটির নামটিকে একটি লিঙ্কও বানাতে পারেন যা লিডারবোর্ড স্নিপেটে প্রদর্শিত হবে:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

var QUESTION_ID=159881,OVERRIDE_USER=41020;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Comments

বৈধ আউটপুটগুলির বিষয়ে কিছু আলোচনা / মতানৈক্য রয়েছে বলে মনে হয়, তাই আমি মনে করি আমার উদ্দেশ্য কী ছিল সে সম্পর্কে আমি পরিষ্কার ছিলাম না। আমি একটি বাক্য যুক্ত করেছি যা আশা করি এই মেটা পোস্টটি উল্লেখ করে বিষয়গুলি পরিষ্কার করা উচিত । দুঃখিত আমি যদি এই সম্পর্কে কোন বিভ্রান্তি ঘটায়!

— Sok

আরও বিভ্রান্তির কারণ নয়, তবে আমি মনে করি এই আলোচনাটি কেন কিছু বিভ্রান্তি ঘটেছে তার সাথে প্রাসঙ্গিক। ভবিষ্যতের চ্যালেঞ্জগুলি তৈরি করার সময় দয়া করে এটি বিবেচনা করুন, কারণ যে ভাষাগুলিতে পুরানো sensক্যমত ব্যবহার করা হয় / / যদি অন্য কিছু তৈরি করে না তবে যে ভাষাগুলিতে পোস্ট করা কঠিন হতে পারে।

— FryAmTheEggman 22'18

@ ফ্রাইআম দ্য এজিগম্যান আমি যে sensক্যমত্যটি স্থানান্তরিত হয়েছি বুঝতে পারি নি, এখন আমার কাছে একটি নমির মতো মনে হচ্ছে: / তবুও, আমি ইতিমধ্যে এখন একটি স্পষ্টতা যোগ করেছি, এটি আবার পরিবর্তন করা ভুল বলে মনে হচ্ছে। আমি পোস্ট করা পরবর্তী চ্যালেঞ্জের জন্য আমি এটি মনে রাখব। ধন্যবাদ

— সোড

আমি কোন ধরণের নাম্বার নই! আমি একজন মুক্ত মানুষ!

— ডেভিড রিচার্বি

@ ডেভিডরিচারি * আপনার পরে সাদা বল প্রেরণ করেন *

— সোক

Answer 1

অক্টাভা , 37 বাইট

@(n)sum(dec2base(t=1:n,10)'-48,1)+t-n

আমার এমএটিএল উত্তরের পোর্ট।

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

Answer 2

জাভা (জেডিকে 10) , 84 বাইট

i->{for(int n=i;i-->1;)i|=((""+i).chars().map(x->x-48).sum()+i^n)-1>>-1;return~i<0;}

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

ব্যাখ্যা

i->{                                    // IntPredicate
  for(int n=i;i-->1;)                   //  for each number below n
    i|=(                                //   keep the sign of
      (""+i).chars().map(x->x-48).sum() //    sum of digits
      +i                                //    plus the number
      ^n                                //    xor n (hoping for a zero)
     )-1>>-1;                           //    changing that into a negative number if equals to zero
  return~i<0;                           //  return i>=0
}

ক্রেডিট

• -1 বাইট কেভিন ক্রুইজসেনকে ধন্যবাদ
• -1 বাইট নেভাকে ধন্যবাদ

Comments

-1 বাইট:n->{int i=n,r=0;for(;i-->0;)r=(""+i).chars().map(x->x-48).sum()+i==n?1:r;return r<1;}

— কেভিন ক্রুইজসেন 22'18

84 বাইট:i->{for(int n=i;i-->1;)i|=((""+i).chars().map(x->x-48).sum()+i^n)-1>>-1;return~i<0;}

— নেভায়ে

Answer 3

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

LD€SO+ÊW

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

ব্যাখ্যা

L          # push range [1 ... input]
 D         # duplicate
  €S       # split each number into a list of digits
    O      # sum digit lists
     +     # add (n + digitSum(n))
      Ê    # check for inequality with input
       W   # min

Answer 4

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

¬{⟦∋Iẹ+;I+?}

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

ব্যাখ্যা

¬{         }    Fails if succeeds, suceeds if fails:
  ⟦∋I             I ∈ [0, ..., Input]
    Iẹ+           The sum of the elements (i.e. digits) of I...
       ;I+?       ... with I itself results in the Input

Comments

কি false.একটি উপায় যে কোনো উদ্দেশ্য পদ্ধতি দ্বারা একটি truthy মান true.নয়? আমি কারও পক্ষে এটি মনে করি না, এবং দেখে মনে হচ্ছে এটি মেটা

— সোক

@ সোক আমি আপনার উদ্বেগের সমাধান করতে 3 টি উদ্দীপনা বাইট যুক্ত করেছি।

— ফ্যাটালাইজ করুন

Answer 5

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

i,r,d,j;f(n){for(r=i=n;d=j=--i;r*=d!=n)for(;j;j/=10)d+=j%10;i=r;}

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

অন্য 2 বাইট ছাঁটাই করতে, সত্যবাদী মানটি আর 1 নয়, তবে এটি নিজেই সংখ্যা।

Answer 6

অক্টাভা , 49 47 44 বাইট

@(x)arrayfun(@(k)k+sum(num2str(k)-48)-x,1:x)

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

ব্যাখ্যা:

একটি পরিসরে অপারেশন করার চেষ্টা করা জটিল এবং দীর্ঘ, যেহেতু num2strইনপুট সংখ্যার চেয়ে বেশি থাকলে বিভাজক হিসাবে স্পেসগুলির সাথে একটি স্ট্রিং প্রদান করে। 48 বিয়োগ করে তাই কিছু দিতে পারে: 1 -16 -16 2 -16 -16 3 -16 -16 4ইনপুট পরিসীমা 1 ... 4 এর জন্য । সমস্ত ছাড় থেকে মুক্তি পেতে -16অনেকগুলি বাইট লাগে।

অতএব, আমরা লুপ ব্যবহার করে এটি করব arrayfun। প্রতিটি সংখ্যার জন্য কে = 1 .. এক্স , যেখানে এক্স ইনপুট, আমরা যুক্ত করব kএবং এর অঙ্কের যোগফল এবং বিয়োগ করব x। এটি কে-এর প্রতিটি সংখ্যার জন্য সেই অপারেশনের ফলাফলের সাথে একটি অ্যারে প্রদান করবে । অ্যারের সংখ্যাগুলির মধ্যে যদি কোনও শূন্য হয় তবে সংখ্যাটি কোনও স্ব সংখ্যা নয়।

ইনপুটগুলির জন্য 20এবং 21আউটপুটগুলি হ'ল:

20:  -18, -16, -14, -12, -10, -8, -6, -4, -2, -9, -7, -5, -3, -1, 1, 3, 5, 7, 9, 2
21:  -19, -17, -15, -13, -11, -9, -7, -5, -3, -10, -8, -6, -4, -2, 0, 2, 4, 6, 8, 1, 3

ইনপুট জন্য কেবল অ শূন্য উপাদান এবং ইনপুট জন্য 20কমপক্ষে একটি অ শূন্য উপাদান আছে 21। তার মানে এটি 20একটি স্ব সংখ্যা, এবং 21না।

অক্টাভে কমপক্ষে এক শূন্যের সাথে একটি অ্যারেরকে মিথ্যা হিসাবে গণ্য করে, টিআইও-লিঙ্কে দেখা যায়।

Answer 7

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

t:tFYA!Xs+-

আউটপুটটি একটি খালি নয় এমন অ্যারে, যা এর সমস্ত এন্ট্রি শূন্য-না হলে সত্যবাদী এবং যদি এতে এক বা একাধিক শূন্য থাকে তবে মিথ্যা।

এটি অনলাইন চেষ্টা করুন! অথবা সত্যতা / মিথ্যা পরীক্ষা সহ সমস্ত পরীক্ষার কেস যাচাই করুন ।

ব্যাখ্যা

n = 10উদাহরণ হিসাবে ইনপুট বিবেচনা করুন ।

t       % Implicit input, n. Duplicate
        % STACK: 10, 10
:       % Range
        % STACK: 10, [1 2 3 4 5 6 7 8 9 10]
t       % Duplicate
        % STACK: 10, [1 2 3 4 5 6 7 8 9 10], [1 2 3 4 5 6 7 8 9 10]
FYA!    % Convert to base 10 digits and transpose
        % STACK: 10, [1 2 3 4 5 6 7 8 9 10], [0 0 0 0 0 0 0 0 0 1
                                              1 2 3 4 5 6 7 8 9 0]
Xs      % Sum of each column
        % STACK: 10, [1 2 3 4 5 6 7 8 9 10], [1 2 3 4 5 6 7 8 9 1]
+       % Add, element-wise
        % STACK: 10, [2 4 6 8 10 12 14 16 18 11]
-       % Subtract, element-wise
        % STACK: [8 6 4 2 0 -2 -4 -6 -8 -1]
        % Implicit display

Answer 8

এপিএল (ডায়ালগ) , 14 বাইট

~⊢∊⍳+(+/⍎¨∘⍕)¨∘⍳

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

কিভাবে?

               ⍳   range
     (  ⍎¨∘⍕)      digits
     (+/    )      digit sums
   ⍳+              vectorized addition with the range
 ⊢∊                is the input included?
~                  negate

Comments

এটা 16 বাইট। তাদের 15 করতে: +/⍎¨∘⍕->#+.⍎⍕

— এনজিএন

Answer 9

জেলি , 6 বাইট

ḟDS+Ɗ€

ইনপুট করতে এন , এই আয় [এন] যদি এন একটি স্ব নম্বর, হয় [] যদি না।

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

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

ḟDS+Ɗ€  Main link. Argument: n

     €  Call the link to the left for each k in [1, ..., n].
    Ɗ     Drei; combine the three links to the left into a monadic chain.
 D          Decimal; map k to the array of its digits in base 10.
  S         Take the sum.
   +        Add k to the sum of the k's digits.
ḟ       Filterfalse; promote n to [n], then remove all elements that appear in the
        array to the right.
        This returns [n] if the array doesn't contain n, [] if it does.

Comments

কী এনকোডিং এই ছয় অক্ষরকে মাত্র ছয়টি বাইটে প্যাক করে?

— ডাব্লুগ্রোলাউ

জেলি একটি কাস্টম কোড পৃষ্ঠা ব্যবহার করে ।

— ডেনিস

Answer 10

পরী / জিপি , 32 বাইট

n->!sum(i=1,n,i+sumdigits(i)==n)

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

Answer 11

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

f x=and[x/=n+sum[read[d]|d<-show n]|n<-[1..x]]

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

Answer 12

জে , 28, 24, 22 21 বাইট

-1 বাইট ধন্যবাদ কনর ও ব্রায়েনকে

-2 বাইট ধন্যবাদ এনএনজি ধন্যবাদ

$@-.(+1#.,.&.":)"+@i.

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

ব্যাখ্যা:

i. a list 0 .. n-1

( )"+ তালিকার প্রতিটি আইটেমের জন্য

.,.&.": অঙ্কের তালিকায় রূপান্তর করুন,

1# তাদের যোগফল খুঁজে

+ এবং আইটেম এ এটি যোগ করুন

$@-. যুক্তি থেকে তালিকা বাদ দিন এবং আকৃতিটি সন্ধান করুন

Comments

আমি বুঝতে পারি এটি একটি পুরানো পোস্ট, তবে "0 i.হতে পারে "+i.(-1 বাইট)।

— কনর ও'ব্রায়ান

@ কনরও'ব্রায়ান আপনাকে ধন্যবাদ! আমি মনে করি আমি তখন এই ধরনের গল্ফগুলি জানতাম না; এখন আমি এটি ব্যবহার করি (যখন আমি মনে করি :))

— গ্যালেন ইভানোভ

-.@e.->$@-.

— এনজিএন

@ জিএনএন আপনাকে ধন্যবাদ, সত্যিই দুর্দান্ত!

— গ্যালেন ইভানভ

@GalenIvanov এছাড়াও [:( )"+i.->( )"+@i.

— ngn

Answer 13

পাইথন 2, 70 66 বাইট

lambda x:[i for i in range(x)if i+sum([int(j)for j in`i`])==x]==[]

সম্পাদনা: -4 @ ইউজার 576656 ধন্যবাদ

Comments

পাইথন `i`2 এ str(i)আপনি 4 বাইট সংরক্ষণ করার পরিবর্তে ব্যবহার করতে পারেন ।

— গম উইজার্ড

@ ইউজার 666566 ধন্যবাদ, আমি সে সম্পর্কে জানতাম না

— Sonrad10

আপনি 13: []sum

— 32

lambda x:[i for i in range(x)if i+sum(map(int,`i`))==x]==[]

— বি। একলস

lambda x:all(i+sum(map(int,`i`))-x for i in range(x))

— বি। একলস

Answer 14

পাইথ , 8 বাইট

!/m+sjdT

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

যদি সত্যবাদী / মিথ্যা মানগুলি অদলবদল করার অনুমতি দেওয়া হয়, তবে আমরা এর !পরিবর্তে 7 টি বাইট পেতে পারি। সকের একটি পরামর্শ আমাকে গল্ফ 2 বাইটে সহায়তা করেছে।

ব্যাখ্যা

! / এম + এসজেডিটি - সম্পূর্ণ প্রোগ্রাম। STDIN থেকে একটি ইনপুট কি লাগে, সত্য বা মিথ্যা ফলাফল দেয়।
  m - একটি ভেরিয়েবল সহ পরিসীমা [0 ... কিউ) এর উপরে মানচিত্র d
     jdT - বেস 10 তে রূপান্তর করুন।
    s - যোগফল।
   + - এবং নিজেই যোগফল যোগ করুন।
 / - ফলাফল Q এর উপস্থিতি গণনা করুন।
! - নেগেট সুস্পষ্টভাবে ফলাফল আউটপুট।

Comments

আমার ছিল .AmnQ+dsjdT, আমি সম্পর্কে কোন ধারণা ছিল না /। দীর্ঘদিন আমি পাইথটি সঠিকভাবে ব্যবহার করি নি বলে মনে হচ্ছে! +1

— সোক

@ সোক /মূলত একটি তালিকার একটি উপাদানগুলির উপস্থিতি গণনা করে। আমি এটিও ব্যবহার করতে পারি }, যা কোনও তালিকায় কোনও বস্তু উপস্থিত রয়েছে কিনা তা পরীক্ষা করে, তবে আমি মনে করি এটি একই বাইট গণনা।

— মিঃ এক্সকোডার

আমার মনে হয় Sএটি প্রয়োজনীয় নয় - ইনপুটটি ইতিবাচক পূর্ণসংখ্যার হবে, সুতরাং 0ম্যাপিং তালিকায় থাকা কোনও সমস্যা হবে না? কমপক্ষে, প্রদত্ত পরীক্ষার ক্ষেত্রে এটি কাজ করে বলে মনে হচ্ছে।

— সোক

@ সোক গ্রেট, আপনি ঠিক বলেছেন! আমি এই জন্য আরও একটি বাইট বন্ধ চাঁচা।

— মিঃ এক্সকোডার

কীভাবে +sjdTযুক্ত sjdTহয় d? আমি যে কিছু কখনো দেখিনি

— আর কে।

Answer 15

পার্ল 6 , 39 33 বাইট

{!grep $_,map {$_+[+] .comb},^$_}

চেষ্টা কর!

অন্তর্নিহিত একক প্যারামিটার সহ একটি বেয়ার ব্লক, যাকে বলা হয়:

say {!grep $_,map {$_+[+] .comb},^$_}(500);
> False
say {!grep $_,map {$_+[+] .comb},^$_}(525);
> True

যেহেতু n + digits(n) >= n, আমরা কেবল আমাদের ক্যোয়ারী মান পর্যন্ত সমস্ত সংখ্যার জন্য কলম্বিয়ান নম্বর গণনা করতে পারি এবং এটির সাথে কোনও মিলছে কিনা তা দেখতে পারি। সুতরাং এটি প্রদত্ত ইনপুটটির জন্য কলম্বিয়ান নম্বর গণনা করে:

{$_ + [+] .comb}

যা আমরা আমাদের লক্ষ্য পর্যন্ত সমস্ত মানগুলিতে প্রয়োগ করি:

(^$_).map({$_+[+] .comb})

তবে আমরা কেবল সেগুলির যত্ন নিই যে সেগুলির কোনওটি মিলছে কি না, সেই মানগুলি কী নয়, তাই @ নভেলেনহফ দ্বারা চিহ্নিত হিসাবে আমরা গ্রেপ করতে পারি:

grep $_, map {$_+[+] .comb}, ^$_

বাকিটি কেবল একটি ব্লকে জড়ান এবং মোড়কে জোর করা।

39 বাইট

{!((^$_).map({$_+[+] .comb}).any==$_)}

টিমো পরীক্ষার লিঙ্কটি @ এমিগনা সরবরাহ করেছেন

@ নভেলেনহফ উল্লেখ করেছেন যে গ্রেপ ব্যবহার করলে by বাইট সাশ্রয় হয়!

Comments

কুল সমাধান! আপনি পরীক্ষার উদ্দেশ্যে টিআইও লিঙ্ক যুক্ত করতে পারেন ।

— Emigna

{!grep $_,map {$_+[+] .comb},^$_}33 বাইট জন্য।

— নেলহ্নহফ

29 বাইট

— জো কিং

Answer 16

পাইথন 3 , 60 , 56 , 55 , 54 বাইট

lambda x:{x}-{n+sum(map(int,str(n)))for n in range(x)}

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

-4 পরিবর্তে কোনও
-1 এর পরিবর্তে সমস্ত বিপরীত ব্যবহার করে ! =
জোনাথন -অ্যালান দ্বারা @ ওওএস দ্বারা সেট ব্যবহার করে -1

Answer 17

জাপট -d! , 6 বাইট

N¥U+ìx

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

---

আসল, 8 বাইট

সত্য বা মিথ্যা জন্য ইনপুট নম্বর প্রদান করে 0। জাভাস্ক্রিপ্টে যদি কেবল খালি অ্যারেটি মিথ্যা থাকে তবে এটি 7 বাইট হতে পারে।

ÂNkUÇ+ìx

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

---

ব্যাখ্যা

             :Implicit input of integer U
   UÇ        :Generate the range [0,U) and pass each Z through a function
      ì      :  Digits of Z
       x     :  Reduce by addition
     +       :  Add to Z
  k          :Remove the elements in that array
 N           :From the array of inputs
            :Bitwise NOT NOT (~~), casts an empty array to 0 or a single element array to an integer 

---

বিকল্প

Ç+ìxÃe¦U

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

             :Implicit input of integer U
Ç            :Generate the range [0,U) and pass each Z through a function
  ì          :  Digits of Z
   x         :  Reduce by addition
 +           :  Add to Z
    Ã        :End function
     e       :Every
      ¦U     :  Does not equal U

Answer 18

রেটিনা , 55 বাইট

.+
*
Lv`_+
_+
$&$.&
^_+
$&¶$&
\d
*
Cms`^(_+)\b.*¶\1\b
0

এটি অনলাইন চেষ্টা করুন! লিঙ্কে পরীক্ষার কেস অন্তর্ভুক্ত রয়েছে। ব্যাখ্যা:

.+
*

xইনপুটটিকে আনারিতে রূপান্তর করুন ।

Lv`_+

xনীচে থেকে একটি পরিসীমা তৈরি করুন 1।

_+
$&$.&

প্রত্যেকটির দশমিক মানটিকে nতার অবিচ্ছিন্ন মান হিসাবে প্রত্যয়িত করুন ।

^_+
$&¶$&

একটি অনুলিপি করুন x।

\d
*

প্রতিটি দশমিক nঅঙ্ককে অ্যানারিতে রূপান্তর করুন , সুতরাং এর বিদ্যমান অনুলিপিটিতে অঙ্কগুলি যুক্ত করুন n।

Cms`^(_+)\b.*¶\1\b

xফলাফলের কোনওটিতে উপস্থিত রয়েছে কিনা তা পরীক্ষা করে দেখুন ।

0

ফলাফলটি উল্টে দিন।

Answer 19

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

@ এল 4 এম 2 এর জন্য 1 বাইট সংরক্ষণ করা হয়েছে

ফেরত পাঠায় 0 বা 1 ।

n=>(g=k=>k?eval([...k+'k'].join`+`)-n&&g(k-1):1)(n)

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

Comments

n=>(g=k=>k?n-eval([...k+'k'].join`+`)&&g(k-1):1)(n)

— l4m2

Answer 20

হাস্কেল , 63 58 বাইট

s 0=0
s x=x`mod`10+s(x`div`10)
f n=all(\x->x+s x/=n)[1..n]

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

Answer 21

পার্ল 5 -a , 34 বাইট

#!/usr/bin/perl -a
say!grep{s/./$_+=$&/reg;/@F/}1..$_

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

Answer 22

রুবি , 38 বাইট

->x{(1..x).all?{|n|n+n.digits.sum!=x}}

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

Answer 23

রেটিনা , 24 বাইট

.+
*

$.`¶$`
\d
*
D`
.\z

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

অ্যানারিতে দেওয়া ইনপুট সহ 18 বাইট হতে পারে, তবে অন্যান্য রেটিনা উত্তর দশমিকটিও ব্যবহার করে, তাই আমি দশমিকটি ব্যবহার করে আরও সুন্দর তুলনা করতে পারি।

ব্যাখ্যা

.+
*

_আনারি ডিজিট হিসাবে ব্যবহার করে ইনপুটটি আনারিতে রূপান্তর করুন ।

$.`¶$`

স্ট্রিংয়ের প্রতিটি অবস্থানে (অর্থাত্ শুরু, শেষ এবং প্রতিটি জুটির অক্ষরের মধ্যে) সন্নিবেশ করান: $.`উপসর্গের দৈর্ঘ্য (বা ম্যাচের শূন্য-সূচক অবস্থান) ¶, একটি লাইনফিড, $`উপসর্গ নিজেই (যেমন শূন্য-সূচক অবস্থানের অবিচ্ছিন্ন উপস্থাপনা)। উদাহরণস্বরূপ যদি ইনপুটটি থাকে 3এবং আমাদের একত্রী প্রতিনিধিত্ব থাকে ___তবে তার ফলস্বরূপ:

0
_1
__2
___3
___

অন্য কথায়, আমরা প্রতিটি সংখ্যার জন্য 0 থেকে ইনপুট (সমেত) পর্যন্ত একটি লাইন পাই যা একটি সংখ্যক এবং দশকের দশমিক উপস্থাপনা উভয়ই ধারণ করে।

\d
*

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

D`

সদৃশ লাইন এটি আসলে সদৃশ লাইনগুলি মুছে দেয় না তবে কেবল খালি লাইনে সাফ করে। সুতরাং যদি 0 থেকে ইনপুট পর্যন্ত কোনও সংখ্যার যোগফল এর অঙ্কের সমষ্টি হয় তবে শেষ লাইনটি সাফ হয়ে যাবে। অন্যথায়, শেষ লাইনটি স্থির থাকে।

.\z

এখনও শেষ লাইনে একটি অক্ষর আছে কিনা তা পরীক্ষা করে দেখুন। আমরা ব্যবহার করতে পারি না $, কারণ এটিও একটি পেছনের লাইনফিডের সামনে মেলে (এটি ঠিক যেখানে আমরা দেখতে চাই না)।

Answer 24

ব্যাশ + জিএনইউ কোরিটিলস, 91 বাইট

সত্যবাদী বা মিথ্যা ফিরিয়ে দেয়।

e=1;for((i=1;i<=$1;i++));{ [ $(bc<<<`grep -o . <<<$i|tr '\n' +`$i) -eq $1 ]&&e=0; };exit $e

Answer 25

কোটলিন , 48 বাইট

x->(1..x).all{v->"$v".sumBy{it.toInt()-48}+v!=x}

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

ব্যাখ্যা:

(1..x)      // Range of numbers from 1 to x
.all{v->    // Function expression that checks if ALL values evaluate to tru
"$v"        // Convert the value into a string
.sumBy{it.toInt()-48} // For each character, get the ASCII char value, subtract 48 in order to get it back to the numerical value, and then sum it up
+v          // Add the original number
!=x}        // Ensure that it does not equal the input

Answer 26

++ , 27 বাইট যুক্ত করুন

D,g,@,BDB+A+BK=
L,RbUABkºg!

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

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

D,g,@,		; Create a monadic function 'g'
		; Example argument:		[15]
	BD	; Digits;		STACK = [[1 5]]
	B+	; Sum;			STACK = [6]
	A+	; Add argument;		STACK = [21]
	BK=	; Equals input;		STACK = [1]

L,		; Create a lambda function
		; Example argument:		[21]
	RbUABk	; Push range;		STACK = [1 2 3 ... 19 20 21]
	ºg	; Any true from 'g';	STACK = [1]
	!	; Logical NOT;		STACK = [0]

Answer 27

এলিক্সির , 66 65 বাইট

fn a->!Enum.any?1..a,fn b->a==b+Enum.sum Integer.digits b end end

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

Answer 28

স্ট্যাক্স , 8 বাইট

Å8avj╒Éπ

এটি চালান এবং এটি ডিবাগ করুন

ব্যাখ্যা

এএসসিআইআই সমতুল্য:

{cE+|+x=f!
{       f     Filter [1..input] with block
 cE           Decimal digits of current value
   +|+        Sum of digits and the current value
      x=      Equals input
         !    Logical not, maps empty array to 1 and non-empty array to 0

fcE+|+x=একটি স্ট্যাক্স প্রোগ্রাম যা সমস্ত সংখ্যাকে আউটপুট দেয় যার অঙ্কগুলির যোগফল নিজেই যুক্ত হয় ইনপুটটির সমান। উদাহরণস্বরূপ 101আউটপুট হবে 91এবং 100প্রতিটি পৃথক লাইনে।

এটি চালান এবং এটি ডিবাগ করুন

Answer 29

পাইট , 7 বাইট

ĐřĐŚ+∈¬

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

যদি সত্যবাদী / মিথ্যা মানগুলি অদলবদল করার অনুমতি দেওয়া হয়, তবে ¬শেষে 6 বাইটের জন্য বাদ দেওয়া যাবে।

ব্যাখ্যা:

        Implicit input
Đ       Duplicate input
ř       Get [1,2,...,input]
Đ       Duplicate the top of the stack
Ś       Get the sum of the digits of each element in the array
+       Add the top two items on the stack element-wise
∈       Is the input in the list?
¬       Negate the top of the stack
        Implicit print

Answer 30

জে , 20 বাইট

#@-.i.+1#.10#.inv i.

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

                  i.     Range [0,n-1]
          10#.inv        To base 10
       1#.               Sum the digits
    i.+                  Plus the corresponding number
  -.                     Remove from the input, leaves an empty list if it was a self number.
#@                       An empty list is truthy, so return the length instead.