จำนวนตัวเอง (เรียกว่ายังมีจำนวนโคลอมเบียหรือ Devlali) เป็นจำนวนธรรมชาติxที่สมการมีโซลูชั่นสำหรับจำนวนธรรมชาติใดn + <digit sum of n> = x ๆ nยกตัวอย่างเช่น21ไม่ได้เป็นจำนวนตนเองเป็นผลในการn = 15 15 + 1 + 5 = 21ในขณะที่20 เป็นจำนวนตัวเองที่ไม่nสามารถพบได้ซึ่งตอบสนองความเท่าเทียมกัน

เนื่องจากคำจำกัดความนี้อ้างถึงผลรวมหลักจึงขึ้นอยู่กับฐาน สำหรับจุดประสงค์ของการท้าทายนี้เราจะพิจารณาตัวเลขฐาน 10 ตัวเท่านั้นซึ่งเป็นลำดับA003052ใน OEIS เลขฐานสอง ( A010061 ) และหมายเลขฐาน 100 ( A283002 ) ยังได้รับการปรับเทียบ

ความท้าทาย

รับจำนวนเต็มบวกxเป็นอินพุตให้ส่งออกค่าจริงถ้าxเป็นตัวเลขตัวเองในฐาน 10 และค่าความเท็จเป็นอย่างอื่น สำหรับการชี้แจงของ truthy และ falsey ค่าอ้างอิงไปยังโพสต์เมตานี้ในเรื่อง

คุณสามารถเขียนโปรแกรมหรือฟังก์ชั่นเต็มรูปแบบและอาจมีการป้อนข้อมูลและเอาท์พุทในช่องสัญญาณปกติ แน่นอนช่องโหว่มาตรฐานถูกห้าม

นี่คือcode-golfดังนั้นยิ่งคำตอบของคุณสั้นลงเท่านั้น (ดีกว่า)!

กรณีทดสอบ

Truthy:

1
3
5
7
9
20
31
86
154
525

Falsey:

2
4
6
8
10
15
21
50
100
500

ลิงก์ Sandbox

ลีดเดอร์

นี่คือตัวอย่างข้อมูลเพื่อสร้างทั้งกระดานผู้นำปกติและภาพรวมของผู้ชนะตามภาษา

เพื่อให้แน่ใจว่าคำตอบของคุณปรากฏขึ้นโปรดเริ่มคำตอบด้วยหัวข้อโดยใช้เทมเพลต Markdown ต่อไปนี้:

# 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>

อ็อกเทฟ 37 ไบต์

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

พอร์ตของคำตอบ MATL ของฉัน

ลองออนไลน์!

