এটা কি ডাবল কথা বলছে?

46

একটি ইন আগের চ্যালেঞ্জ আমি কোডটি গলফার জিজ্ঞাসা স্ট্রিং যা একটি স্ট্রিং প্রতিটি অক্ষর কপি উত্পাদন করতে। উদাহরণ স্বরূপ:

TThhiiss  iiss  ddoouubbllee  ssppeeaakk!!

এই চ্যালেঞ্জটি কেবল কোনও পাঠ্য ডাবল স্পিক স্ট্রিংয়ের সংজ্ঞা পূরণ করে কিনা তা সনাক্ত করা।

  • চরিত্রগুলির একটি এমনকি সংখ্যক আছে।
  • জোড়ায় বিভক্ত হয়ে গেলে প্রতিটি জুটি একই চরিত্রের দুটি নিয়ে গঠিত।

চ্যালেঞ্জ

  • এটি কোড গল্ফ, কয়েক বাইটে এটি করুন।
  • আপনার চয়ন করা কোনও ভাষা ব্যবহার করুন।
  • একটি অনলাইন দোভাষী এর একটি লিঙ্ক অন্তর্ভুক্ত করুন।
  • কোডটি কিছু পাঠ্য গ্রহণ করবে।
    • সরলতার জন্য, ইনপুটটিতে কেবল প্রিন্টযোগ্য ASCII অক্ষর থাকবে
  • এটি ইনপুট ডাবল স্পোক কিনা তা একটি ইঙ্গিত ফেরত দেবে। এটা হতে পারে:
    • একটি বুলিয়ান
    • স্ট্রিং ('সত্য', 'মিথ্যা', 'হ্যাঁ', 'না' ইত্যাদি)
    • পূর্ণসংখ্যা 0 বা 1

পরীক্ষার কেস:

  • আবা - মিথ্যা
  • আব্বা - মিথ্যা
  • aabb - সত্য
  • aaabb - মিথ্যা
  • tthhiiss - সত্য
  • ttthhhiiisss - মিথ্যা
code-golf  string  decision-problem 
— AJFaraday
সূত্র
6
দৈর্ঘ্যের ইনপুটগুলিতে <2 টির ক্ষেত্রে আমরা ত্রুটি করতে পারি?
— কোল
3
প্রস্তাবিত পরীক্ষার কেস: abbaযা মিথ্যা হওয়া উচিত
— জিউসেপ
2
প্রস্তাবিত পরীক্ষার কেস: aabbbbযা সত্যবাদী হওয়া উচিত
— খুলড্র্যাসেথ না'বাড়িয়া
2
@ ভাল ভাল, আমি স্ট্যান্ডার্ড I / O নিয়ে তর্ক করতে যাচ্ছি না
— এজেফারাডে
2
প্রস্তাবিত পরীক্ষার কেস: 0যা মিথ্যা হওয়া উচিত।
— 640 কেবি

উত্তর:

24

ব্রেনফাক , 20 বাইট

জো কিংকে ধন্যবাদ 1 বাইট সংরক্ষিত

+>,[>,[-<->]<[<],]<.

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

পঠনযোগ্য আউটপুট!

একবারে দুটি অক্ষর ইনপুট নেয় এবং কোনও জোড় না মিললে টেপের 1 থেকে দূরে সরে যায়। ইওএফ 0 হিসাবে গণ্য হয় এবং এভাবে স্বয়ংক্রিয়ভাবে পরিচালিত হয়।

স্ট্রিং ডাবল স্পিক না হলে আউটপুট একটি নাল বাইট, এবং যদি 0x01 হয়। পঠনযোগ্য সংস্করণ এগুলি 14 বাইট ব্যয়ে অক্ষর হিসাবে আউটপুট করে।

