এই সংখ্যাটি কি পুনরায় ডিজিটিট?

33

চ্যালেঞ্জ

একটি পুনরুক্তি হ'ল একটি অ-নেতিবাচক পূর্ণসংখ্যা যার অঙ্কগুলি সমস্ত সমান।

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

ইনপুটটি ইতিবাচক পূর্ণসংখ্যা হিসাবে গ্যারান্টিযুক্ত ।

দায়মুক্তি সহ বেস 10 এ স্ট্রিং প্রতিনিধিত্ব হিসাবে আপনি ইনপুট নিতে এবং ব্যবহার করতে পারেন।

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

এগুলি 1000 এর নীচে সমস্ত repd Digits।

1
2
3
4
5
6
7
8
9
11
22
33
44
55
66
77
88
99
111
222
333
444
555
666
777
888
999

ওএআইএস-তে আরও বড় তালিকা পাওয়া যাবে ।

জয়লাভ

বাইটের মধ্যে সংক্ষিপ্ততম কোডটি জয়ী। এর অর্থ এই নয় যে ভার্ভোজ ভাষায় চতুর উত্তরগুলি স্বাগত হবে না।

code-golf  math  number  arithmetic  decision-problem 
— আইদান এফ পিয়ার্স
সূত্র
2
— ফাঁস নুন
@ আইডানএফ.পিয়ার্স ইনপুটটি সবচেয়ে বড় সংখ্যাটি কী হবে?
— স্টিভেস্টেল

উত্তর:

21

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

=

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

এটি পূর্ণসংখ্যার উপর কাজ করে।

থেকে src/predicates.pl#L1151:

brachylog_equal('integer':0, 'integer':0, 'integer':0).
brachylog_equal('integer':0, 'integer':I, 'integer':I) :-
    H #\= 0,
    integer_value('integer':_:[H|T], I),
    brachylog_equal('integer':0, [H|T], [H|T]).
— ফুটো নুন
সূত্র
আমি এটিকে গ্রহণ করার সিদ্ধান্ত নিয়েছি কারণ এটি প্রাথমিকতম 1-বাইট জমা দেওয়া।
— আইডান এফ পিয়ার্স
19

সি (জিসিসি) , 33 30 29 বাইট

f(n){n=n%100%11?9/n:f(n/10);}

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

— ডেনিস
সূত্র
পরিবর্তে পুনরাবৃত্তি এবং অ্যাসাইনমেন্টের সাথে খুব সুন্দর কৌশল return(মনে করুন আমি আমার উত্তরটির উত্তর চুরি করব :))।
— ডোরকনবব
@ ডুরকনব এগিয়ে যান :) আপনাকে যদিও একটি সংকলক নির্দিষ্ট করতে হবে; আমি আশা করি এটি কেবলমাত্র বেশিরভাগ জিসিসি / টিসিসি হবে।
— ডেনিস
আপনি কী আগেই জানতেন যে জিসিসি সহ -O0চূড়ান্ত ফলাফলটি nঠিক থেকে লিখবে eax, যাতে এটির ফেরতের মান তৈরি করতে পারে? আপনি কীভাবে জানতেন যে এটি কাজ করবে তা আপনি যুক্তি দিয়ে ব্যাখ্যা করতে পারেন?
— রুসলান
@ রুসলান আমি নিশ্চিত না কেন জিসিসি এইরকম আচরণ করে, তবে কোনও ফাংশনের অভ্যন্তরে শেষ পরিবর্তনশীল অ্যাসাইনমেন্টটি প্রায়শই বেশি বেশি পরিমাণে ইক্সে সক্রিয় হয় । যদি আমার অনুমান করতে হয় তবে আমি বলব এটি কারণ এটি return nএকটি ন্যাপ হতে পারে, এবং যদি আপনি ফলাফলটি ফেরত না যান তবে কোনও ফাংশন শেষে কোনও স্থানীয় ভেরিয়েবলকে অর্পণ করার কোনও কারণ নেই।
— ডেনিস
9