Java (JDK 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 ไบต์ต้องขอบคุณKevin Cruijssen
• -1 ไบต์ด้วยNevay

05AB1E , 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

Brachylogขนาด 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

C (gcc) , 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 แต่จะเป็นตัวเลข

Octave , 49 47 44 bytes

@(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ดังนั้นเราจะทำเช่นนี้กับวงโดยใช้ สำหรับแต่ละหมายเลขk = 1 .. xที่xคือการป้อนข้อมูลที่เราเพิ่มและผลรวมหลักและลบk xนี้จะกลับอาร์เรย์ของที่มีผลการดำเนินงานสำหรับแต่ละของตัวเลขในที่k หากตัวเลขใด ๆ ในอาเรย์เป็นศูนย์ตัวเลขจะไม่ใช่ตัวเลขตัวเอง

สำหรับอินพุต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ไม่ใช่

อ็อกเทฟใช้อาร์เรย์ที่มีศูนย์อย่างน้อยหนึ่งศูนย์เป็นเท็จซึ่งสามารถเห็นได้ใน TIO-link

MATL 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

APL (Dyalog)ขนาด 14 ไบต์

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

ลองออนไลน์!

อย่างไร?

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

เยลลี่ 6 ไบต์

ḟDS+Ɗ€

สำหรับอินพุตnสิ่งนี้จะคืนค่า[n]ถ้าnเป็นจำนวนตัวเอง[]หากไม่ใช่

ลองออนไลน์!

มันทำงานอย่างไร

ḟ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.

Pari / GP , 32 ไบต์

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

ลองออนไลน์!

Haskell , 46 ไบต์

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

ลองออนไลน์!

J , 28, 24, 22 21 ไบต์

-1 ไบต์ขอบคุณ Conor O'Brien

-2 byts ขอบคุณ ngn

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

ลองออนไลน์!

คำอธิบาย:

i. รายการ 0 .. n-1

( )"+ สำหรับแต่ละรายการในรายการ

.,.&.": แปลงเป็นรายการตัวเลข

1# หาผลรวมของพวกเขา

+ และเพิ่มลงในรายการ

$@-. แยกรายการออกจากอาร์กิวเมนต์และค้นหารูปร่าง

Python 2, 70 66 Bytes

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

แก้ไข: -4 ขอบคุณ @ user56656

Pyth , 8 ไบต์

!/m+sjdT

ชุดทดสอบ

หากได้รับอนุญาตให้สลับค่าความจริง / ค่าเท็จเราสามารถปล่อย!และรับ 7 ไบต์แทน คำแนะนำอย่างหนึ่งของSokช่วยให้ฉันตีกอล์ฟได้ 2 ไบต์

คำอธิบาย

! / m + sjdT - โปรแกรมเต็มรูปแบบ รับอินพุต Q จาก STDIN เอาต์พุตเป็น True หรือ False
  m - แผนที่เหนือช่วง [0 ... Q) ด้วยตัวแปร d
     jdT - แปลง d เป็นฐาน 10
    s - ผลรวม
   + - และเพิ่มผลรวมไปยัง d
 / - นับจำนวนการเกิดของ Q ในผลลัพธ์
! - ปฏิเสธ แสดงผลลัพธ์โดยปริยาย

Perl 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})

แต่เราสนใจเพียงว่ามีค่าใดที่ตรงกันไม่ใช่ค่าเหล่านั้นดังนั้น @nwellenhof จึงชี้ให้เห็นว่าเราสามารถ grep:

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

ส่วนที่เหลือเป็นเพียงการบีบบังคับให้คนโง่และห่อในบล็อก

39 ไบต์

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

ลิงก์ทดสอบ TIO จัดทำโดย @Emigna

@nwellenhof ชี้ให้เห็นว่าการใช้ grep จะประหยัดได้ 6 ไบต์!

Python 3 , 60 , 56 , 55 , 54 ไบต์

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

ลองออนไลน์!

-4 ใช้ค่าอินเวอร์สทั้งหมดแทน
-1 ใด ๆโดยเปลี่ยน! = เป็น ^ โดย @ jonathan-allan
-1 โดยใช้ชุดโดย @ovs

Japtap -d! , 6 ไบต์

N¥U+ìx

ลองมัน

ดั้งเดิม 8 ไบต์

ส่งคืนหมายเลขอินพุตสำหรับความจริงหรือ0เท็จ หากเพียงอาร์เรย์ที่ว่างเปล่าเท่านั้นที่เป็นเท็จใน JavaScript อาจเป็น 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

เรติน่า , 55 ไบต์

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

ลองออนไลน์! ลิงค์มีกรณีทดสอบ คำอธิบาย:

.+
*

แปลงอินพุตxเป็น unary

