লিখিত অঙ্ক সিকোয়েন্স

Question

এখানে একটি যুক্তিসঙ্গত তুচ্ছ ক্রম রয়েছে যা অনলাইন এনসাইক্লোপিডিয়া অফ ইন্টিজার সিকোয়েন্সগুলিতে নেই ।

খালি সিকোয়েন্স দিয়ে শুরু করুন এবং পরে প্রতিটি শব্দটি ইংরেজীতে শূন্যস্থান ছাড়াই ক্রমের সমস্ত অঙ্ক হিসাবে লিখতে প্রয়োজনীয় অক্ষরের সংখ্যা হিসাবে সংজ্ঞায়িত করুন। *

রেফারেন্সের জন্য ইংরেজিতে সমস্ত (বেস দশ) অঙ্কের অক্ষরের সংখ্যা হ'ল:

zero   one    two    three  four   five   six    seven  eight  nine
4      3      3      5      4      4      3      5      5      4

(যা A52360 এবং A5589 উভয়েরই শুরু )

খালি ক্রমটিতে শূন্য সংখ্যা উপস্থিত থাকায় এটি প্রথম প্রবেশকে $a(0) = 0$ তোলে ।

এটি "এ" ( দ্বিতীয় ) এটিকে $a(1) = 4$ তোলে কারণ "শূন্য" লিখতে এটি চারটি অক্ষর লাগে, এটি এখন পর্যন্ত উপস্থিত একমাত্র সংখ্যা।

এই তৃতীয় এন্ট্রি তোলে $a(2) = 8$ যেমন লিখতে "zerofour" আট মোট জন্য "চার" লিখতে আরো চারটি অক্ষর লাগে।

এটি চতুর্থ এন্ট্রিটিকে $a(3) = 13$ তোলে কারণ মোট তেরোটির জন্য "জিরোফোরাইট" লিখতে "আট" লিখতে আরও পাঁচটি অক্ষর লাগে।

এটি পঞ্চম এন্ট্রিটিকে $a(4) = 21$ তোলে কারণ "অনেথ্রি" লিখতে মোট একুশজনের "জিরোফিউরাইটোনথ্রি" লিখতে আরও আটটি অক্ষর লাগে।

... ইত্যাদি। এখানে প্রথম 100 টি এন্ট্রি রয়েছে:

0, 4, 8, 13, 21, 27, 35, 44, 52, 59, 67, 75, 84, 93, 102, 112, 121, 130, 142, 152, 162, 171, 182, 193, 205, 216, 225, 235, 247, 259, 270, 282, 293, 305, 318, 331, 344, 357, 371, 384, 398, 412, 422, 432, 444, 456, 467, 479, 492, 503, 516, 526, 536, 548, 561, 571, 583, 597, 610, 620, 630, 642, 652, 662, 671, 682, 693, 705, 718, 731, 744, 757, 771, 784, 798, 812, 823, 836, 849, 862, 873, 888, 903, 916, 926, 936, 948, 961, 971, 983, 997, 1010, 1024, 1038, 1055, 1070, 1086, 1101, 1114, 1127

_{* আমরা অন্যান্য ভাষা এবং / অথবা অন্যান্য ঘাঁটি বা অবশ্যই স্পেস সহ এটি সংজ্ঞায়িত করতে পারি}

চ্যালেঞ্জ

প্রদত্ত $n$ আউটপুট, কোডের যত কম বাইটে সম্ভব, যেকোন একটি:

• অনুক্রমের প্রথম $n$ শর্তাদি (অ-নেতিবাচক পূর্ণসংখ্যার জন্য কাজ করা উচিত)
• $a(n)$ এর মান (অ-নেতিবাচক পূর্ণসংখ্যার জন্য কাজ করা উচিত)
• $n$ ^ম ক্রম শব্দ (ধনাত্মক পূর্ণসংখ্যা জন্য কাজ করা উচিত - অর্থাৎ মান $a(n-1)$ )

---

এটি কোড-গল্ফ তাই প্রতিটি ভাষার জন্য বাইটের মধ্যে সংক্ষিপ্ত উত্তর এবং বাইটের মধ্যে সংক্ষিপ্ত উত্তর। গল্ফিং ভাষাগুলি আপনার পছন্দসই ভাষায় প্রবেশ করতে বাধা দেবেন না এটি ব্যবহারিক হোক বা রহস্যজনক!

