সিক্সার্স ক্রমের প্রথম ঘটনা First

Question

সিক্সার্স ক্রম একটি নাম যে ক্রম দেওয়া যেতে পারে A087409 । আমি একটি নম্বর ফাইলের ভিডিওতে এই ক্রমটি সম্পর্কে শিখেছি এবং এটি নিম্নলিখিত হিসাবে নির্মিত হতে পারে:

প্রথমে বেস 10 তে লিখিত 6 এর গুণকটি নিন:

6, 12, 18, 24, 30, 36, ...

এর পরে, সংখ্যাগুলিকে অঙ্কের প্রবাহে যুক্ত করুন:

61218243036...

অবশেষে, স্ট্রিমটিকে জোড়গুলিতে পুনরায় গোষ্ঠী করুন এবং প্রতিটিকে একটি পূর্ণসংখ্যা হিসাবে ব্যাখ্যা করুন:

61, 21, 82, 43, 3, ...

যেহেতু আমরা সংখ্যাগুলিকে জোড়ায় ভাগ করছি, ক্রমের সর্বোচ্চ সংখ্যা হবে 99 এবং এটি দেখা যাচ্ছে যে 100-এরও কম সমস্ত অ-নেতিবাচক পূর্ণসংখ্যাগুলি ক্রমটিতে প্রতিনিধিত্ব করা হয়েছে। এই চ্যালেঞ্জটি সিক্সার্স ক্রমের কোনও সংখ্যার প্রথম উদাহরণের সূচকটি খুঁজে পাওয়া find

ইনপুট

ব্যাপ্তির মধ্যে একটি পূর্ণসংখ্যা [0-99] । আপনার এই সীমাটির বাইরে সংখ্যার জন্য অ্যাকাউন্ট করার দরকার নেই এবং এই জাতীয় কোনও ইনপুট দেওয়া থাকলে আপনার সমাধানের কোনও আচরণ থাকতে পারে।

আউটপুট

সিক্সার্স ক্রমের প্রথম ইনপুট সংখ্যার সূচক। এটি 0- বা 1-ইনডেক্সড হতে পারে; আপনি আপনার উত্তরে যা ব্যবহার করছেন তা দয়া করে বলুন।

বিধি

• পরিচিতিতে উল্লিখিত ক্রমটি উত্পন্ন করার পদ্ধতিটি কেবল উদাহরণস্বরূপ, আপনি যতক্ষণ পছন্দ পছন্দ ততক্ষণ যে কোনও পদ্ধতি ব্যবহার করতে পারেন।
• আপনি সম্পূর্ণ প্রোগ্রাম বা ফাংশন জমা দিতে পারেন।
• ইনপুট এবং আউটপুট কোনও বুদ্ধিমান পদ্ধতি অনুমোদিত allowed
• স্ট্যান্ডার্ড লুফোলগুলি অনুমোদিত নয়।
• আপনার কোড অনলাইনে পরীক্ষার জন্য লিঙ্কগুলি প্রস্তাবিত!
• এটি কোড-গল্ফ , তাই প্রতিটি ভাষার মধ্যে সংক্ষিপ্ত উত্তর!

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

ফর্ম্যাটে সমস্ত ইনপুট এবং আউটপুটগুলির একটি তালিকা এখানে input, 0-indexed output, 1-indexed output।

