সর্বাধিক ডাইস


19

চ্যালেঞ্জ:

এখানে আমাদের একটি ক্রমের প্রথম 100 টি আইটেম রয়েছে:

6,5,4,3,2,1,66,65,64,63,62,61,56,55,54,53,52,51,46,45,44,43,42,41,36,35,34,33,32,31,26,25,24,23,22,21,16,15,14,13,12,11,666,665,664,663,662,661,656,655,654,653,652,651,646,645,644,643,642,641,636,635,634,633,632,631,626,625,624,623,622,621,616,615,614,613,612,611,566,565,564,563,562,561,556,555,554,553,552,551,546,545,544,543,542,541,536,535,534,533,...

এই ক্রমটি কীভাবে গঠিত হয়? আমাদের প্রথম পরিসরে সংখ্যা রয়েছে [6, 1](একক মৃত্যুর সমস্ত সম্ভাব্য মান সর্বোচ্চ থেকে নিম্নতম)। তারপরে আমাদের সংখ্যার সংখ্যা রয়েছে [66..61, 56..51, 46..41, 36..31, 26..21, 16..11](সর্বোচ্চ থেকে নীচ থেকে নীচ পর্যন্ত দুটি পাশের সমস্ত সম্ভাব্য সংকোচিত মান)। ইত্যাদি
এটি OEIS সিকোয়েন্স A057436 এর সাথে সম্পর্কিত : কেবলমাত্র 1 থেকে 6 এর মধ্যে অঙ্কগুলি থাকে তবে সমান সংখ্যক সংখ্যার সমান সংখ্যার সাথে ক্রমটিতে পিছনের দিকে সাজানো হয়।

চ্যালেঞ্জটি হ'ল উপরের ক্রম সহ আপনার ফাংশন / প্রোগ্রামের জন্য এই তিনটি বিকল্পের একটি বেছে নেওয়া:

  1. একটি ইনপুট নাও এবং আউটপুট 'এই ক্রম, যেখানে এটা হয় 0-সূচীবদ্ধ বা 1-ইন্ডেক্স হতে পারে এর ম মান।nn
  2. একটি ইনপুট নাও এবং আউটপুট প্রথম বা মান এই ক্রম।nnn+1
  3. ক্রম থেকে অনির্দিষ্টকালের জন্য মানগুলি আউটপুট করুন।

অবশ্যই, কোনও যুক্তিসঙ্গত আউটপুট ফর্ম্যাট ব্যবহার করা যেতে পারে। স্ট্রিং / ইন্টিজার / দশমিক / ইত্যাদি হিসাবে হতে পারে; (অসীম) তালিকা / অ্যারে / স্ট্রিম / ইত্যাদি হিসাবে হতে পারে; স্পেস / কমা / নিউলাইন / অন্যান্য ডিলিমিটারের সাথে এসটিডিআউটে আউটপুট হতে পারে; ইত্যাদি ইত্যাদি দয়া করে আপনার উত্তরগুলিতে আই / ও ও বিকল্পটি ব্যবহার করছেন তা জানান!

সাধারণ নিয়ম:

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

আপনি বিকল্প 1 বেছে নিলে এখানে আরও কিছু বৃহত্তর পরীক্ষার কেস:

n         0-indexed output    1-indexed output

500       5624                5625
750       4526                4531
1000      3432                3433
9329      11111               11112
9330      666666              11111
9331      666665              666666
10000     663632              663633
100000    6131232             6131233

1
প্রস্তাবিত সম্পাদনা অনুযায়ী, কলমোগোরভ জটিলতা ট্যাগ কেবলমাত্র একটি ধ্রুবক, সীমাবদ্ধ, স্থির আউটপুটটিতে সিকোয়েন্সগুলিতে প্রযোজ্য নয়। একটি ক্রম চিরকাল চলে।
mbomb007

@ এমবম্ব ২০০7 যা বলেছিল তা ছাড়াও, আমি একটি ইনপুটের উপর ভিত্তি করে এন'ইথ মান বা প্রথম এন / এন + 1 মান আউটপুট করার অনুমতি দিই, যেখানে কেসি চ্যালেঞ্জগুলির কখনই ইনপুট থাকে না।
কেভিন ক্রুইজসেন

উত্তর:



12

পার্ল 6 , 24 23 বাইট

-1 বাইট ধন্যবাদ নওহেলহোফকে

{.put;.[]X~(6...1)}...*

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