— Nitrodon
সূত্র
আমি যদি মন্তব্যগুলিকে কম করতে পারি তবে আমি উপরের মন্তব্যটিকে নীচে নামিয়ে দেব।
— এ _
@ পার্পেটুয়ালজে এ) এটি একটি জনপ্রিয় জনপ্রিয় এওসোলং, আমি বিশ্বাস করতে পারি না আপনি এরই মধ্যে এটি শুনেছেন না খ) এটি
— উত্সাহ
এসই বিধি অনুসারে রেডউলফ প্রোগ্র্যামগুলি, পোস্টটি সহায়ক হলে আপনার উচিৎ হওয়া উচিত এবং আমি এমন ভাষার নাম শেখাতে সাহায্য করি যা আমি কখনও শুনিনি। এছাড়াও, এটি একটি উত্তোলনের দাবিদার একটি দুর্দান্ত সমাধান।
— পের্পেটুয়ালজে
1
@ পার্পেটুয়ালজ একটি সম্মতি জানায় যে এটি একটি দুর্দান্ত সমাধান, তবে মজার নাম এবং বিরক্তিকর সমাধানগুলি (বেশিরভাগ বিএফ রূপগুলি) সহ প্রচুর এসোলেং রয়েছে
— রেডওয়ালফ প্রোগ্রামগুলি
17

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

Heda

ইনপুট একটি স্ট্রিং, একক কউউটেস দিয়ে আবদ্ধ। আউটপুট 0ডাবল স্পিক জন্য হয়, 1অন্যথায়।

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

ব্যাখ্যা

'TThhiiss iiss ddoouubbllee ssppeeaakk!!'উদাহরণ হিসাবে ইনপুট বিবেচনা করুন ।

H    % Push 2
     % STACK: 2
     % Implicit input (triggered because the next function requires two inputs): string 
     % STACK: 'TThhiiss  iiss  ddoouubbllee  ssppeeaakk!!', 2
e    % Reshape as a 2-column matrix of chars, in column-major order. Pads with char(0)
     % if needed. Note that char(0) cannot be present in the input
     % STACK: ['This is double speak!';
               'This is double speak!']
d    % Difference of each column
     % STACK: [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
a    % Any: gives 0 if and only if all elements are 0
     % STACK: 0
     % Implicit display
— লুইস মেন্ডো
সূত্র
12
উম ... "হেদা" কে? : ডি
— এরিক আউটগল্ফার
7
"হেদা" হ'ল জার্মান "হেই! আপনি!"
— কিউ ব্রুট
14

05 এ বি 1 ই , 6 5 2 বাইট

ιË

অক্ষরের তালিকা হিসাবে ইনপুট করুন।

@ শ্যাগির জ্যাপ উত্তরটি পোর্ট করে -3 বাইটস , তাই তাকে উর্ধ্বমুখী করা নিশ্চিত করুন!

এটি অনলাইনে চেষ্টা করুন বা আরও কয়েকটি পরীক্ষার কেস যাচাই করুন ।

ব্যাখ্যা:

ι   # Uninterleave the (implicit) input-list of characters
    #  i.e. ["t","t","t","t","e","e","s","s","t","t","!","!","!"]
    #   → [["t","t","e","s","t","!","!"],["t","t","e","s","t","!"]]
 Ë  # Check if both inner lists are equal
    #  → 0 (falsey)
    # (after which the result is output implicitly)
— কেভিন ক্রুইজসেন
সূত্র
10

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

(.)\1

^$

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

ব্যাখ্যা:

একই অক্ষরের সমস্ত জুড়ি সরান:

(.)\1

কোনও অক্ষর অবশিষ্ট নেই কিনা তা পরীক্ষা করুন:

^$
— কেভিন ক্রুইজসেন
সূত্র
1
আপনি ^$আপনার চূড়ান্ত পর্যায়ে হিসাবে ব্যবহার করে আরও একটি traditionalতিহ্যগত আউটপুট সরবরাহ করতে পারেন ।
— নিল
@ নীল আহ অবশ্যই, ধন্যবাদ! এটি প্রকৃতপক্ষে আরও ভাল দেখাচ্ছে। আমি সর্বদা মনে করি এটি falseসত্য এবং মিথ্যা হিসাবে আশ্চর্যজনক আউটপুট করা true(তবে এটি যদি বাইট সংরক্ষণ করে এবং এটি অনুমোদিত হয় তবে আমি এটি ব্যবহার করব)। ;) তবে এটি যেহেতু প্রত্যাশিত ফলাফলের ফলাফল হিসাবে সমান বাইটস সমাধান, এটি আরও ভাল this
— কেভিন ক্রুইজসেন
8