0   241 242
1   21  22
2   16  17
3   4   5
4   96  97
5   126 127
6   9   10
7   171 172
8   201 202
9   14  15
10  17  18
11  277 278
12  20  21
13  23  24
14  19  20
15  29  30
16  32  33
17  297 298
18  35  36
19  38  39
20  41  42
21  1   2
22  46  47
23  69  70
24  6   7
25  53  54
26  22  23
27  11  12
28  62  63
29  219 220
30  65  66
31  68  69
32  71  72
33  74  75
34  49  50
35  357 358
36  80  81
37  83  84
38  25  26
39  89  90
40  92  93
41  27  28
42  42  43
43  3   4
44  101 102
45  104 105
46  8   9
47  177 178
48  110 111
49  13  14
50  28  29
51  119 120
52  122 123
53  417 418
54  79  80
55  128 129
56  131 132
57  134 135
58  55  56
59  437 438
60  140 141
61  0   1
62  31  32
63  75  76
64  5   6
65  120 121
66  82  83
67  10  11
68  161 162
69  164 165
70  58  59
71  477 478
72  170 171
73  173 174
74  34  35
75  179 180
76  182 183
77  497 498
78  85  86
79  188 189
80  191 192
81  18  19
82  2   3
83  78  79
84  93  94
85  7   8
86  37  38
87  168 169
88  12  13
89  228 229
90  88  89
91  218 219
92  221 222
93  224 225
94  64  65
95  557 558
96  230 231
97  233 234
98  40  41
99  239 240

Comments

এটি জেনে রাখা কার্যকর হতে পারে যে বিবেচনা 6, 2*6, 3*6,..., 325*6করা সমস্ত সম্ভাব্য মান উত্পন্ন করতে যথেষ্ট

— লুইস মেন্ডো

@ লুইস মেন্ডো আপনি ঠিক বলেছেন, আমি চ্যালেঞ্জের বর্ণনায় এটি অন্তর্ভুক্ত করব কিনা তা নিয়ে আমি বিতর্ক করছিলাম। একটি মন্তব্যও এটির জন্য একটি ভাল জায়গা: ও)

— সোক

আমরা বেশী সঙ্গে স্ট্রিং হিসেবে ইনপুট-পূর্ণসংখ্যা, নিতে পারি সঙ্গে প্যাডেড একটি নেতৃস্থানীয় 0 (অর্থাত , , , ...)? $n<10$000102

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

@ কেভিন ক্রুজসেন হুম, স্ট্রিং হিসাবে ইনপুট ঠিক আছে, তবে 0 সহ বাম প্যাডিং কিছুটা দূরে আইএমও।

— সুক

Answer 1

জাভাস্ক্রিপ্ট (ES6),  71 65  55 বাইট

আউটপুট 0-সূচকযুক্ত।

n=>(g=([a,b,...c])=>b?a+b-n&&1+g(c):g([a]+6*++i))(i='')

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

কিভাবে?

রিকার্সিভ ফাংশনটি ব্যবহার করে আমরা হয় $6$ এর সংক্ষিপ্ত গুণকের স্ট্রিংয়ের প্রথম 2 টি অক্ষরকে 'গ্রাস' করি , বা আমাদের মধ্যে 2 টিরও কম থাকলে নতুন অক্ষর যুক্ত করি।

$n=3$ উদাহরণ :

 string | operation                          | result
--------+------------------------------------+--------
 ''     | not enough characters: append '6'  |   0
 '6'    | not enough characters: append '12' |   0
 '612'  | consume '61', increment the result |   1
 '2'    | not enough characters: append '18' |   1
 '218'  | consume '21', increment the result |   2
 '8'    | not enough characters: append '24' |   2
 '824'  | consume '82', increment the result |   3
 '4'    | not enough characters: append '30' |   3
 '430'  | consume '43', increment the result |   4
 '0'    | not enough characters: append '36' |   4
 '036'  | consume '03': success              |   4

মন্তব্য

n => (             // n = input
  g = (            // g is a recursive function taking either a string or an array of
                   // characters split into:
    [a, b,         //   a = 1st character, b = 2nd character,
           ...c]   //   c[] = array of all remaining characters
  ) =>             //
    b ?            // if b is defined:
      a + b - n && //   if n subtracted from the concatenation of a and b is not zero:
        1 + g(c)   //     add 1 to the final result and do a recursive call with c[]
                   //   (otherwise: yield 0 and stop recursion)
    :              // else:
      g(           //   do a recursive call with:
        [a] +      //     the concatenation of a (forced to an empty string if undefined)
        6 * ++i    //     and 6 * i, with i pre-incremented
      )            //   end of recursive call
)(i = '')          // initial call to g with an empty string,
                   // and i set to empty string as well (zero'ish)