Comments

প্রথম বিকল্পের দ্বারা, আপনি কি বোঝাতে চেয়েছেন যে 1) 1আউটপুট করা উচিত [0]এবং 2) আউটপুট হওয়া উচিত (আমার পূর্ববর্তী উত্তর হিসাবে)? 0[]0[0]

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

@ এরিকথ আউটগল্ফার আমার অর্থ (1) এটির প্রথম এন পদগুলি ফিরে আসা উচিত। এটি হ'ল বিকল্পগুলি হল "ক্রমটি আউটপুট করে তবে একটি (এন)", "আউটপুট এ (এন)", বা "আউটপুট এ (এন -1)" অন্তর্ভুক্ত নয়।

— জোনাথন অ্যালান

সুতরাং, a (x) = a (x-1) + f (a (x-1)) যেখানে f (x) x লেখার জন্য প্রয়োজনীয় অক্ষরের পরিমাণ?

— ফায়ার কিউজেজ

@ ফায়ার কিউবেজ হ্যাঁ, যদি একটি (0) = 0 এবং চ (এক্স) এক্স এর অঙ্কগুলি লিখতে ফাঁকা অক্ষর হয়

— জোনাথন অ্যালান

Answer 1

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

{({[+] @_.join.uninames>>.comb X-6}...*)[$_]}

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

আপনি যখন ডিজিটের নাম সরাসরি পেতে পারেন তখন অভিনব মডুলুয়িংয়ের প্রয়োজন নেই! অজ্ঞাতনামা কোড ব্লক যা অনুক্রমের নবম মানটি দেয় বা মানগুলির তালিকা পেতে আপনি একটি সীমার মধ্যে যেতে পারেন

ব্যাখ্যা:

{(                                     )[$_]}  # Index input into:
  {                               }...*        # An infinite sequence
                                               # Where each element is
   [+]   # The sum of
       @_.join  # All previous elements joined together
              .uninames  # The unicode names for each character
                         # These are names in the form "DIGIT ONE"
                       >>.comb  # Split each to lists of characters
                               X-6  # Subtract 6 from each

Comments

@ জোনাথন অ্যালান আহ, আমি ধরে নিয়েছি আপনি ফিরে আসার মতো অসীম অনুক্রমের অনুমতি দিয়েছেন, দুঃখিত। আমি এটি ঠিক করব

— জো কিং

ভাল লাগল, ভাল :)

— জোনাথন অ্যালান

নিস! »এক বাইট, তাই না? এছাড়াও, [+]বাইনারি অপ্স কীভাবে হ্রাসকারী হয়ে উঠতে পারে সে সম্পর্কে ইঙ্গিতও হতে পারে তবে sumএটি তিনটি বাইট এবং বাকী সমাধানটি রাখে যা সংক্ষিপ্ত হতে পারে না তবে নিশ্চিত এটি সবচেয়ে মার্জিত গল্ফ ইমো।

— রায়ফ

@ ইরফ »দুটি বাইট তাই এটি আদান-প্রদানের যোগ্য ।

— জো কিং

সম্ভবত এটি প্রতারণামূলক তবে রাকুডো ল্যাটিন 1 উত্স কোডটি সঠিকভাবে পরিচালনা করে না? যদি তাই হয়, যে নোট say '»'.encode('latin1').bytes প্রদর্শন 1। :)

— রায়ফ

Answer 2

জাভাস্ক্রিপ্ট (ES6), 69 68 61 58 বাইট

ফেরত পাঠায় $a(n)$ ।

f=(n,s=0)=>n?f(n-1,[...s+''].map(d=>s+=(d+10)%23%3+3)|s):s

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

কিভাবে?

একটি ডিজিট $d$ সাথে এক নম্বর $n$ রূপান্তরিত হয় :

$$n=(((d \times 100 + 10) \bmod 23) \bmod 3)+3$$

 d | *100 | +10 | MOD 23 | MOD 3 | +3 | word
---+------+-----+--------+-------+----+-------
 0 |    0 |  10 |   10   |   1   |  4 | zero
 1 |  100 | 110 |   18   |   0   |  3 | one
 2 |  200 | 210 |    3   |   0   |  3 | two
 3 |  300 | 310 |   11   |   2   |  5 | three
 4 |  400 | 410 |   19   |   1   |  4 | four
 5 |  500 | 510 |    4   |   1   |  4 | five
 6 |  600 | 610 |   12   |   0   |  3 | six
 7 |  700 | 710 |   20   |   2   |  5 | seven
 8 |  800 | 810 |    5   |   2   |  5 | eight
 9 |  900 | 910 |   13   |   1   |  4 | nine