ব্যবসায়িক কাজে ব্যবহৃত এক বিশেষ ধরনের কম্পিউটার ভাষা , ১৩৯ বাইটিস

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

IF A = ALL '1' OR ALL '2' OR ALL '3' OR ALL '4' OR ALL '5' OR
ALL '6' OR ALL '7' OR ALL '8' OR ALL '9' DISPLAY "TRUE" ELSE   
DISPLAY "FALSE".

এটিকে পিক 9 (4) হিসাবে সংজ্ঞায়িত করা হয়।

— SaggingRufus
সূত্র
2
আপনি পরিবর্তন করে এই গলফ TRUEএবং FALSEযথাক্রমে 1 এবং 0 তে
— coinheringaahing caird
6

পাইথন 3, 25, 24 19 বাইট।

len({*input()})>1>t

একটি স্টিডিন => ত্রুটি কোড বৈকল্পিক।

এটির পুনরায় ডিজিট থাকলে ত্রুটি কোড 0 প্রদান করে - বা ব্যর্থতায় একটি ত্রুটি।

মন্তব্যগুলিতে আমাকে সহায়তা করার জন্য ডেনিসকে ধন্যবাদ।

— ছায়া
সূত্র
যেহেতু প্রস্থান কোড 0 সাফল্যের ইঙ্গিত দেয়, তাই আমি মনে করি আপনার >1পরিবর্তে পরীক্ষা করা উচিত <2। প্রকৃত ত্রুটি উত্থাপন exitবিটিডব্লিউ ব্যবহারের চেয়ে কম হবে ।
— ডেনিস
আমি তা দেখে বিস্মিত হলাম. চ্যালেঞ্জটি বলেছে "সত্যবাদী মান"। আমি ত্রুটি বাড়াতে এটি পরিবর্তন করব।
— ছায়া
1
হ্যাঁ, if python3 repdigit.py; then echo truthy; else echo falsy; fiআউট সংজ্ঞা অনুসারে কাজ করতে হবে, সুতরাং 0 সত্যবাদী এবং অন্য সব কিছু মিথ্যা।
— ডেনিস
এটা বোধগম্য. ঠিক আছে আমিও সেই পরিবর্তন আনব।
— ছায়া
2
@ আর্ক 676 ইউনারি *একটি পুনরাবৃত্তযোগ্যকে প্যাক করে । উদাহরণস্বরূপ, {*'123'}সেটটি উত্পন্ন করে {'1','2','3'}।
— ডেনিস
6

গণিত, 27 বাইট