জেলি , 3 বাইট

ŒœE

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

— এরিক দ্য আউটগল্ফার
সূত্র
1
আরে আমি এই পছন্দ! একই লোলটি করতে আমার 80 মিনিট সময় লেগেছে, আমি "আরে এখন জেলি শিখি" এর মতো ছিলাম তখন আমি শিখেছি। আমি এই পোষ্ট সম্পর্কে ছিল কিন্তু যদি জেলি উত্তর ইতিমধ্যে ছিল লাগছিল ... এবং তারপর এই দেখে ^^ আমার ধাপ: ¹©s2L€=2Ạa®s2E€Ạ... ḢƝs2E€Ạ... কিন্তু আমি কি চেয়েছিলেন, এবং তারপর আমি দেখেছি পেতে পরিচালনা করতে পারেনি Œœতোমার
— ভি। কুর্তোইস
8

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

■◄┼$Δ

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

পদ্ধতি:

  • রান-দৈর্ঘ্যের গণনা করুন।
  • অ্যারের জিসিডি পান।
  • এমনকি?
— রিকার্সিভ
সূত্র
আহ, আপনি একটি প্যাক পেয়েছি। খুশী হলাম।
— খুলদ্রেশেথ না'বাড়িয়া
আমি এই অ্যালগরিদম পছন্দ!
— জোনাহ
6

পিএইচপি ,58 56 বাইট

function f($s){return!$s?:$s[0]==$s[1]&f(substr($s,2));}

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

একটি পুনরাবৃত্তি ফাংশন হিসাবে।

পিএইচপি ,61 56 52 বাইট

while(''<$l=$argn[$i++])$r|=$l!=$argn[$i++];echo!$r;

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

বা স্বতন্ত্র প্রোগ্রাম। ইনপুট স্ট্রিং এর মাধ্যমে STDIN, আউটপুট truthy( 1) এটি ডাবল স্পিক হলে এবং falsey( 0) যদি এটি ডাবল স্পিক না হয়।

-4 বাইট থেক্স থেকে @ নাইট 2 !

— 640KB
সূত্র
1
এটি নন-ডাবল স্পিক স্ট্রিংয়ের পাশাপাশি 1 টি আউটপুট প্রদর্শিত হবে।
— এজেফারাডে
@ এজেফারাডে এখনই চেষ্টা করুন - দ্বিগুণ কথা , দ্বিগুণ কথা নয়
— 640 কেবি
6

x86 মেশিন কোড, 9 7 বাইট

D1 E9       SHR  CX, 1          ; divide length in half 
AD          LODSW               ; load next two chars into AH/AL 
3A E0       CMP  AH, AL         ; compare AH and AL 
E1 FB       LOOPE -5            ; if equal, continue loop

ইনপুট স্ট্রিং ইন SI, ইনপুট স্ট্রিং দৈর্ঘ্য CX। ZFডাবল স্পিক হলে আউটপুট ।

বা সম্পূর্ণ পিসি ডস এক্সিকিউটেবল হিসাবে 14 বাইট

B4 01       MOV  AH, 01H        ; DOS read char from STDIN (with echo) 
CD 21       INT  21H            ; read first char into AL
92          XCHG DX, AX         ; put first char into DL
B4 08       MOV  AH, 08H        ; DOS read char from STDIN (no echo) 
CD 21       INT  21H            ; read second char into AL
3A C2       CMP  AL, DL         ; compare first and second char 
74 F3       JE   -13            ; if the same, continue loop 
C3          RET                 ; otherwise exit to DOS