যেহেতু সংখ্যাটি অঙ্কের অক্ষরে বিভক্ত, আমরা কেবল 10 যুক্ত করে স্ট্রিং কনটেন্টেশন হিসাবে $d\times 100+10$ প্রসেস করতে পারি ।$10$

Answer 3

স্ট্যাক্স , 14 13 বাইট

┴♥7[╘⌂←─üTJ‼√

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

এখানে মূল অন্তর্দৃষ্টিটি হ'ল অঙ্কটির বানান করতে অক্ষরের dপ্রয়োজন ((4 - 2 * d) // 3) % 3 + 3। (এটি অজগর পূর্ণসংখ্যা বিভাগ, এবং পাইথন-স্টাইল অ-নেতিবাচক মডুলাস)

Answer 4

পিপ , 21 বাইট

Lai+:$[phone]@^Pi

ইনপুট লাগে $n$ একটি কম্যান্ড-লাইন আর্গুমেন্ট হিসাবে প্রথম আউটপুট $n$ শর্তাবলী। এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

Lai+:$[phone]@^Pi
                       a is 1st cmdline arg; i is 0 (implicit)
La                     Loop (a) times:
                   Pi   Print i
                  ^     Split it into a list of characters (i.e. digits)
       4335443554@      Use each digit to index into this number, giving the length of the
                        name of the digit (0 -> 4, 1 -> 3, etc.)
     $+                 Sum the results
  i+:                   Increment i by that amount

Comments

আমি এটি পড়ি large constant to the power of piএবং স্মরণীয়ভাবে মুগ্ধ হয়েছিল। (এটি এখনও চিত্তাকর্ষক, তবে আমার প্রাথমিক ব্যাখ্যাটি ছিল .. .. আরও)

— 5urous

Answer 5

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

Nest[#+Tr@StringLength@IntegerName@IntegerDigits@#&,0,#]&

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

Tr@StringLength@IntegerName@IntegerDigits@#&এর অঙ্কগুলি তালিকাভুক্ত করে #, তাদের প্রত্যেককে একটি ইংরেজী নামে রূপান্তরিত করে, দৈর্ঘ্য গণনা করে এবং ফলাফলগুলি যোগ করে। তালিকাগুলি প্রচুর পরিমাণে থ্রেড থাকে, এটি খুব উত্তেজনাপূর্ণ। তারপরে আমরা কেবল পুনরাবৃত্তভাবে সংজ্ঞাটি প্রয়োগ করি।

টিআইও অভিযোগ করে যে এটির কোনও ইন্টারনেট সংযোগ নেই, তবে কেন তা আমি নিশ্চিত নই কারণ এটি যেভাবেই সঠিক উত্তরটি খুঁজে বের করে। সম্ভবত এটি পূর্ণসংখ্যার নামে আপডেটের জন্য অনুসন্ধান করছে?

$a(n)$$a(0), a(1), \dots, a(n)$পরিবর্তন Nestকরে NestList।

Answer 6

পরিষ্কার , 82 বাইট

import StdEnv,Text
$a=iter a(\n=n+sum[3+indexOf{c}" 9810324765"rem 3\\c<-:""<+n])0

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

Answer 7

05 এ বি 1 ই , 15 14 বাইট

ÎFD•16\|/•sSèOO

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

ব্যাখ্যা

Î                # initialize stack with 0 and input
 F               # input times do:
  D              # duplicate the current number
         sSè     # and use one copy to index into
   •Qb₁ñ•        # 433544355
            OO   # sum digits and sum the stack

Answer 8

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

{{⍵++/3+3|⌊3÷⍨4-2×⍎¨⍕⍵}⍣⍵⊢0}

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

Dfn। ছাপে$f(input)$

এটির জন্য সহায়তার জন্য @ দ্য APL অর্চার্ডকে ধন্যবাদ

@ জিএন 2 বাইটের জন্য; @ এইচপিউইজ 3 4 বাইটের জন্য।

এখন @ পুনরাবৃত্তাকার সূত্র ব্যবহার করে।

কিভাবে:

{{⍵++/3+3|⌊3÷⍨4-2×⍎¨⍕⍵}⍣⍵⊢0} ⍝ Main fn

 {                     }⍣⍵⊢0 ⍝ Starting with 0, repeat (⍣) the inner fn input times
      3+3|⌊3÷⍨4-2×⍎¨⍕⍵      ⍝ @recursive's formula
  ⍵++/                       ⍝ Sum with the input.

Answer 9

পাইথন 2 , 61 বাইট

n=0
exec"for c in`n`:n+=(4-2*int(c))/3%3+3\n"*input()
print n

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

পুনরাবৃত্তির অঙ্কের গণনা ম্যাপিং ব্যবহার করে ।

---

পাইথন 2 , 63 বাইট

f=lambda n:n and f(n-1)+sum((4-2*int(c))/3%3+3for c in`f(n-1)`)

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

একটি পুনরাবৃত্তির ফাংশন সংস্করণ। এটি চালাতে তাত্পর্যপূর্ণ সময় লাগে কারণ এতে দুটি পুনরাবৃত্ত কল রয়েছে f(n-1)।

Comments

নিস! আপনি যে অভিব্যক্তি-সন্ধানের স্ক্রিপ্টটি ব্যবহার করে উল্লিখিত হয়েছে তার আগে এই অভিব্যক্তিটি খুঁজে পাওয়া যদি আমি আগ্রহী (তবে সম্ভবত একটি আরও ছোট একটি?)

— লিন

@ লিন আমি স্ক্রিপ্টটি চালিয়েছি কিন্তু এর চেয়ে ভাল আর খুঁজে পাইনি। 13 টি অক্ষর সম্পূর্ণ অনুসন্ধানের জন্য খুব বেশি, এবং বেশিরভাগ 9 টি অক্ষর দীর্ঘ খুঁজে পাওয়া যায় নি। যখন আমি +3এটিটি গণিত অপারেটরগুলি (বিটওয়াইজ না) এবং সংখ্যাগুলিতে সীমাবদ্ধ করে রাখি তখন </ 4> আমি এই সমাধানটি খুঁজে পেয়েছি তবে সমতুল্য ব্যতীত আরও ছোট বা সমান দৈর্ঘ্যের কিছুই নেই।

— xnor

Answer 10

পাইথন 2 , 71 বাইট

f=lambda n,k=0:n and f(n-1,k+sum(632179420>>3*int(d)&7for d in`k`))or k

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

Comments

f=lambda n,k=0:n and f(n-1,k+sum(632179420>>3*int(d)&7for d in`k`))or kএকই গণনা তবে একটি সংযুক্তি তালিকা আউটপুট এড়ানো হয়।

— জোনাথন অ্যালান

দেখে মনে হচ্ছে তাদের স্টেক্সেক্স উত্তর থেকে পুনরাবৃত্তির অ্যালগরিদম 2 বাইট সংরক্ষণ করবে। আমি যদিও এই মত না!

— জোনাথন অ্যালান

Answer 11

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

0\{_▒♀*♂+L%3%3+Σ+

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

এটি আরনাউল্ডের পদ্ধতিটি ব্যবহার করে । সিকোয়েন্সের নবম উপাদানটি আউটপুট করে .. খালি স্ট্রিং যদি ঠিক থাকে a(0)তবে আমরা 0\শুরুতে মুছে ফেলতে পারি ।

ব্যাখ্যা:

0\                 Setup 0 as the counter
  {                Loop input times
   _▒              Duplicate counter and split to list of digits
     ♀*            Multiply each element by 100
       ♂+          Add 10
         L%        Modulo by 23
           3%      Modulo by 3
             3+    Add 3
               Σ   Sum list
                +  And add to counter

Answer 12

পাইথ , 21 বাইট

u+Gs@L+L3jC\᯻3jGTQ0

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

u+Gs@L+L3jC\᯻3jGTQ0   Implicit: Q=eval(input()), T=10

u                Q0   Starting at 0, repeat the following Q times, with current value as G:
          C\᯻           Get character code 7163
         j   3          Convert the above to base 3, yields [1, 0, 0, 2, 1, 1, 0, 2, 2]
      +L3               Add 3 to each to generate digit length dictionary
              jGT       Get digits of G (convert to base 10)
    @L                  Lookup each value in the above in the dictionary, modular indexing
   s                    Take the sum
 +G                     Add G to the above

Comments

᯻খুব সম্ভবত পাইথের কোডপেজের কোনও একক বাইট নেই। (আমি মনে করি এটি ইউটিএফ -8 ব্যবহার করে, এটির ক্ষেত্রে এটি 3 বাইট এবং j7163 3একই দৈর্ঘ্য রয়েছে; তবে টিও.আরুন বলে পিথের এসবিসিএস রয়েছে M রহস্যময়!)

— লিন

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

— সোক

Answer 13

রুবি , 54 বাইট

->n{s=0;n.times{s+=s.digits.sum{|d|4+392[d]-70[d]}};s}

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

Answer 14

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

n->{int l=0;while(n-->0)l+=(""+l).chars().map(x->"4335443554".charAt(x-48)-48).sum();return l;}

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

Answer 15

জাভাস্ক্রিপ্ট (নোড.জেএস) , 82 বাইট

f=(a,b=1,s=4)=>a?b<a?f(a,++b,s+=[...s+''].reduce((q,w)=>+'4335443554'[w]+q,0)):s:0

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

Answer 16

জেলি , 13 বাইট

ṃ“vẋç’ḃ5¤S+Ɗ¡

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

0-ইন্ডেক্স।

পুরো প্রোগ্রাম; STDIN থেকে ইনপুট নেয় takes

Answer 17

লাল , 99 95 বাইট

func[n][d:"4335443554"s: 0 repeat i n[print s foreach c form s[s: s - 48 + do d/(-47 + do c)]]]

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

কেবল একটি সহজ সমাধান।

Answer 18

জে , 37 বাইট

(+1#.|(3+3|23|10+100*]),.&.":)@]^:[&0

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

আরনাউল্ডের পদ্ধতি ব্যবহার করে

ব্যাখ্যা:

যুক্তিটি হ'ল n

                                 ^:    - apply the verb on the left hand site
                                   [   - n times
                                    &0 - to a starting value 0
 (                             )@]     - calculate for the current value of the argument
                         ,.&.":        - convert to string and then each char to digit
        (3+3|23|10+100*])              - map each digit to its word length
       |                               - a filler for the fork
    1#.                                - sum the lengths 
   +                                   - add them to the current value

Answer 19

1 ম মন্তব্য পরে সম্পাদিত।

সমস্ত পদ মুদ্রণ

স্কালা, 76 বাইট

def^(n:Int)=(1 to n).scanLeft(0)((y,_)=>y+(y+"").map(x=>(x*9+1)%13%3+3).sum)

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

মুদ্রণ n ^ম পদ

স্কালা, 72 বাইট

def^(n:Int)=Stream.iterate(0)(x=>x+(x+"").map(x=>(x*9+1)%13%3+3).sum)(n)

স্কালা, 69 বাইট

def^(n:Int)=(0/:(1 to n))((y,_)=>y+(y+"").map(x=>(x*9+1)%13%3+3).sum)

স্কালা, 67 বাইট

def s(b:Int):Stream[Int]=b#::s(b+(b+"").map(x=>(x*9+1)%13%3+3).sum)

স্কালা, 67 বাইট

val s:Stream[Int]=0#::s.map(x=>x+(x+"").map(x=>(x*9+1)%13%3+3).sum)

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

Comments

আমি স্কেলাকে চিনি না, তবে আমি মনে করি এটি কোনও প্রোগ্রাম বা কোনও ফাংশন নয় বরং একটি স্নিপেট (যেমন এটি একবারে সংশোধন nকরা গেলে এটি আরপিএলে চলে )। আপনি যদি স্কেলা জানেন তবে এটি ঠিক করা খুব সহজ। এছাড়াও নোট করুন যে স্কালার প্রশ্নে গল্ফ করার জন্য একটি টিপস রয়েছে যা সাহায্য করতে পারে। অবশেষে এটি একটি অনলাইন দোভাষীর একটি লিঙ্ক পোস্ট করা ভাল, টিআইও এর স্কালার রয়েছে এবং এটি অনেকগুলি পিপিসি সদস্য দ্বারা ব্যবহৃত হয়।

— জোনাথন অ্যালান

@ জোনাথান অ্যালান, আপনাকে ধন্যবাদ, এটি খুব সহায়ক ছিল।

— ডঃ ওয়াই উইট