সিকোয়েন্সগুলি ফাঁকা স্থান / নিউলাইন দ্বারা পৃথকভাবে পৃথক করে। অথবা, আরও কয়েকটি বাইটের জন্য আমাদের একটি অলস অসীম তালিকা থাকতে পারে যার পরিবর্তে আমরা সূচক করতে পারি।

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

{flat {@=.[]X~(6...1)}...*}

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

ব্যাখ্যা:

{                         }    # Anonymous code block
 flat                          # Return the flattened
                      ...*       # Infinite sequence
      {              }             # Defined as
         .[]                       # The previous element arrayified
            X~                     # Each concatenated with
              (6...1)              # All of 6 to 1
       @=                          # Arrayified


6

আর , 43 বাইট

p='';repeat cat(p<-sapply(p,paste0,6:1),'')

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

ক্রমটি অনির্দিষ্টকালের জন্য মুদ্রণ করে

  • -9 কিরিল এলকে ধন্যবাদ

1
@ tk3: দ্বিতীয় প্যারামিটার ব্যতীত এটি এন-অঙ্কের উপাদানগুলির উপ-সিকোয়েন্সের শেষ মানটিকে এন + 1 ডিজিটের উপাদানগুলির উপ-সিকোয়েন্সের প্রথম মানটি সংযুক্ত করে। যেমন6 5 4 3 2 166 65 64...

6

বাশ, 31 বাইট

f()(x+={6..1};eval echo $x;f);f

Tio

মন্তব্যগুলি থেকে আপডেট করুন, এন-মানটি 1-ইনডেক্সড, + জিএনইউ সরঞ্জামগুলি + পার্ল, 64 বাইট, 7 বাইট সংরক্ষণ করেছেন @ মান্যাটওয়ার্কের জন্য ধন্যবাদ

dc<<<6o$1p|perl -pe 's/(.)0/($1-1).6/e?redo:s/0//'|tr 1-6 654321

64 বাইট


অনেক সাহায্য করে না, কিন্তু 2nd দ্রবণে সমগ্র অভিব্যক্তি উদ্ধৃত ডবল চেয়ে সেমিকোলন অব্যাহতি খাটো: bc<<<obase=6\;$1। কিন্তু আপনি যদি স্যুইচ dc, সেখানে পালাবার কিছুই হল: dc<<<6o$1p
manatwork

ধন্যবাদ প্রকৃতপক্ষে এটি by বাইটিস সঞ্চয় করে তবে দ্বিখণ্ডিত সংখ্যার কারণে এটি এখনও একটি মিশ্র বাশ পার্ল (byby বাইটস) কাজ করে নাdc<<<6o$1p|perl -pe '1while s/(.)0/($1-1).6/e;s/0//'|tr 1-6 654321
নাহুয়েল ফিউইলুল

5

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

`6:P!V@Z^DT

অনির্দিষ্টকালের জন্য মানগুলি আউটপুট করে।

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

ব্যাখ্যা

`      % Do...while
  6:   %   Push [1 2 3 4 5 6]
  P    %   Flip: gives [6 5 4 3 2 1]
  !    %   Transpose: turns the row vector into a column vector
  V    %   Convert the number in each row to the corresponding char
  @    %   Push current iteration index, starting from 1
  Z^   %   Cartesian power. Gives a matrix where each row is a Cartesian tuple
  D    %   Display immediately
  T    %   Push true. This is used as loop condition, to give an infinite loop
       % End (implicit)

5

হাস্কেল, 38 34 বাইট

সংখ্যার অসীম তালিকা:

d=[6,5..1]
l=d++[10*m+n|m<-l,n<-d]

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

দুটি পূর্ববর্তী সমাধান যা স্ট্রিংগুলির অসীম তালিকা দেয়, প্রতিটি 38 টি বাইট ব্যবহার করে:

[1..]>>=sequence.(`replicate`"654321")

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

do n<-[1..];mapM id$[1..n]>>["654321"]

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


এ 36; বাইট সংস্করণ , আপনার উপর ভিত্তি করে replicate
ডিফিউয়ার


5

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

l=(+).(10*)<$>0:l<*>[6,5..1]

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

সংখ্যার অসীম তালিকা তৈরি করে l। ব্যবহার <$>এবং <*>একটি বাইট বন্ধ কাটা:

29 বাইট

l=[10*n+d|n<-0:l,d<-[6,5..1]]

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