STDINপাইপ বা ইন্টারেক্টিভ হয় ইনপুট মাধ্যমে হয়। একটি দ্বিগুণ অক্ষর সনাক্ত না হওয়া অবধি "ডি-ডাবলড" ইনপুটটি প্রতিধ্বনিত হবে, এমন বিন্দুটি প্রস্থান করবে (সম্ভবত I / O কিছুটা বাঁকানো নিয়ম করে তবে এটি কেবল একটি বোনাস উত্তর)।

এখানে চিত্র বর্ণনা লিখুন

ISDBL2.COM ব্যবহার করে তৈরি করুন এবং পরীক্ষা করুন xxd -r:

00000000: b401 cd21 92b4 08cd 213a c274 f3c3       ...!....!:.t..

আসল 24 বাইট সম্পূর্ণ পিসি ডস এক্সিকিউটেবল:

D1 EE       SHR  SI, 1          ; SI to DOS PSP (080H) 
AD          LODSW               ; load string length into AL 
D0 E8       SHR  AL, 1          ; divide length in half 
8A C8       MOV  CL, AL         ; put string length into BL 
        CLOOP: 
AD          LODSW               ; load next two chars into AH/AL 
3A E0       CMP  AH, AL         ; compare AH and AL 
E1 FB       LOOPE CLOOP         ; if equal, continue loop
        DONE: 
B8 0E59     MOV  AX, 0E59H      ; BIOS tty function in AH, 'Y' in AL 
74 02       JZ   DISP           ; if ZF, result was valid double 
B0 4E       MOV  AL, 'N'        ; if not, change output char to N 
        DISP: 
B4 0E       MOV  AH, 0EH 
CD 10       INT  10H 
C3          RET                 ; return to DOS

কমান্ড লাইন থেকে ইনপুট, 'Y'ডাবল যদি স্ক্রিনে আউটপুট , 'N'না হলে।

এখানে চিত্র বর্ণনা লিখুন

ISDBL.COM ব্যবহার করে এটি তৈরি করুন এবং পরীক্ষা করুন xxd -r:

00000000: d1ee add0 e88a c8ad 3ae0 e1fb b859 0e74  ........:....Y.t
00000010: 02b0 4eb4 0ecd 10c3                      ..N.....

ক্রেডিট:

  • -২ বাইট থেক্স থেকে @ এরিকএফ!
— 640KB
সূত্র
2
2 টি বাইট সংরক্ষণ / LOOPEপরিবর্তে ব্যবহার করার পরামর্শ দিন । JNZLOOP
— এরিকএফ
@ এরিকএফ, উজ্জ্বল! সম্পূর্ণরূপে যে সম্পর্কে ভুলে গেছি!
— 640 কেবি
6

লুয়া , 67 66 63 59 33 32 বাইট

-25 বাইট জিউসেপ্পে
-1 বাইট ধন্যবাদ ভ্যালকে ধন্যবাদ