Answer 2

পাইথন 2 , 93 92 85 83 81 68 65 59 বাইট

f=lambda n,s='612',i=18:n-int(s[:2])and-~f(n,s[2:]+`i`,i+6)

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

---

• -২ বাইট, গ্রিমিকে ধন্যবাদ
• -৩ বাইটস, আরবোকে ধন্যবাদ
• -6 বাইট, xnor ধন্যবাদ

Comments

f=lambda n,s='612',i=3:n-int(s[:2])and f(n,s[2:]+`i*6`,i+1)or i-2

— ল্যাম্বদা

@ আরবো আরও ভাল, f=lambda n,s='612',i=18:n-int(s[:2])and-~f(n,s[2:]+`i`,i+6)(0- সূচিযুক্ত )।

— xnor

Answer 3

পার্ল 6 , 31 বাইট

{+(comb(2,[~] 1..ⅮX*6)...$_)}

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

1-ইনডেক্সেড ক্রম ব্যবহার করে।

ব্যাখ্যা:

{                            } # Anonymous code block
              1..Ⅾ             # The range 1 to 500
                   X*6         # All multiplied by 6
          [~]                  # Join as one giant string
   comb(2,            )        # Split into pairs of characters
                       ...$_   # Take up to the input
 +(                         )  # And return the length of the list

Answer 4

হাস্কেল , 82 ... 65 58 54 বাইট

k$show=<<[6,12..]
k(a:b:c)t|read[a,b]==t=0|let=1+k c t

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

Answer 5

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

₄L6*J2ôIk

0-ইন্ডেক্স। একটি একক পূর্ণসংখ্যা বা ইনপুট হিসাবে পূর্ণসংখ্যার একটি তালিকা গ্রহণ করে।

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

ব্যাখ্যা:

₄L         # Create a list in the range [1,1000]
  6*       # Multiply each value by 6
    J      # Join the entire list of integers together to a string
     2ô    # Split into parts of size 2
       Ik  # Get the index of the input integer(s)
           # (and output the result implicitly)

Comments

স্ট্রিং হিসাবে যোগদানের জন্য কি ডিফল্ট আচরণ, বা স্ট্রিং হিসাবে যোগদানের জন্য এবং সংখ্যা হিসাবে যোগদানের জন্য আলাদা অপারেটর রয়েছে?

— ম্যাক্সবি

@ ম্যাক্সব সামগ্রিকভাবে 05AB1E এর কোনও সুস্পষ্ট রূপান্তর দরকার নেই। সমস্ত পূর্ণসংখ্যা স্ট্রিং-ফাংশনগুলির জন্য প্রতিস্থাপন বা বিভক্তকরণের জন্যও ব্যবহার করা যেতে পারে এবং তৈরি করা সমস্ত স্ট্রিং (যা পূর্ণসংখ্যা হয়) সংখ্যা হিসাবেও ব্যবহার করা যেতে পারে। সুতরাং 100, "100"এবং 100.0সমান চেক এবং এর মতো বেশিরভাগ ফাংশনের জন্য একই for কিছু ফাংশনালিটির জন্য বাছাই (সংখ্যার তুলনায় লিক্সোগ্রাফিক বাছাই করা), বা ইনট কাস্টিংয়ের সময় ভাসা থেকে কমার পরে দশমিক সংখ্যাগুলি সরিয়ে ফেলার জন্য 05AB1E তে স্ট্রিং ফাংশনগুলিতে এখনও কাস্ট করা হয়, তবে এগুলি প্রায়শই ব্যবহৃত হয় না ।

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

@ ম্যাক্সব প্রাসঙ্গিক 05AB1E টিপ কিছু অতিরিক্ত উদাহরণ দেয়।

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

Answer 6

কাঠকয়লা , 12 বাইট