Lv`_+

สร้างช่วงจากลงไปx1

_+
$&$.&

ต่อท้ายค่าทศนิยมของแต่ละnค่าเป็น unary

^_+
$&¶$&

xคัดสำเนา

\d
*

แปลงแต่ละทศนิยมหลักของการเอกจึงเพิ่มตัวเลขไปสำเนาที่มีอยู่ของnn

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

ตรวจสอบว่าxปรากฏในผลลัพธ์ใด ๆ

0

กลับผลลัพธ์

JavaScript (ES6), 52 51 ไบต์

บันทึกแล้ว 1 ไบต์ขอบคุณ @ l4m2

ผลตอบแทน0หรือ1

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

ลองออนไลน์!

Haskell , 63 58 ไบต์

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

ลองออนไลน์!

Perl 5 -a , 34 ไบต์

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

ลองออนไลน์!

Ruby , 38 ไบต์

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

ลองออนไลน์!

เรติน่า 24 ไบต์

.+
*

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

ลองออนไลน์!

อาจเป็น 18 ไบต์พร้อมอินพุตที่ให้เป็นเอกภาพ แต่คำตอบ Retina อื่น ๆ ก็ใช้ทศนิยมเช่นกันดังนั้นฉันคิดว่าการใช้ทศนิยมจะทำให้การเปรียบเทียบมีความยุติธรรม

คำอธิบาย

.+
*

แปลงอินพุตเป็น unary โดยใช้_เป็นตัวเลขหลัก

$.`¶$`

ที่แต่ละตำแหน่งในสตริง (เช่นเริ่มต้น, สิ้นสุด, และระหว่างอักขระทุกคู่), แทรก: $.`, ความยาวของคำนำหน้า (หรือตำแหน่งศูนย์ดัชนีของการแข่งขัน) ¶,, ตัวป้อนบรรทัด, ตัวนำ$`หน้า (เช่น การเป็นตัวแทนของตำแหน่งที่ไม่มีการทำดัชนี) เช่นถ้าอินพุทเป็น3และเราต้องการตัวแทนที่เป็นเอกภาพ___สิ่งนี้จะส่งผลให้:

0
_1
__2
___3
___

กล่าวอีกนัยหนึ่งเราจะได้หนึ่งบรรทัดสำหรับแต่ละหมายเลขตั้งแต่ 0 ถึงอินพุต (รวม) ซึ่งเก็บทั้งการแสดงค่าที่ไม่เป็นเอกภาพและทศนิยมของตัวเลขนั้น

\d
*

เราแปลงแต่ละหลักเป็นเอกซึ่งคำนวณผลรวมหลักในแต่ละบรรทัดอย่างมีประสิทธิภาพและเพิ่มไปยังตัวเลขเอง (ทั้งหมดเป็นเอกภาพ)

D`

ขจัดข้อมูลซ้ำซ้อน การทำเช่นนี้ไม่ได้เป็นการลบบรรทัดที่ซ้ำกัน แต่ล้างข้อมูลในบรรทัดที่ว่างเปล่า ดังนั้นถ้าตัวเลขใด ๆ จาก 0 ถึงอินพุตบวกผลรวมหลักของมันเท่ากับอินพุทบรรทัดสุดท้ายจะได้รับการเคลียร์ มิฉะนั้นบรรทัดสุดท้ายยังคงอยู่

.\z

ตรวจสอบว่ายังมีอักขระอยู่ในบรรทัดสุดท้ายหรือไม่ เราใช้ไม่ได้$เพราะนั่นตรงกับการป้อนบรรทัดต่อท้าย (ซึ่งตรงกับที่เราไม่ต้องการดู)

Bash + GNU Coreutils, 91 ไบต์

ส่งคืนความจริงหรือเท็จ

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

Kotlin , 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

เพิ่ม ++ , 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]

Elixir , 66 65 bytes

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

ลองออนไลน์!

Stax , 8 ไบต์

Å8avj╒Éπ

เรียกใช้และแก้ไขข้อบกพร่อง

คำอธิบาย

ASCII เทียบเท่า:

{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=เป็นโปรแกรม Stax ที่ส่งออกตัวเลขทั้งหมดที่ผลรวมของตัวเลขที่เพิ่มเข้ามานั้นเท่ากับอินพุต ตัวอย่างเช่นสำหรับ101ผลลัพธ์จะเป็น91และ100แต่ละคนในบรรทัดแยก

เรียกใช้และแก้ไขข้อบกพร่อง

Pyt , 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

J , 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.