print(#(...):gsub("(.)%1","")<1)

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

প্রতিটি দ্বিগুণ অক্ষর মুছে ফেলা হয়, তারপরে ফলাফল খালি কিনা তা পরীক্ষা করে দেখুন।

— HugoBDesigner
সূত্র
1
শুধু i:gsub("(.)%1","")এবং কেন চেক না i==""?
— জিউসেপ
1
এই 34 বাইট, সম্পূর্ণই নিশ্চিত না এটা বৈধ যেহেতু আমি অ্যাপ্লিকেশন Lua আগে কখনও লিখিত করেছি, কিন্তু এটা কাজ বলে মনে হচ্ছে।
— জিউসেপ
কোড গল্ফ স্ট্যাক এক্সচেঞ্জ যদিও আপনাকে স্বাগতম!
— জিউসেপ
আমি ধরে নিয়েছিলাম যে "(.)%1"নিজে থেকেই সংঘর্ষগুলি অন্তর্ভুক্ত রয়েছে, তবে এটি আমার কাছে ঘটেনি যে সমস্ত ক্যাপচারের জন্য একবার এটি প্রতিস্থাপনের দ্বারা যথেষ্ট হবে। আমি কি আপনার সমাধানটি বাস্তবায়ন করব বা আপনার নিজের উত্তর লিখতে হবে? এবং ধন্যবাদ!
— হুগোবি ডিজাইনার
1
ভাল যুক্তি! এক বাইট সংরক্ষণ করার জন্য arg[1]প্রতিস্থাপন করা (...)যেতে পারে।
— Val
5

জাভাস্ক্রিপ্ট, 28 বাইট

s=>s.every((x,y)=>x==s[y|1])

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

Wastl এর regex ব্যবহার করে 23 বাইট

s=>/^((.)\2)*$/.test(s)

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

— অলিভার
সূত্র
24 বাইট, তবে nullমিথ্যা বলে সত্যের জন্য একটি অ্যারে আউটপুট দেয় : এটি অনলাইনে চেষ্টা করুন!
— wastl
27 বাইটs=>!s.some((x,y)=>x>s[y|1])
— tsh
— অলিভার
5

হাস্কেল , 28 23 বাইট

f(x:y:z)|x==y=f z
f[]=1

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

খুব সোজা। ডাবল স্পিক কেবল ফাঁকা বা একটি পুনরাবৃত্তি চরিত্র ডাবল স্পিক করার জন্য চাপ দেয়।

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

— খুলদ্রেসেথ না'বাড়িয়া
সূত্র
4

ভি (ভিম) , 7 বাইট

Óˆ±
ø^$

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

Hexdump:

00000000: d388 b10a d85e 24                        .....^$

মাত্র দুটি রেজিেক্স ব্যাখ্যা:

Ó   " Remove all occurrences...
 ˆ  "   Any character
  ± "   Followed by itself
    "   This regex is actually just the compressed form of (.)\1
ø   " Count the number of matches
 ^$ "   An empty line
— ডিজেএমসিএমহেম
সূত্র
4

পাওয়ারশেল , 39 38 বাইট

!$($args|?{+$p*($p="$_"[$p-eq$_])};$p)

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

যেখানে $pআগের চর রয়েছে।

কোন পুনরাবৃত্তি , কোন রেজেক্স :) নেই। একটি স্প্ল্যাটিং স্ট্রিংয়ের মাধ্যমে চর-অ্যারে হিসাবে ইনপুট নেয় (টিআইও লিঙ্কটি দেখুন)।

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

for(;$b-eq$a-and$args){$a,$b,$args=$args}$b-eq$a

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

কোনও পুনরাবৃত্তি , কোনও রেজেক্স এবং কোনও পাইপ নেই: ডি। এটি একটি স্প্ল্যাটিং স্ট্রিংয়ের মাধ্যমে চর-অ্যারে হিসাবে ইনপুটও নেয়। এটি $b-eq$aপরিবর্তে $a-eq$bকোনও ক্ষেত্রে ব্যবহৃত হয় যখন সর্বশেষ চরটিতে # 0 কোড থাকে।

— mazzy
সূত্র
4

পাওয়ারশেল , 64 59 বাইট

filter f($n){$a,$b,$r=$n;$a-eq$b-and$(if($r){f $r}else{1})}

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

রিকার্সিভ ফাংশন, কোনও রেজেক্স নেই। এক- charঅ্যারে হিসাবে ইনপুট নেয় (টিআইও লিঙ্কটি দেখুন)। প্রথম দুটি উপাদান বন্ধ peels $aএবং $b, দোকানে বা অবশিষ্ট $r। যদি এখনও আমাদের কাছে উপাদানগুলি বাকী থাকে তবে পাশাপাশি পুনরাবৃত্তি করুন $a -eq $b। অন্যথায় শুধু পরীক্ষা করে দেখুন কিনা $a -eq $b। আউটপুট অন্তর্ভুক্ত।