Ｉ⌕Ｉ⪪⭆φ×⁶⊕ι²Ｎ

এটি অনলাইন চেষ্টা করুন! লিঙ্কটি কোডটির ভার্জোজ সংস্করণ। 0-ইন্ডেক্স। ব্যাখ্যা:

     φ           Predefined constant 1000
    ⭆           Map over implicit range and join
        ι       Current index
       ⊕        Incremented
     ×⁶         Multiplied by 6
   ⪪      ²     Split into pairs of digits
  Ｉ             Cast to integer
           Ｎ    Input as a number
 ⌕              Find its index
Ｉ               Cast to string
                Implicitly print

Answer 7

জে , 29 26 বাইট

-3 বাইট ধন্যবাদ ফ্রাউনফ্রোগের জন্য!

i.~_2(".\;)6<@":@*1+i.@325

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

0 ভিত্তিক

Comments

i.~_2(".\;)6<@":@*1+i.@325

— ফ্রাউনফ্রগ

নিবন্ধন করুন বক্সিংয়ের দুর্দান্ত ব্যবহার!

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

Answer 8

এপিএল (ডায়ালগ ইউনিকোড) , 26 বাইট

{⍵⍳⍨⍎¨((≠\=⍨)⊂⊢)∊⍕¨6×⍳325}

এটি অনলাইন চেষ্টা করুন!- সমস্ত বৈধ ইনপুট জন্য পরীক্ষা।

কিভাবে:

{⍵⍳⍨⍎¨((≠\=⍨)⊂⊢)∊⍕¨6×⍳325} ⍝ Dfn, input is ⍵.
                    6×⍳325  ⍝ Generates the first 325 multiples of 6.
                  ⍕¨        ⍝ Format each number into a string
                 ∊          ⍝ Enlist, flattens the vector
       (      ⊂⊢)           ⍝ Dyadic enclose, takes a boolean mask as left argument
        (≠\=⍨)              ⍝ Generates the mask 1 0 1 0...
                            ⍝ Enclose then returns the Sixers sequence as a string
     ⍎¨                     ⍝ Execute each element in the string, turning it into a numeric vector
 ⍵⍳⍨                        ⍝ Find the first occurrence of ⍵ in the vector

Comments

আপনি যেমন কে তে পারেন তেমন চ্যাপ্টা ভেক্টর পুনরায় আকার দিতে পারেন? গুগল প্রস্তাব দেয় ⍴কিন্তু এপিএল আমাকে ভয় দেখায় ...

— স্ট্রিস্টার

@ স্ট্রিস্টস্টার হ্যাঁ, ⍴এটি এপিএল এর পুনর্নির্মাণ। সুতরাং আপনি যদি কোনও সমতল ভেক্টর পুনরায় আকার দিতে চান তবে আপনার কেবল দরকার<new shape vector> ⍴ <vector to reshape>

— জে স্যালা

সুতরাং আপনি 2xN তালিকা তৈরি করতে পুনরায় আকারটি ব্যবহার করতে পারেন এবং তারপরে প্রতিটিকে পূর্ণসংখ্যায় রূপান্তর করতে পারেন?

— স্ট্রিস্টার

আপনি পারতেন, তবে আমার বর্তমান উত্তরের চেয়ে কম মনে হবে না। একটি সমস্যা হ'ল, আমার উত্তরের জন্য, স্ট্রিংটিকে 1117 × 2 ম্যাট্রিক্সে পুনরায় আকার দেওয়া এবং তারপরে পূর্ণসংখ্যায় রূপান্তর করা 1117, এক অঙ্কের পূর্ণসংখ্যার সাহায্যে একটি ভেক্টর তৈরি করবে। মধ্যে পার্থক্য দেখুন পদ্ধতি আমি ব্যবহার করছি বনাম আকৃতিগত

— জে Salle

আহা, আমার চ্যাপ্টা স্ট্রিংটি আরও বেশি কার্যকরী কিছুতে পুনরায়

— আকার দেবে

Answer 9

পাইথন 3 , 87 81 বাইট:

lambda n:[*zip(*[iter(''.join(map(str,range(6,1951,6))))]*2)].index((*'%02d'%n,))

পূর্ণসংখ্যার ইনপুট, 0-সূচকযুক্ত আউটপুট।

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

---

_{-6 বাইটস, @ টিফিল্ডকে ধন্যবাদ}

Answer 10

ওল্ফ্রাম ভাষা (গণিত) , by৪ বাইট

#&@@Position[FromDigits/@Flatten@IntegerDigits[6Range@365]~Partition~2,#]&

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

@ এক্সপায়ার্ড ডেটা থেকে 2 বাইট সংরক্ষণ করা হয়েছে

Comments

আপনি মানচিত্রের একটি থেকে মুক্তি পেতে পারেন

— মেয়াদউত্তীর্ণ ডেটা

আপনার দেখার আগে আমি এটি নিয়ে কাজ করছিলাম .. সেগুলিকে একীভূত করে 77 টি বাইট

— মেয়াদোত্তীর্ণ ডেটা

পছন্দসই 74 বাইট এখন

— J42161217

Answer 11

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

;İS∧⟦×₆ᵐcġ₂iSt

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

বড় আউটপুটগুলির সাথে পরীক্ষার ক্ষেত্রে খুব ধীর।

Answer 12

আর , 75 62 বাইট

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

match(scan(,''),substring(Reduce(paste0,3*(a=2*1:999)),a-1,a))

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

Answer 13

ম্যাথগল্ফ , 10 বাইট

•╒6*y░2/i=

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

মূলত 05AB1E উত্তরের সমান, তবে সংক্ষিপ্ত সংখ্যাটি স্পষ্টভাবে স্ট্রিংয়ে রূপান্তর করে আমি একটি বাইট হারাব।

ব্যাখ্যা

•╒             push [1, 2, ..., 512]
  6*           multiply by 6
    y          join array without separator to string or number
     ░         convert to string (implicit map)
      2/       split into groups of 2 characters
        i      convert to integer (implicit map)
         =     find index of implicit input in the array

Answer 14

এপিএল + উইন, 37 বাইট

পূর্ণসংখ্যার ইনপুট জন্য অনুরোধ জানানো হয়। 1 সূচকযুক্ত।

↑(⎕=⍎,((n,2)⍴(⍕6×⍳n)~' '),' ')/⍳n←600

এটি অনলাইন চেষ্টা করুন! ডায়ালগ ক্লাসিকের সৌজন্যে

Answer 15

সি # (ভিজ্যুয়াল সি # ইন্টারেক্টিভ সংকলক) , 123 বাইট 115 বাইট

a=>m.First(y=>int.Parse(string.Join("",m.Select((x,i)=>++i*6)).Substring(y*2,2))==a);var m=Enumerable.Range(0,640);

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

Comments

আমি মনে করি আপনার সমাধানে কোথাও একটি বাগ রয়েছে, যেমন f(61)ফিরে আসা উচিত 0(এটি দেখতে আপনার সমাধানটি 0-সূচিযুক্ত বলে মনে হচ্ছে)

— সোক

ধন্যবাদ @ এসোক এখনই ঠিক করা উচিত

— মেয়াদোত্তীর্ণ ডেটা

Answer 16

কে (ওকে) , 22 বাইট

সমাধান:

(.:'0N 2#,/$6*1+!999)?

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

ব্যাখ্যা:

0-ইন্ডেক্স।

(.:'0N 2#,/$6*1+!999)? / the solution
                     ? / lookup right in left
(                   )  / do this together
                !999   / range 0..999
              1+       / add 1, range 1...1000
            6*         / multiply by 6, 6...6000
           $           / convert to strings
         ,/            / flatten
    0N 2#              / reshape into 2xN
 .:'                   / value each, convert to numbers

Answer 17

জেলি , 10 বাইট

ȷ×€6DFs2Ḍi

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

টিআইও লিঙ্ক 0 থেকে 99 এর জন্য সমস্ত মান দেয়।

ব্যাখ্যা

ȷ          | 1000
 ×€6       | each times 6 (using implicit range from 1..1000)
    D      | Convert to decimal digits
     F     | Flatten
      s2   | Split into pairs
        Ḍ  | Convert back from decimal digits to integer
         i | Find index of left argument to link

Answer 18

জাভা 10, 119 104 102 বাইট

n->{int i=2;for(var s="612";!s.substring(0,2).equals(""+n/10+n%10);)s=s.substring(2)+6*++i;return~-i;}

পোর্ট অফ @TFeld এর পাইথন 2 উত্তর ।
-2 ধন্যবাদ বাইট @Imus ।

1-ইন্ডেক্স।

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

ব্যাখ্যা:

n->{                            // Method with integer as both parameter and return-type
  int i=2;                      //  Index-integer, starting at 2
  for(var s="612";              //  String, starting at "612"
      !s.substring(0,2)         //  Loop as long as the first two characters of the String
       .equals(                 //  Are not equal to:
               ""+n/10          //   The input integer-divided by 10 as String
               +n%10);)         //   Concatenated with the input modulo-10
                                //   (which will add leading 0s for inputs < 10)
    s=s.substring(2)            //   Remove the first two characters of the String
      +6*++i;                   //   And append 6 times `i`,
                                //   after we've first increased `i` by 1 with `++i`
return~-i;}                     //  Return `i-1` as result

---

আসল 119 117 বাইট সংস্করণ:

n->{var s="";for(int i=0;i<2e3;)s+=i+=6;return java.util.Arrays.asList(s.split("(?<=\\G..)")).indexOf(""+n/10+n%10);}

0-ইন্ডেক্স।

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

ব্যাখ্যা:

n->{                            // Method with integer as both parameter and return-type
  var s="";                     //  String we're building, starting empty
  for(int i=0;i<2e3;)           //  Loop `i` in the range [0, 2000):
      s+=i+=6;                  //   Increase `i` by 6 first every iteration
                                //   And then append the updated `i` to String `s`
  return java.util.Arrays.asList(
          s.split("(?<=\\G..)") //  Split the String in parts of size 2 (as array)
         )                      //  Convert the array to a List
          .indexOf(             //  And get the index of the following in this list:
                   ""+n/10      //   The input integer-divided by 10 as String
                   +n%10);}     //   Concatenated with the input modulo-10

Comments

আপনি এন> 9 এর পরিবর্তে "" + এন / 10 + এন% 10 ব্যবহার করে 2 বাইট সংরক্ষণ করতে পারেন? এন + "": "0" + এন

— ইমাস

Answer 19

সিজেম , 17 বাইট

325,:)6f*s2/:~ri#

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

0-ভিত্তিক।

ব্যাখ্যা

325,   e# Range [0 1 2 ... 324]
:)     e# Add 1 to each: gives [1 2 3 ... 325]
6f*    e# Multiply each by 6: gives [6 12 18 ... 1950]
s      e# Convert to string: gives "61218...1950"
2/     e# Split into chunks of size 2: gives ["61" "21" ... "95" "0"]
       e# Note how the last chunk has size 1; but it is not used
:~     e# Evaluate each string in that array: gives [61 21 ... 95 0]
ri     e# Read input as an integer
#      e# Index of fist occurrence, 0-based

Comments

কৌতূহলের বাইরে, কেন সিজেম পরিসরের সমস্ত পূর্ণসংখ্যার জন্য অন্তর্নির্মিত থাকে $[10,20]$, পাশাপাশি পাঁচটি পৃথক বিল্টইন যা খালি স্ট্রিংয়ে সমস্ত ডিফল্ট হয় ""তবে এর জন্য কোনও বিল্টইন থাকে না$100$ অথবা $1000$?

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

@ কেভিন ক্রুজসেন নিশ্চিত নন ... তবে পূর্বনির্ধারিত মানগুলির সাথে ভেরিয়েবলগুলি থাকা 0বা ""কখনও কখনও লুপগুলির জন্য দরকারী, কারণ এগুলি প্রায়শই কাঙ্ক্ষিত শুরু মান। না থাকার জন্য 100বা 1000হ্যাঁ, আমি সম্মত হয়েছি তারা বলার চেয়ে আরও বেশি কার্যকর হবে 18বা19

— লুইস মেন্ডো

এটি একটি লজ্জার বিষয় যে নেতৃস্থানীয় শূন্যগুলি বিরক্তিকর, অন্যথায় আপনি আপনার কোডটি থেকে :~এবং খালি করতে পারেন i। :(

— এরিক আউটগল্ফার

Answer 20

জাপট , 12 বাইট

0-ইন্ডেক্স।

L²õ*6 ¬ò b¥U

এটি ব্যবহার করে দেখুন বা সমস্ত ইনপুট পরীক্ষা করুন

L²õ*6 ¬ò b¥U     :Implicit input of integer U
L                :100
 ²               :Squared
  õ              :Range [1,L²]
   *6            :Multiply each by 6
      ¬          :Join to a string
       ò         :Split to array of strings each of length 2
         b       :First 0-based index of
          ¥U     :Test for equality with U (bU wouldn't work here as each string would first need to be cast to an integer, costing more bytes)

Answer 21

লাল , 97 94 বাইট

func[n][(index? find/skip rejoin collect[repeat i 325[keep i * 6]]pad/left/with n 2 #"0"2)/ 2]

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

Answer 22

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

Æ▒§±~>ûπ╞öt

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

ইনপুট একটি পূর্ণসংখ্যা। আউটপুট 0-সূচকযুক্ত।

Answer 23

পার্ল 5 -MList::Util=any -ap , 50 বাইট

$\=0,$b.=6*++$,while!any{++$\;"@F"==$_}$b=~/../g}{

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

1-ভিত্তিক আউটপুট

Answer 24

রেটিনা , 83 77 বাইট

রেটিনার জটিল প্রোগ্রামিংয়ে আমি সত্যিই অনুশীলনের বাইরে আছি, তবে আমি যে দৈর্ঘ্যে এটি পরিচালনা করতে পেরেছি তাতে সন্তুষ্ট।

0-সূচকযুক্ত ফলাফল আউটপুট করে।

.+
6*1
325+-1%`1+
$0¶6*1$0
1+
$.0
¶

L`..
m`^0

$
¶$+
s`\b(\d+)\b.*\b\1$

C`¶

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

---

ব্যাখ্যা

.+                   Replace the input with 6 in unary
6*1
325+-1%`1+           Do 325 times: append line with previous + 6
$0¶6*1$0
1+                   Convert all lines to decimal
$.0
¶                    Remove line breaks

L`..                 List pairs of digits
m`^0                 Remove leading zeros

$                    Append the original input N on a new line
¶$+
s`\b(\d+)\b.*\b\1$   Remove occurrences of N and anything in between

C`¶                  Count the number of line breaks

Answer 25

সুইফ্ট 5 / এক্সকোড 10.2.1 , 140 134 133 বাইট

let s=sequence(first:6){$0+6}.lazy.map{String($0)}.joined();return(0...).first{$0%2==0&&Int(String(s.dropFirst($0).prefix(2)))==n}!/2

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

Answer 26

রেটিনা 0.8.2 , 36 বাইট

^
2406$*_
_{6}
$.`
^0(..)+?.*\1$
$#1

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

^
2406$*_

ইনপুটটিতে উপসর্গ 2406 _গুলি।

_{6}
$.`

_পূর্ববর্তী _এস এর সংখ্যার সাথে প্রতি 6 টি প্রতিস্থাপন করুন । এই ক্রম উত্পন্ন 0, 6, 12... 2400কিন্তু স্বয়ংক্রিয়ভাবে সংখ্যার যোগসূত্র।

^0(..)+?.*\1$

শীর্ষস্থানীয় 0 এড়িয়ে যান এবং শেষের দুটি অঙ্কের সাথে শূন্য-প্যাডযুক্ত ইনপুট (যা স্ট্রিংটি শেষ হয় 0; প্রকৃতপক্ষে পরীক্ষার স্যুটটি এটি শেষ হয় তা ব্যবহার করে 00) এর সাথে প্রথম অঙ্কের অঙ্কটি আবিষ্কার করুন ।

$#1

ম্যাচটি সহ এবং সংখ্যার জোড় সংখ্যার আউটপুট।

রেটিনা 1 কয়েকটি বাইট সংরক্ষণ করে কারণ এর স্ট্রিং পুনরাবৃত্তি অপারেটরটি একটি বাইট ছোট এবং ইতিমধ্যে _তার ডান হাতের ক্রিয়াকলাপ হিসাবে ডিফল্ট , যাতে কোডের দ্বিতীয় লাইনটি ন্যায়সঙ্গত হয় 2406*। রেটিনা 1 এর আর একটি বৈশিষ্ট্য হল >সংশোধক যা ম্যাচের পরে বিভাজকের প্রসঙ্গে প্রতিস্থাপন তৈরি করে, যার $.>`ফলস্বরূপ ম্যাচের দৈর্ঘ্য অন্তর্ভুক্ত করার কারণ হয়। যদিও এটির জন্য বাইট খরচ হয় আমরা তত্ক্ষণাত এটি সংরক্ষণ করি কারণ আমাদের সাথে মেটাতে হবে না এবং প্রতিস্থাপনে 6 দ্বারা গুণ করা দরকার । লক্ষণীয়ভাবে, এটি সামগ্রিক বাইট গণনাকেও প্রভাবিত করে না, কারণ চূড়ান্ত ফলাফলটি এরকম দেখাচ্ছে:0 কোনও । (পুনরাবৃত্তিগুলিও 6 দ্বারা হ্রাস করতে হবে) রেটিনা 1 এছাড়াও একটি বিকল্পে বুনিয়াদি গণিত করতে পারে। এর অর্থ হ'ল আমাদের 6 টির গুণমান নিতে কৌশলগুলি অবলম্বন করতে হবে না, পরিবর্তে আমরা কেবল সংখ্যা তৈরি করব1..400

^
400*
_
$.(6*$>`
^(..)+?.*\1$
$#1

Answer 27

বাশ , 80 বাইট

1-ইন্ডেক্স।

dc<<<6[p6+lax]salax|sed 's/./\n&/g;s/\n//'|sed 'N;s/\n//'|sed -n "/^0*$1$/{=;q}"

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

Answer 28

সি # (ভিজ্যুয়াল সি # ইন্টারেক্টিভ সংকলক) , 88 বাইট

n=>{int i=2;for(var s="612";!s.StartsWith($"{n:d2}");s=s.Substring(2)+6*++i);return~-i;}

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

জাভা এবং পাইথনের আরও একটি বন্দর উত্তর দেয়।

আমার মূল উত্তর নীচে:

সি # (ভিজ্যুয়াল সি # ইন্টারেক্টিভ সংকলক) , 102 বাইট

n=>{dynamic s="",t=$"{n:d2}",i=0;for(;i++<400;s+=i*6);for(i=0;s[i++]!=t[0]|s[i++]!=t[1];);return i/2;}

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

উভয় সমাধানই 1-ভিত্তিক সূচক ব্যবহার করে।

Answer 29

রুবি , 46 বাইট

->n{[*6.step(5**5,6)].join.scan(/../).index n}

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

Answer 30

Clojure, 102 বাইট

#(count(for[i(partition 2(for[i(range 1 326)c(str(* i 6))]c)):while(not=(seq(str(if(< % 10)0)%))i)]i))

এতক্ষণ! :(