AtomQ@Log10[9#/#~Mod~10+1]&

এটি মারধর করে না Equal@@IntegerDigits@#&, তবে এটি অন্যান্য গাণিতিক-ভিত্তিক গণিতের সমাধানকে মারধর করে।

পুনঃনামাগুলি হ'ল n = d (10 মি -1) / 9 ফর্মের যেখানে এম সংখ্যার সংখ্যা এবং ডি পুনরাবৃত্তি সংখ্যা । আমরা পুনরুদ্ধার করতে পারেন ঘ থেকে এন 10 ফরমের (যদি এটি একটি প্রতিনিধির অঙ্ক, এটি কারণ শেষের ডিজিটটি হবে গ্রহণ করে ঘ )। তাই আমরা ঠিক এই নতুন করে সাজানো পারেন লগ ইন করুন মি = 10 (9 N / (ঢ% 10) +1) এবং চেক কিনা মি একটি পূর্ণসংখ্যা।

— মার্টিন ইন্ডার
সূত্র
5

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

all=<<(==).head

এটি অনলাইন চেষ্টা করুন!স্ট্রিং ইনপুট নেয়।

সমান \s->all(==head s)s। সংকীর্ণভাবে বিকল্পগুলি মারধর:

f s=all(==s!!0)s
f s=s==(s!!0<$s)
f(h:t)=all(==h)t
f(h:t)=(h<$t)==t
f s=(s<*s)==(s*>s)
f(h:t)=h:t==t++[h]
— xnor
সূত্র
f s=(s<*s)==(s*>s)একটি খুব আকর্ষণীয় ধারণা, আমি <*আগে এই আচরণ সম্পর্কে সচেতন ছিল না ।
— লাইকনি
5

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

f(char*s){s=!s[strspn(s,s+strlen(s)-1)];}

এটি এমন একটি ফাংশন যা 1ইনপুটটিকে স্ট্রিং হিসাবে গ্রহণ করে এবং যদি এটি কোনও পুনরুক্তি হয় এবং 0অন্যথায় ফিরে আসে ।

এটি ব্যবহার করে এটি করে strspn ফাংশনটি করে, যা দুটি স্ট্রিং নেয় এবং দ্বিতীয় স্ট্রিং থেকে কেবলমাত্র অক্ষরের সমন্বয়ে প্রথম স্ট্রিংয়ের দীর্ঘতম উপসর্গের দৈর্ঘ্য দেয়। এখানে প্রথম স্ট্রিংটি ইনপুট, এবং দ্বিতীয় স্ট্রিংটি ইনপুটটির শেষ অঙ্ক, যা ইনপুট স্ট্রিংয়ের শেষ অক্ষরটিতে একটি পয়েন্টারটি পাস করে প্রাপ্ত।

যদি ইনপুটটি কোনও পুনঃ ডিজিট হয়, তারপরে কল করার ফলাফল strspnহবে strlen(s)। তারপরে, ইনডেক্সিং sএকটি নাল বাইট ফিরে আসবে যদি এটি ক্ষেত্রে ( str[strlen(str)]সর্বদা হয় \0) হয় বা প্রথম সংখ্যাটি না হয় যা শেষ অঙ্কের সাথে মেলে না। সঙ্গে এই negating !কিনা ফলাফলs প্রতিনিধিত্ব করে ।

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

@ ডেনিসকে অপ্রত্যাশিতভাবে তার অসীম চিত্তাকর্ষক উত্তরের মাধ্যমে আমাকে 4 টি বাইট সাশ্রয় করে -পরিবর্তে-ফেরতের কৌশল সম্পর্কে স্মরণ করিয়ে দেওয়ার জন্য ধন্যবাদ !

— ডোরকনব
সূত্র
আপনি এটিকে আরও কিছুটা ছোট করে এড়াতে strlenএবং এ থেকে একটি নতুন স্ট্রিং তৈরি করে *s: c;f(char*s){c=*s;c=!s[strspn(s,&c)];}37 এর জন্য
— এইচডিভি
5

পিএইচপি, 25 28 25

<?=!chop($argn,$argn[0]);

প্রথমটির সমান ডান থেকে সমস্ত অক্ষর সরিয়ে ফেলুন এবং সমস্ত অক্ষর অপসারণ করা থাকলে মুদ্রণ করুন 1।

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

আর, 31 বাইট

function(x)grepl("^(.)\\1*$",x)

এই ফাংশনগুলি স্ট্রিং ইনপুটগুলির সাথে কাজ করে এবং ইনপুটটি পুনরায় ডিজিট কিনা তা নির্ধারণ করার জন্য একটি নিয়মিত অভিব্যক্তি ব্যবহার করে।

উদাহরণ

> f <- function(x)grepl("^(.)\\1*$",x)
> x <- c("1", "2", "11", "12", "100", "121", "333")
> f(x)
[1]  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE
— সোভেন হোহেনস্টেইন
সূত্র
ফাংশন (x) এর থেকে স্ক্যান ব্যবহার (, '') tio.run/##K/r/P70otSBHQylOQ08zJsZQS0VJpzg5MU9DR11dU/O/paXlfwA পাল্টানোর দ্বারা 28 বাইট
— Sumner18
5

/// , 110 বাইট

/11/1//22/2//33/3//44/4//55/5//66/6//77/7//88/8//99/9//1/.//2/.//3/.//4/.//5/.//6/.//7/.//8/.//9/.//T..///.//T

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

/// ভাষার সত্য ও মিথ্যা সম্পর্কে কোনও ধারণা নেই, সুতরাং এই ইনপুটটি পুনরায় ডিজিট করা হলে "T" কে আউটপুট দেয় এবং ইনপুটটি যদি পুনরায় ডিজিট না হয় তবে কোনও অক্ষর আউটপুট দেয় না।

— ট্যানার সোয়েট
সূত্র
4

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

@(s)s==s(1)

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

স্ট্রিং হিসাবে ইনপুট নেয়।

এটি প্রথম অক্ষরের সাথে সমতার জন্য সমস্ত অক্ষর পরীক্ষা করে। যদি সমস্ত সমান হয় তবে ফলাফলটি কেবলমাত্র 1(অক্টাভেতে সত্য) সহ একটি ভেক্টর হবে, অন্যথায় কমপক্ষে একটি 0(অক্টাভেতে মিথ্যা) থাকবে। এখানে একটি প্রমাণ ।

— স্টিও গ্রিফিন
সূত্র
all(...)সত্যবাদী / মিথ্যা মান আউটপুট পেতে আপনার এটিকে মোড়ানো দরকার হবে না ?
— টম কার্পেন্টার
আপনি প্রমাণ পরীক্ষা করেছেন? কোডটির এই অংশটি হ'ল পিপিসিজি-তে সত্য / মিথ্যা সংজ্ঞা (মেটা সম্মতি)।
— স্টিভি গ্রিফিন
4

গ্রেপ, 17 বাইট

grep -xP '(.)\1*'

তার প্রথম চরিত্রের পুনরাবৃত্তি যে কোনও স্ট্রিংয়ের সাথে মেলে।

— টবির গতি
সূত্র
4

সি #, 42 33 28 বাইট

i=>i.Replace(i[0]+"","")==""

i একটি স্ট্রিং হতে হবে।

@ লেথালকোডারকে অনেক ধন্যবাদ জানাই

— LiefdeWen
সূত্র
2
i[0].ToString()সংক্ষিপ্ত করা যেতে পারে i[0]+"", <1চেয়ে কম ==0।
— TheLethalCoder
1
এছাড়াও .Length<1শুধু হতে পারে==""
— TheLethalCoder
3

ব্রেনল্ফ , 6 বাইট

iul1-n

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

দুর্ভাগ্যক্রমে, কমান্ডলাইন আরোগুলি থেকে ব্রেনলফের অন্তর্নিহিত ইনপুট কোনও স্ট্রিং হিসাবে সমস্ত অঙ্কের ইনপুট গ্রহণ করতে পারে না, এটি সর্বদা এটি একটি সংখ্যায় ফেলে দেবে, সুতরাং পরিবর্তে সমাধানটি এসটিডিআইএন এর মাধ্যমে পাস করা হবে যা এসটিডিএন পড়ার জন্য 1 বাইট যুক্ত করে ( i)

ব্যাখ্যা:

iul1-n
i       Read from STDIN as string, push each codepoint to stack
 u      Remove duplicates from stack
  l     Push length of stack
   1-   Subtract 1
     n  Boolean negate, replace each item on stack with 1 if it is a python falsey value
        replace each item on stack with 0 if it is a python truthy value
        Implicit output of last item on stack

এর পরে u, স্ট্যাকের দৈর্ঘ্য ইনপুটটিতে স্বতন্ত্র অক্ষরের সংখ্যার সমান হয়, 1 বিয়োগের অর্থ 0হ'ল যদি 0কেবলমাত্র ইনপুটটিতে 1 টি অনন্য অক্ষর থাকে তবে পাইথনের একমাত্র ভুয়া সংখ্যা, তাই এর সাথে nপ্রতিস্থাপন করা হবে , এবং অন্য সব কিছু দিয়ে ।010

— স্কিডদেব
সূত্র
3

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

নীলকে ধন্যবাদ 2 বাইট সংরক্ষণ করা

কোনও পূর্ণসংখ্যা বা স্ট্রিং হিসাবে ইনপুট নেয়। একটি বুলিয়ান ফেরত দেয়।

n=>/^(.)\1*$/.test(n)

ডেমো

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

— Arnauld
সূত্র
2 বাইট সংরক্ষণের testপরিবর্তে ব্যবহার করছেন না !!exec?
— নীল
(যদিও, কেবলমাত্র একটি স্ট্রিং ইনপুট জন্য, পিএইচপি উত্তর পোর্ট করা আরও ছোট is)
— নীল
@ নীল আমি জানি না আমি কী ভাবছিলাম। ধন্যবাদ!
— আর্নল্ড
3

ওহম , 4 বাইট

Ul2<

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

ব্যাখ্যা

 Ul2<
 U    # Push uniquified input
  l   # Length
   2< # Is it smaller than 2?
— Datboi
সূত্র
আমার মনে হয় Ul≤কাজ করা উচিত।
— ক্রিস্টোফ
@ ক্রিসটফ ইয়ে আমার কাছে এটি ছিল তবে আমি নিশ্চিত ছিলাম না যে 0 টি সত্যবাদী মান হিসাবে গণ্য হয় কিনা। (এই কোডগল্ফ জিনিসটিতে বেশ নতুন ^^)
— ডেটবোই
আহ! 0 অভিশাপটি মিথ্যা এবং অন্য সমস্ত সংখ্যা সত্য। আমি কেবল লক্ষ্য করেছি যে এই চ্যালেঞ্জের জন্য আমাদের ঠিক বিপরীত প্রয়োজন (প্রায়শই আমাদের যতক্ষণ না আমরা কেসটি সত্য এবং কোনটি মিথ্যা, তা ঘোষণা করার আগেই আমাদের অদলবদল করার অনুমতি দেওয়া হয়)। সত্য দ্বারা সংজ্ঞায়িত করা হয় "একটি ব্রাঞ্চ নেবে"।
— ক্রিস্টোফ
Ul1Eএছাড়াও কাজ করা উচিত (যদিও আমি
— ওহমকে
3

এপিএল, 5 বাইট

2 ক্রিটিক্সিলিথসকে ধন্যবাদ বাইট সংরক্ষণ করেছে

⍕≡1⌽⍕

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

— ঊরীয়েল
সূত্র
আপনি ট্রেন ব্যবহার করে 5 বাইটের 7-বাইট সমাধানটি গল্ফ করতে পারেন ⊢≡1⌽⊢।
— ক্রিটসি লিথোস
@ ক্রিটিক্সিলিথোস ধন্যবাদ!
— উরিল
প্রতিস্থাপন ⊢সঙ্গে ⍕উভয় স্ট্রিং এবং সংখ্যার হ্যান্ডেল করতে।
— অ্যাডম
@ আদম ধন্যবাদ! আমি অঙ্কগুলির অ্যারে পাওয়ার উপায় হিসাবে ফর্ম্যাটিংয়ের কথা ভাবিনি।
— উরিল
3

জাভা, 21 বাইট:

l->l.toSet().size()<2

lএকটি হল MutableList<Character>অন্ধকার সংগ্রহ থেকে।

— নাথান মেরিল
সূত্র
1
lএকটি CharAdapter হতে পারে।
— ডোনাল্ড রাবাব
@ ডোনাল্ডআরব অওহ, আমি এই ক্লাসটি কখনও দেখিনি। ভাল লাগছে।
— নাথান মেরিল
এখানে কোডপয়েন্টএডাপ্টার এবং কোডপয়েন্টলিস্টও রয়েছে।
— ডোনাল্ড রাব
1
@ ডোনাল্ডআরব আমি গ্রহগ্রহের সংগ্রহগুলি বেশ খানিকটা ব্যবহার করি তবে আমি সর্বদা মান তালিকা / মানচিত্র / সেট সংগ্রহের বাইরে কিছু খুঁজে পেতে লড়াই করি। আপনার জ্ঞানটি কি লাইব্রেরিগুলির বিকাশের উপর ভিত্তি করে, বা অন্য কোথাও (জাভাদোক বাদে) ইসি প্রদত্ত সমস্ত কিছুর জন্য আরও ভাল রেফারেন্স খুঁজে পেতে পারি?
— নাথান মেরিল
শুনে খুশি হলাম. আমি কাঠামোর প্রতিশ্রুতিবদ্ধ ... আমি এই বিশেষ স্ট্রিং সম্পর্কিত ক্লাস এক বছর বা আরও আগে লিখেছি। একটি রেফারেন্স গাইড রয়েছে যা সম্পর্কে অনেক লোক জানেন না। গ্রন্থাগারের বৈশিষ্ট্যগুলির আধিক্যগুলি শিখতে এবং নেভিগেট করতে লোকেরা সাহায্য করতে আমি সম্প্রতি একসাথে রেখেছি এমন একটি মানচিত্র-মানচিত্র রয়েছে। এটি রেফার টোসির শেষ লিঙ্ক। গাইড। github.com/eclipse/eclipse-collections/blob/master/docs/…
— ডোনাল্ড
3

কোটলিন , 28 19 বাইট

{it.toSet().size<2}

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

Stringকারণ হিসাবে ইনপুট নেয়

দায়মুক্তি সহ বেস 10 এ স্ট্রিং প্রতিনিধিত্ব হিসাবে আপনি ইনপুট নিতে এবং ব্যবহার করতে পারেন।

ব্যাখ্যা

{
    it.toSet()     // create a Set (collection with only unique entries)
                   // out of the characters of this string
        .size < 2  // not a repdigit if the set only has one entry
}

এটি যদি লাগে তবে আপনি এটি পছন্দ করেন না String, আপনার 24 বাইটেরInt জন্য একটি লাগতে পারে ।

{(""+it).toSet().size<2}
— শামুক_
সূত্র
3

Regex (ECMAScript), 31 বাইট

^(x{0,9})((x+)\3{8}(?=\3$)\1)*$

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

গণিতের রেজিজেসগুলির জন্য যথারীতি অনারীতে ইনপুট নেয় (লক্ষ্য করুন যে দশমিক ইনপুট সহ সমস্যাটি নগণ্য: ঠিক ^(.)\1*$)।

ব্যাখ্যা:

^(x{0,9})           # \1 = candidate digit, N -= \1
(                   # Loop the following:
  (x+)\3{8}(?=\3$)  # N /= 10 (fails and backtracks if N isn’t a multiple of 10)
  \1                # N -= \1
)* $                # End loop, assert N = 0
— গ্রিমি
সূত্র
— ডেডকোড
@ ডেডকোড ওফস আমি এটিকে রাখতে ভুলে গেছি, ধন্যবাদ!
— গ্রিমি
2

নিম , ২ বাইট

𝐐

সহজভাবে পরীক্ষা করে দেখুন যে সমস্ত উপাদান সমান।

বিল্টিন ছাড়া, 2 বাইট:

𝐮𝐥

ব্যাখ্যা:

𝐮     Calculate unique digits
 𝐥    Get the length

এটি কেবল কারণেই কাজ করে 1 নিমকে সত্যবাদী বলে মনে করা হয় এবং অন্য সমস্ত কিছু মিথ্যা is

বিকল্পভাবে, 4 বাইট জন্য:

𝐮𝐣μ𝕃

ব্যাখ্যা:

𝐮      Calculate unique digits
 𝐣      Join list into an integer
   𝕃   Check that is is less than
  μ    Ten.

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

— Okx
সূত্র
2

সি, 38 বাইট

f(char*s){return*s^s[1]?!s[1]:f(s+1);}

পুনরাবৃত্তভাবে একটি স্ট্রিং হাঁটা। যদি প্রথম দুটি অক্ষর আলাদা হয় ( *s^s[1]) তবে আমরা স্ট্রিং ( !s[1]) এর শেষে থাকলেই কেবলমাত্র সফল হই অন্যথায় আমরা পরের অবস্থানে পরীক্ষার পুনরাবৃত্তি করি (f(s+1) ) ।

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

#include <stdio.h>
int main(int argc, char **argv)
{
    while (*++argv)
        printf("%s: %s\n", *argv, f(*argv)?"yes":"no");
}
— টবির গতি
সূত্র
2

জাভা, 38 33 23 বাইট

n->n.matches("(.)\\1*")

n ইহা একটি String প্রাকৃতিকভাবে।

মনে রাখবেন যে ^...$রেগেক্সে কোনও প্রয়োজন নেই কারণ এটি স্বয়ংক্রিয়ভাবে সঠিক মিলের জন্য ব্যবহৃত হয় (যেমনmatch স্ট্রিংয়ের সন্ধানের তুলনায় পদ্ধতি ) ।

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

সংরক্ষণ

  • -5 বাইট: ব্যবহৃত String যেহেতু "আপনি দায়বদ্ধতার সাথে স্ট্রিং হিসাবে ইনপুট নিতে এবং ব্যবহার করতে পারেন।"
  • -10 বাইট: রেজেক্স স্পষ্টতই ভাল ফিট।
— অলিভিয়ার গ্রাগোয়ার
সূত্র
এটি matchesপ্রয়োজনীয় স্ট্রিংয়ের সাথে ^$মিলে না বলে প্রয়োজনীয়তার বিষয়ে ব্যাখ্যা সহ এই সঠিক সমাধানটি পোস্ট করতে চলেছে। সুতরাং আমার কাছ থেকে একটি নির্দিষ্ট +1। ;)
— কেভিন ক্রুইজসেন
2

কিউবিক্স , 15 বাইট

uOn@ii?-?;.$@<_

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

    u O
    n @
i i ? - ? ; . $
@ < _ . . . . .
    . .
    . .

এটি চালান দেখুন

সত্যের জন্য আউটপুট 1 এবং অসত্যের জন্য কিছুই নয়

ইনপুটটিতে একবারে একটি অক্ষর খুব সহজেই পড়া পঠন করা হয়। এটি বর্তমানের চরিত্রটিকে পূর্বের থেকে দূরে নিয়ে যায়। যদি শূন্যহীন ফলাফল হয় তবে তা অবিলম্বে থামবে। অন্যথায় এটি EOI অবধি ইনপুট এবং তুলনা চালিয়ে যায়। EOI (-1) এ, উপেক্ষা করুন এবং প্রস্থান করুন

— MickyT
সূত্র
2

কিউব্যাসিক 4.5, 55 বাইট

INPUT a
FOR x=1TO LEN(STR$(a))
c=c*10+1
NEXT
?a MOD c=0

আমি এটি ম্যাথ! ফর-লুপ ইনপুটটিতে অঙ্কের সংখ্যা পরীক্ষা করে তারপরে তৈরি করেc , যা ইনপুটটির সমান দৈর্ঘ্যের 1 এর সিরিজ। এর পরে একটি সংখ্যা পুনরায় ডিজিট করা হয় যদি এটি এক-স্ট্রিং == 0 কে মডিউল করে।

এটি অনলাইন চেষ্টা করুন! নোট করুন যে অনলাইন দোভাষীটি কিছুটা কৌতূহলযুক্ত এবং আমাকে কয়েকটি বক্তব্য লিখতে হয়েছিল যে ডস-ভিত্তিক কিউবাসিক আইডিই স্বয়ংক্রিয়ভাবে প্রসারিত হবে।

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