-5 বাইট ধন্যবাদ ম্যাজি

— AdmBorkBork
সূত্র
1
— mazzy
1
@ ম্যামজি ধন্যবাদ! $বিবৃতি ব্লকের আগে আমি অনুপস্থিত ছিল এবং কেন এটি কাজ করছে না তা বুঝতে পারি না।
— অ্যাডমবর্কবার্ক
4

জুলিয়া 1.0 , 25 বাইট

s->s[1:2:end]==s[2:2:end]

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

— user3263164
সূত্র
3
এটা তোলে পরিবর্তে প্রতীক ব্যবহার করতে খাটো f, যেমন !a=...। বা কোনও বেনামি ফাংশন ব্যবহার করতে:s->...
— এইচ.পি.উইজ
হ্যাঁ আপনি ঠিক. আমি এটি ঠিক করে
— রেখেছি
4

জে , 13 11 10 বাইট

-:2#_2{.\]

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

-2 বাইট অ্যাডমকে ধন্যবাদ

-1 বাইট মাইল ধন্যবাদ

টিএলডিআর ব্যাখ্যা: ইনপুটটি কি অন্য প্রতিটি চরিত্রের ইনপুটটির দ্বিগুণ?

— দুর্ভাগ্যআনয়নকারী
সূত্র
— অ্যাডাম
-:2#_2{.\]অন্য বাইট সংরক্ষণ করা উচিত
— মাইল
খুব সুন্দর, ধন্যবাদ @ মাইলস
— জোনাহ
4

শেক্সপিয়ার প্রোগ্রামিং ল্যাঙ্গুয়েজ , 204 156 বাইট

-৪৪ বাইট জো কিংকে ধন্যবাদ (বেশিরভাগ আউটপুট পদ্ধতি পরিবর্তন করে)

A.Ajax,.Puck,.Act I:.Scene I:.[Exeunt][Enter Ajax and Puck]Ajax:Open mind.Puck:Open
mind.Is I worse zero?If soSpeak thy.Is you as big as I?If soLet usAct I.

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

ইনপুট ডাবল স্পিক হলে ত্রুটি সহ প্রস্থান করে এবং ডাবল স্পিক না হলে সতর্কতা সহ (যা ডিফল্টরূপে অনুমোদিত )।

— রবিন রাইডার
সূত্র
4

কেগ , 19 17 টি অক্ষর

?{!1<|=[|0.(_)]}1

ব্যাখ্যা:

?             # read input

{             # while
    !1<       # stack length greater than 1?
|             # end of while condition and beginning of while block
    =         # compare the 2 top values in the stack
    [         # if (the condition is the top of stack)
    |         # end of then block and beginning of else block
        0.    # output 0
        (_)   # clear stack (discard top of stack in for loop stack length times)
    ]         # end if
}             # end while

1             # stack is already empty, push a truthy value

              # implicitly output the stack content if there was no explicit output

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

— কর্মক্ষেত্রে মানুষ
সূত্র
3

আর , 53 34 বাইট

-19 বাইট জিউসেপ্পিকে ধন্যবাদ

function(a)gsub("(.)\\1","",a)==""

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

— রবার্ট এস।
সূত্র
1
আমি মনে করি gsub("(.)\\1","",a)==""কৌশলটিও করত; আবার অনেকে আবার একই রেজেস ব্যবহার করেন।
— জিউসেপ
@ জিউসেপ্পে এই পুরো রেজেক্স জিনিসটি আমার কাছে বেশ নতুন। ধন্যবাদ।
— রবার্ট এস
আর + পিআরআর আপনাকে এই উত্তর থেকে একটি 32-বাইটার তুচ্ছভাবে সংশোধন করে।
— খুলদ্রেশেথ না'বাড়িয়া
2
যদি function(a)!sum(rle(a)$l%%2)
— ইনপুটটিকে
3

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

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

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