অ্যাপ্রোচ হাস্কেল আউটপুট অল স্ট্রিং উত্তরের মতো similar স্থির ইনপুট স্ট্রিংয়ের "654321", এবং খালি স্ট্রিং আউটপুটটি যেখানে চাপানো হয়েছে তা পরিবর্তন করে এড়িয়ে চলে।

30 বাইট

l=[n++[d]|n<-"":l,d<-"654321"]

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


দারুণ! আমি 0(বা "") থেকে শুরু করা আরও ছোট করে দেখলাম , তবে ফলাফলটি না পাওয়ার কোনও সস্তা উপায় খুঁজে পেলাম না ...
খ্রিস্টান সিভর্স

4

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

ক্রমটি অনির্দিষ্টকালের জন্য আউটপুট করে।

¸[6LRâJD»,

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

ব্যাখ্যা

¸           # initialize the stack with a list containing the empty string
 [          # loop
  6L        # push [1 ... 6]
    R       # reverse
     â      # cartesian product
      J     # join each inner list
       D    # duplicate (saving a copy for next iteration)
        »,  # join on newline and print

1
¸শুরুতে কখনই জানত না খালি স্ট্রিং সহ একটি তালিকা তৈরি করে। এবং পরীক্ষার কেস উত্পন্ন করার জন্য আমি যে সমাধানটি ব্যবহার করি তার চেয়ে 2 বাইট কম, সুতরাং অবশ্যই আমার কাছ থেকে একটি +1। :)
কেভিন ক্রুইজসেন


3

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

String f(int n){return n-->0?f(n/6)+(6-n%6):"";}

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

এটি 1-ইনডেক্সড এন তম উপাদানটি প্রদান করে।

পুনরাবৃত্তি পুনরুক্তি ল্যাম্বডাকে পরাজিত বলে মনে হচ্ছে।


Iterative সংস্করণ, 49 বাইট

n->{var r="";for(;n-->0;n/=6)r=6-n%6+r;return r;}

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


3

ব্র্যাচল্যাগ , 13 11 বাইট

2 বাইটের জন্য ফ্যাটালাইজকে ধন্যবাদ

6~d{⟧₁∋}ᵐẉ⊥

অনির্দিষ্টকালের জন্য ফলাফল। এটি অনলাইন চেষ্টা করুন!

এন

ব্যাখ্যা

6~d           Start with a number, all of whose digits are 6's
              Brachylog considers these in the order 6, 66, 666, 6666...
   {   }ᵐ     Map this predicate to each of those digits:
    ⟧₁         1-based reverse range: [6,5,4,3,2,1]
      ∋        The output digit must be a number in that range
              Brachylog considers possible outputs in this order: 6, 5, 4, 3, 2, 1, 66, 65...
         ẉ    Write a possible output with newline
          ⊥   Force the predicate to fail and backtrack to the next possibility

আপনি একটি ব্র্যাচিয়েলগ রোল!
ফ্যাটালাইজ করুন

1
ব্যর্থতা-চালিত লুপ ব্যবহার করে আপনি 2 বাইট সংরক্ষণ করতে পারেন, যেমন: প্রোগল: এ তাদের বলা হয় 6~d{⟧₁∋}ᵐẉ⊥। আপনি মূলত আপনার প্রোগ্রামটি "মিথ্যা" দিয়ে শেষ করেন যা এটি সমস্ত সমাধান মুদ্রণ করতে বাধ্য করবে।
ফ্যাটালাইজ করুন

ওহ, সুন্দর। হ্যাঁ, আমি এটি অনেক উপভোগ করছি!
ডিএলসাস

3

সি # (.নেট কোর) , 38 বাইট

int f(int n)=>n-->0?f(n/6)*10+6-n%6:0;

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

N-th মান (1-ভিত্তিক) আউটপুট দেয়।


কোনটি এই সমাধান?
স্ট্যাকস্টাক

@ স্ট্যাকস্টাক - আমি এখন আমার উত্তরে এটি নির্দিষ্ট করেছি।
দানা

1
ওহ দারুণ! আমরা ওভারল্যাপিং করছি না। আমি সবেমাত্র অসীম প্রিন্টার লিখেছি।
স্ট্যাকস্টাক

2

জাপট, 14 বাইট

ফাংশন পদ্ধতি এবং / অথবা কার্টেসিয়ান পণ্য ব্যবহার করে একটি সংক্ষিপ্ত সমাধানের দরকার আছে তবে (এখনকার জন্য?) আমি যে সেরা পরিচালনা করতে পারি তা হ'ল আর্নল্ডসের জেএস সমাধানের একটি বন্দর তাই তাকেও উত্সাহিত করতে ভুলবেন না।

©ß´Uz6)s+6-Uu6

এটি ব্যবহার করে দেখুন বা শর্তাবলী পরীক্ষা করুন0-1000


2

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

(l=d=c=7-Range@6;While[Length@c<#,d=Flatten[(10#+l)&/@d];c=c~Join~d;];c[[#]])&

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

@ ইয়ানমিলারকে ধন্যবাদ 4 + 6 বাইট সংরক্ষণ করা হয়েছে

তালিকাটি 1 সূচকযুক্ত, n'th সংখ্যাটি আউটপুট করে।


1
4 টি অক্ষর বাঁচাতে আপনি রেঞ্জ [6,1, -1] 7-রেঞ্জ @ 6 দিয়ে প্রতিস্থাপন করতে পারেন
ইয়ান মিলার

1
কোডগল্ফ নিয়মের জন্য আপনি এটিকে বেনামে ফাংশন হিসাবেও লিখতে পারেন: (l = d = c = 7-রেঞ্জ @ 6; যদিও [দৈর্ঘ্য @ সি <#, ডি = ফ্ল্যাটেন [(10 # + এল) & / @ d]; সি = সি ~ যোগ দিন ~ ডি;]; সি [[#]]) এবং
ইয়ান মিলার

@ ইয়ানমিলার ধন্যবাদ! বিন্যাস সম্পর্কে নিয়মগুলি কী তা নিশ্চিত ছিলাম না।
কাই

2

গণিত, 56 বাইট

Flatten[FromDigits/@Tuples[7-Range@6,#]&/@Range@#][[#]]&

প্রকৃতপক্ষে চালানোর জন্য অতিরিক্ত পরিমাণে মেমরির প্রয়োজন হয় কারণ এটি ক্রমের সমস্ত সংখ্যা তৈরি করে যার দৈর্ঘ্য ইনপুটটির সমান বা তার কম (যেমন এটি তৈরি করে) 65(6এন-1)শর্তাদি) তারপরে তালিকা থেকে প্রয়োজনীয় মান গ্রহণ করে। অনুশীলনের জন্য আপনি ব্যবহার করতে চান তার দৈর্ঘ্যের জন্য একটি নির্দিষ্ট মানের সাথে দ্বিতীয় সর্বশেষ # প্রতিস্থাপন করুন।


+1, এটি মারাত্মক ওভারকিল তবে ব্রেভিটির জন্য পুরোপুরি কাজ করে!
কাই

@ জোনাথানফ্রেচ আমার ম্যাথজ্যাক্স ঠিক করার জন্য ধন্যবাদ। গণিতের থেকে কিছুটা আলাদা হিসাবে এটি এখানে কীভাবে সক্রিয় করা যায় তা আমি নিশ্চিত ছিলাম না
ইয়ান মিলার

দয়া করে মনে রাখবেন যে আসল সম্পাদনাটি এই ব্যবহারকারীর দ্বারা হয়েছিল ।
জোনাথন ফ্রেচ

উফফফ আমার খারাপ। @ জিজা-কেরেসসেনিকেও ধন্যবাদ।
ইয়ান মিলার

1

পিপ -l , 16 বাইট

x:YP6-,6W1PxCP:y

ক্রমটি অনির্দিষ্টকালের জন্য আউটপুট করে। এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

-lপতাকা মানে যে তালিকা তার নিজস্ব লাইনে প্রতিটি আইটেমের সঙ্গে ছাপা হয়; যদি কোনও আইটেম নিজেই একটি তালিকা থাকে তবে এর উপাদানগুলি কোনও বিভাজক না করে সম্মতিযুক্ত। যেমন তালিকা [1 [2 3] [4 [5 6]]]হিসাবে মুদ্রিত হবে

1
23
456

এটি পরিষ্কার হয়ে যাওয়ার সাথে:

x:YP6-,6W1PxCP:y
      ,6          Range(6): [0 1 2 3 4 5]
    6-            Subtract each element from 6: [6 5 4 3 2 1]
  YP              Yank that value into the y variable, and also print it
x:                Assign that value also to x
        W1        While 1 (infinite loop):
           xCP:    Assign to x the cartesian product of x with
               y   the list [6 5 4 3 2 1]
          P        Print it

প্রথম লুপ পুনরাবৃত্তির পরে xমনে হচ্ছে [[6;6];[6;5];[6;4];...;[1;1]]; দ্বিতীয় পুনরাবৃত্তির পরে [[[6;6];6];[[6;6];5];[[6;6];4];...;[[1;1];1]]; ইত্যাদি। সাবলিস্টগুলি সমতল করার বিষয়ে আমাদের চিন্তা করার দরকার -lনেই , কারণ এটি কার্যকরভাবে আমাদের জন্য করে।


1

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

NθWθ«←I⊕﹪±θ⁶≔÷⊖θ⁶θ

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

Nθ

ইনপুট n

Wθ«

nশূন্য না হওয়া পর্যন্ত পুনরাবৃত্তি করুন ।

←I⊕﹪±θ⁶

-nমডুলো হ্রাস করুন 6, তারপরে ফলাফলটি বাড়ান এবং ডান থেকে বামে আউটপুট।

≔÷⊖θ⁶θ

হ্রাস nএবং পূর্ণসংখ্যার দ্বারা এটি ভাগ করে নিন 6


1

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

.+
$*_
+`(_*)\1{5}(_+)
$1$.2
T`7-1`d

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

.+
$*_

অ্যানারিতে রূপান্তর করুন। (রেটিনা 1 এখানে 2 বাইট সংরক্ষণ করতে পারে))

+`(_*)\1{5}(_+)
$1$.2

বারবার ডিভোড দ্বারা বাইজিক বেস 6 এ রূপান্তর করুন। নোট করুন যে এর ব্যবহারের ফলে ব্যবহার করা হয়েছে +যে নিয়মিত বেস 6 রূপান্তরকরণের জন্য নিষ্কাশিত অঙ্কটি সর্বদা 0 থেকে 5 এর পরিবর্তে 1 থেকে 6 পর্যন্ত একটি সংখ্যা। ( (_{6})*দ্রুত হয় তবে ভাগফল বের করতে ব্যয় হয়)

T`7-1`d

অঙ্কগুলি স্থানান্তর করুন যাতে 6 টি প্রথম আসে এবং 1 টি শেষ হয়। (কোনও 7s বা 0s নেই তবে এটি আমাকে dশর্টকাট ব্যবহার করতে দেয় ।


1

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

এটি অনির্দিষ্টকালের জন্য ক্রম আউটপুট হবে। সাধারণ ধারণাটি হল এর একটি বেস নম্বর রয়েছে যা 6 - 1 যুক্ত করা হয়। প্রতিটি অ্যাডের জন্য ফলাফলটি 10 ​​দ্বারা গুণিত হয়, যা পরবর্তীতে ক্রমের জন্য ব্যবহৃত হবে স্ট্যাকের নীচে to বেসটি তখন পপ করা হয় এবং পরবর্তী বেসটি শুরু হয়।

..w.06+ONo*w;|uW!(pq;;

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

    . .
    w .
0 6 + O N o * w
; | u W ! ( p q
    ; ;
    . .

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


1

সি # (.নেট কোর) , অনন্ত মুদ্রণ, 181 180 88 বাইট।

string[] s=new string[]{" "},t;int i,j,k,l=1;while(true){j=l;t=new string[l=6*j];for(i=6;i>0;i--)for(k=(6-i)*j;k<l;)t[k]=i+s[k++%j];
for(k=0;k<l;)System.Console.Write(t[k++]);s=t;}

দুঃখের সাথে এটি লিখিত হিসাবে অসীম সংস্করণে সঠিকভাবে আউটপুট না দিয়ে repl.it হিমায়িত করে (আমি এটি repl.it এর একটি ত্রুটি বলে বিশ্বাস করি, কারণ এটি প্রোগ্রামটিকে যেমন করা উচিত লুপ হিসাবে এটি আউটপুট দেয় না), সুতরাং পরীক্ষার প্রত্যাশী যে কেউ তার একটি প্রয়োজন কম্পিউটার। আপনি যদি লুপের সামনে একটি পঠন যোগ করেন তবে এটি repl.it এও কাজ করে।

স্পষ্টতই কনসোল আউটপুট।

যে কোনও সীমাবদ্ধ সিস্টেমে কোড সম্ভবত শেষ পর্যন্ত মেমরির ত্রুটির বাইরে ক্রাশ হয়ে যায়।

@ ডানার ল্যাম্বদা ব্যবহার করার জন্য কোডটি পুনরায় তৈরি করা হয়েছে।

int f(int n)=>n-->0?f(n/6)*10+6-n%6:0;for(int i=0;++i>0;)System.Console.Write(f(i)+" ");

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


আমি ভালভাবে গল্ফ করেছি কিনা তা আমার কোনও ধারণা নেই।
স্ট্যাকস্টাক

অপ্রয়োজনীয় কে ++ সরিয়ে একটি বাইট সংরক্ষণ করা হয়েছে।
স্ট্যাকস্টাক

(এছাড়াও, আমি গল্ফিং সহায়তাকে ব্যাপকভাবে স্বাগত জানাই, আমি এটিতে খুব নতুন।
স্ট্যাকস্টাক

2
স্বাগতম :) আপনি যদি সি # তে গল্ফ করতে আগ্রহী হন তবে আপনি কিছু টিপসের জন্য এই পোস্টটি দেখতে চাইতে পারেন: কোডগলফ.স্ট্যাকেক্সেঞ্জিং
ডানা

1

ফোরথ (গফার্থ) , 63 বাইট

: f recursive dup 6 < if 6 - abs 1 .r else 6 /mod 1- f f then ;

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

0-ইনডেক্সড আউটপুটগুলি নবম মান

ব্যাখ্যা

যদি এন 6 এর চেয়ে কম হয় তবে এন - the এর নিখুঁত মান আউটপুট করুন অন্যথায়, ভাগ করে নিন এবং এন দ্বারা by দ্বারা বিভক্ত করার বাকী অংশটি ভাগ করে ফাংশনটি পুনরাবৃত্তভাবে কল করুন, তারপরে বাকীটিকে কল করুন।

কোড ব্যাখ্যা

: f                 \ start a new word definition
  recursive         \ declare that this word is recursive so we can call it from itself
  dup 6 <           \ check if n is less than 6
  if                \ if it is:
    6 - abs 1 .r    \ subtract 6, get the absolute value, then print with no appended space
  else              \ else if it's greater than 6:
    6 /mod          \ get the quotient and remainder of dividing n by 6
    1-              \ subtract 1 from the quotient (because we're 0-indexed)
    f               \ call f on the result
    f               \ call f on the remainder (shortcut to format and print, it's always < 6)
  then              \ end the if/else
;                   \ end the word definition

1

এপিএল (এনএআরএস), 27 টি অক্ষর, 54 বাইট

{0>⍵-←1:0⋄(6-6∣⍵)+10×∇⌊⍵÷6}

এপিএলে ডানা /codegolf//a/179980 দ্বারা সমাধান ট্র্যাসলেট করুন ... পরীক্ষা:

  f←{0>⍵-←1:0⋄(6-6∣⍵)+10×∇⌊⍵÷6}
  f 500
5625
  f¨750 1000 9329 9331 10000 100000
4531 3433 11112 666666 663633 6131233 
  f¨⍳9
6 5 4 3 2 1 66 65 64 

0

সি #, প্রিন্ট থেকে শুরু করে এন, ??? বাইট

লাম্বদা অভিব্যক্তির জন্য ক্রেডিট @ ডানা।

int f(int n)=>n-->0?f(n/6)*10+6-n%6:0;for(int i=0;i<int.Parse(a[0]);)System.Console.Write(f(++i)+" ");

ক্রিয়াকলাপ: কমান্ড লাইন 0 তম আর্গুমেন্টের সাথে চালান আপনি যে সংখ্যাটি গণনা করতে চান তার সমান। (এটি লক্ষ করা উচিত যে a[0]এটি অন্যথায় নিরীক্ষিত কমান্ড লাইন আরোগুলি অ্যারেগুলির একটি রেফারেন্স, এবং আমি কীভাবে এটি গণনা করতে জানি না))


যেহেতু কোডের একটি অংশটি একটি সম্পূর্ণ প্রোগ্রাম বা ফাংশনের পরিবর্তে একটি স্নিপার, তাই আমি ধরে নিই যে আপনি ভিজ্যুয়াল সি # ইন্টারেক্টিভ সংকলকটি ব্যবহার করছেন? আপনি কি পরীক্ষার কোড সহ একটি চেষ্টা করে অনলাইনে লিঙ্ক যুক্ত করতে পারেন? PS: আপনার বর্তমান বাইট-কাউন্টটি 102
কেভিন ক্রুইজসেন

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