ভ্রান্তের জন্য আউটপুট 1 এবং সত্যের জন্য 0

পঠনযোগ্য সংস্করণ:

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

আমার কাছে এটি ছিল:

{
    ({}[{}])

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

যা 10 বাইট লম্বা।

— ডিজেএমসিএমহেম
সূত্র
0 / নন0 কি বুলিয়ান হিসাবে গণনা করে? যদি তা হয় তবে আপনি এটি করতে পারেন({({}[{}]){{}}{}})
— রিলি
3
"পাঠযোগ্য সংস্করণ" -এ লোল - এটি খুব পঠনযোগ্য: পি
— কুইন
@ রিলে না এটি বৈধ নয়। যাইহোক, আমি আরও ভাল কৌশল খুঁজে পেয়েছি।
— DJMcMayhem
@ কুইন আমার কাছে পঠনযোগ্য মনে হচ্ছে: পি
— ডিজেএমসিএমহেম
3

জাভাস্ক্রিপ্ট, 26 23 বাইট

s=>/^((.)\2)+$/.test(s)

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

পুনরাবৃত্তির সমাধান, 30 বাইট

0 বাইট ব্যয়ে একটি স্থির করার জন্য আরনাউল্ডকে ধন্যবাদ।

f=([x,y,...s])=>x?x==y&f(s):!y

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

— রোমশ
সূত্র
— আর্নল্ড
ধন্যবাদ, @ আরনাউল্ড :)
— শেগি
@ অলিভার, বাজে; আমার পোস্ট করার আগে কেবল আপনার আসল সমাধানটি দেখেছিল। আপনি আমার আগে 23 এ পৌঁছে যদি আমি 26 এ ফিরে যেতে খুশি - আমাকে জানান।
— শেগি
3

Zsh , 36 বাইট

পূর্ববর্তী চ্যালেঞ্জের আমার Zsh উত্তরটি এখানে পাওয়া যাবে।

দ্বিগুণ না বললে সত্যবাদী (0) এবং ডাবল কথা বললে মিথ্যা (1) প্রস্থান করা হয় । (একটি মন্তব্যে অনুমোদিত হিসাবে।)

for a b (${(s::)1})r+=${a#$b}
[ $r ]
for a b (${(s::)1})r+=${a#$b}
         ${(s::)1}             # split $1 characterwise
for a b (         )            # take pairs of characters from ${(s::)1}, assign to $a and $b
                      ${a   }  # first character
                      ${ #$b}  # remove second character as prefix
                   r+=         # append to $r as string
[ $r ]                         # exit truthy if $r is non-empty

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

— GammaFunction
সূত্র
3

প্রোলোগ (এসডাব্লুআই) , 60 45 বাইট

অবিকৃত স্ট্রিং ধন্যবাদ

+[].
+[A,A|T]:- +T.
-X:-string_chars(X,Y),+Y.

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

এটিকে স্ট্রিং থেকে পরমাণুর ধরণের ধরণের স্কোরকে তালিকায় রূপান্তর করা, তবে ভাল ...

— qwertxzy
সূত্র
1
— অবিকৃত স্ট্রিং
1
... দেখে মনে হচ্ছে আপনি এর atom_charsপরিবর্তে ব্যবহার করতেও পারেন string_chars, যদিও আপনি ইনপুট হিসাবে স্ট্রিং নিচ্ছেন এবং কোনও পরমাণু নয়। তবে এটি অপ্রাসঙ্গিক হতে পারে যদি আপনি ব্যাকটিক-বিস্মৃত স্ট্রিং নিতে পারেন - যা চর কোডগুলির একটি তালিকা।
— স্ট্রিং
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.