টু সিক্স পার্শ্বযুক্ত ডাইসের 100 রোলসের যোগফল


14

ধরুন আপনার কাছে দুটি ছয় পার্শ্বযুক্ত পাশা রয়েছে। প্রতিটি জুটির যোগফল গণনা করে জোড়টি 100 বার রোল করুন। প্রতিটি যোগফল কত বার মুদ্রণ করুন। যদি কোনও যোগফল কখনও ঘূর্ণিত হয় না, আপনাকে অবশ্যই শূন্য বা কোনও কোনও উপায় অবশ্যই সনাক্ত করতে হবে যে সেই নির্দিষ্ট যোগফলটি কখনই ঘূর্ণিত হয়নি।

উদাহরণ আউটপুট: [3, 3, 9, 11, 15, 15, 11, 15, 7, 8, 3]

যোগফল কতবার ঘুরানো হয়েছিল তার যোগফলগুলিতে প্রতিনিধিত্ব করা হয় - 2

এই উদাহরণে, দু'জনের যোগফলকে 3 বার ([2-2]) ঘূর্ণিত করা হয়েছিল, তিনটি 3 বার ([3-2]), চারটি 9 বার ([4-2]) যোগফল, এবং তাই চালু. আলাদা ডাইস রোলগুলি মোটে পৌঁছানোর বিষয়টি বিবেচ্য নয় (5 এবং 2 সমষ্টি হিসাবে 6 এবং 1 হিসাবে গণনা করা হবে)

"কুশ্রী" আউটপুটগুলি ঠিক আছে (যতক্ষণ না আপনি কীভাবে ডেটা পড়তে হবে তা ব্যাখ্যা করার পরেও জেরোগুলির অতিরিক্ত লোড, অতিরিক্ত আউটপুট, ডেটা উপস্থাপনের অদ্ভুত উপায় ইত্যাদি) are


2
আপনি কি "প্রতিটি জুড়ির সংখ্যার বার প্রিন্ট আউট" বা "প্রতিটি যোগফলের পরিমাণ মুদ্রণ করে " বলতে চান?
ফলটি Esolanging

1
যদি কোনও নির্দিষ্ট যোগফল কখনও না আসে, তবে 0তালিকার মধ্যে কী দরকার আছে , বা এটি বাদ দেওয়া যেতে পারে?
গ্রেগ মার্টিন

1
বিভিন্ন মানগুলি কি ধারাবাহিকভাবে চিহ্নিতযোগ্য হওয়া প্রয়োজন বা একক হিসাবে গণনা করা যথেষ্ট?
জোনাথন অ্যালান

1
যদি আউটপুটটি প্রতিটি সংমিশ্রনের সংমিশ্রণের পরিমাণ হয়, তবে কেন আমাদের প্রতিটি রোলের মান যোগ করতে হবে? আমরা মোট কি করা উচিত? "কুৎসিত" বলতে কী বোঝ?
শেগি

1
extra outputতবে আমরা এখনও এলোমেলো সংখ্যার অসীম তালিকা আউটপুট করতে পারি না এবং এটিকে এলোমেলোভাবে কোথাও কোথাও উপস্থিত হতে পারি, তাই না? এটি একটি স্ট্যান্ডার্ড লুফোল আইরিস।
স্টিফেন

উত্তর:


5

জেলি , 13 12 বাইট

³Ḥ6ẋX€+2/ṢŒr

একটি নীলাদিক লিঙ্ক। আউটপুট ফর্ম্যাট হল তালিকার একটি তালিকা [value, count]

(জিরো রোলস এর অর্থ আউটপুটে এ জাতীয় কোনও এন্ট্রি উপস্থিত নেই - যেমন একটি আউটপুট [[6, 12], [7, 74], [8, 14]]সনাক্ত করতে পারে যে কেবল ছয়, সাত এবং আট এর যোগফলগুলি ঘূর্ণিত হয়েছিল))

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

কিভাবে?

³Ḥ6ẋX€+2/ṢŒr - Main link: no arguments
³            - 100
 Ḥ           - double = 200
  6          - 6
   ẋ         - repeat -> [6,6,6...,6], length 200
    X€       - random integer from [1,z] for €ach (where z=6 every time)
       2/    - pairwise reduce with:
      +      -   addition (i.e. add up each two)
         Ṣ   - sort
          Œr - run-length encode (list of [value, length] for each run of equal values)

4

পাইথন 2 , 84 77 76 বাইট

-7 বাইট @ জোনাথান অ্যালানকে ধন্যবাদ -১ বাইট @
ফিলিপনার্ডিবাটিস্টাকে ধন্যবাদ

from random import*
a=[0]*13
exec'a[%s]+=1;'%('+randint(1,6)'*2)*100
print a

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

আউটপুটে দুটি শীর্ষস্থানীয় জিরো রয়েছে


by 76 বাইট টিআইও-
ফিলিপ

3

05 এ বি 1 ই , 21 19 বাইট

-2 বাইটস @ এমিগানাকে ধন্যবাদ

TÝÌтF6Lã.RO¸ì}{γ€g<

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

TÝÌтF6Lã.RO¸ì}{γ€g<
TÝÌ                   Range from 2 to 12
   тF                 100 times do:
     6L                 Range from 1 to 6
       ã                Cartesian product (creates all possible pairs of 1 and 6)
        .RO             Choose random pair and sum
           ¸ì           Prepend result to initial list
             }        end loop
              {γ€g<   Sort, split on consecutive elements, count and decrement

TÝÌтF6Lã.RO¸ì}{γ€g<2 বাইট সঞ্চয়
এমিগনা

এমিলিগা, লুপিং আরও কম হওয়ার আশা করেনি, ধন্যবাদ!
kalsowerus

2

গণিত, 50 বাইট

r:=RandomInteger@5
Last/@Tally@Sort@Table[r+r,100]

সোজা বাস্তবায়ন। যদি কোনও যোগফল কখনও অর্জন না করা 0হয় তবে তালিকাটি বাদ দেওয়া হয়।


2

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

6H100I$Yrs!11:Q=s

আউটপুট হ'ল স্পেস দ্বারা বিভক্ত 11 টি সংখ্যার (তাদের মধ্যে কয়েকটি সম্ভবত 0) একটি তালিকা যা 2 থেকে 12 এর মধ্যে প্রতিটি জোড়ার সময় সংখ্যা নির্দেশ করে।

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

তুলনার জন্য, তাত্ত্বিক গড় সংখ্যার প্রতিটি জুটি গড় হিসাবে প্রদর্শিত হবে হিসাবে গণনা করা যেতে পারে 6:gtY+36/100*

যদি রোলসের সংখ্যা বৃদ্ধি করা হয় তবে প্রাপ্ত মানগুলি তাত্ত্বিকগুলির কাছে যায়। উদাহরণস্বরূপ 10000 রোল সহ প্রাপ্ত এবং তাত্ত্বিক মানগুলি দেখুন।


2

সিজেম, 18 20 বাইট

100{;6mr6mr+))}%$e``

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


এটি একটি কুৎসিত বিন্যাসে আউটপুট দেয় - প্রতিটি রোল যে পরিমাণে ঘটেছিল তা ধারাবাহিক বিভাগগুলির দৈর্ঘ্য হিসাবে প্রতিনিধিত্ব করা হয়।
ফলটি Esolanging

@ জোনাথান অ্যালান ঠিক আছে, ঠিক আছে। e` মাত্র দুটি বাইট লাগে।
24:25

2

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

bag [Z+] (^6).pick xx 100 xx 2

(^6).pickশূন্য থেকে পাঁচের মধ্যে একটি এলোমেলো সংখ্যা। xx 100এই জাতীয় সংখ্যার একটি শত উপাদান তালিকা তৈরি করে। xx 2যেমন দুটি তালিকা উত্পাদন করে। [Z+]দুটি ডাই রোলগুলির একশ-উপাদান তালিকা তৈরি করে সংযোজন সহ এই দুটি তালিকা জিপ করুন। অবশেষে, bagতালিকাটি একটি ব্যাগে রাখে, যা বহুগুণ সহ a REPL আউটপুট উদাহরণ:

bag(1(4), 9(4), 0(4), 4(14), 5(18), 3(9), 10(2), 6(19), 7(13), 2(3), 8(10))

এর অর্থ 1, 9, এবং 0 এর চারবার প্রতিটি ঘটেছে, চারটি চৌদ্দ বার হয়েছিল ইত্যাদি this স্ট্যান্ডার্ড 1-6 পাশা উত্পাদিত হবে।


কি দারুন. পার্ল 6 একটি শক্তি হিসাবে গণনা করা।
জ্যাকব

তবে, "যদি কোনও যোগফল কখনই ঘূর্ণিত হয় না, আপনাকে অবশ্যই শূন্য বা কোনও কোনও উপায় অবশ্যই শনাক্ত করতে হবে যে সেই নির্দিষ্ট পরিমাণটি কখনই ঘূর্ণিত হয়নি" " ব্যাগ সমাধান এটি সন্তুষ্ট বলে মনে হচ্ছে না।
জ্যাকব

যদি কোনও নির্দিষ্ট নম্বর ঘূর্ণিত না করা হয়, তবে ব্যাগটিতে নম্বরটির অনুপস্থিতি থেকে সেই পরিস্থিতি চিহ্নিত করা যেতে পারে।
শান

2

আর , 45 37 বাইট

-7 বাইট জারকো ডাবলডামকে ধন্যবাদ

s=sample;table(s(6,100,T)+s(6,100,T))

উপাদানগুলির একটি টেবিল অবজেক্ট এবং প্রত্যেকটির গণনা প্রদান করে। ঘটেনি এমন কোনও মান বাদ দেয়।

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

পুরাতন রুপ:

rle(sort(colSums(matrix(sample(6,200,T),2))))

sample(6,200,T) থেকে 200 বার নমুনা 1:6প্রতিস্থাপনের সাথে অভিন্নভাবে , তারপরে এটি 2 টি সারি দিয়ে একটি ম্যাট্রিক্স তৈরি করে, কলামগুলিকে যোগ করে, তারপরে এটিকে আরোহী ক্রমে সাজিয়ে তোলে এবং রানগুলির দৈর্ঘ্য গণনা করে। অর্জিত না হওয়া যে কোনও ডাইসের পরিমাণ বাদ দেয়।

একটি rleঅবজেক্ট ফেরত দেয় , যা নিম্নলিখিত ফরম্যাটে ডিফল্টরূপে মুদ্রণ করে:

Run Length Encoding
  lengths: int [1:11] 5 6 8 12 12 20 12 11 4 7 ...
  values : num [1:11] 2 3 4 5 6 7 8 9 10 11 ...

lengthsগণনাগুলি কোথায় এবং valuesতা হ'ল পাশের অঙ্কগুলি।

টিআইও লিঙ্ক


1

পিএইচপি, 53 বাইট

একটি সহযোগী অ্যারে মুদ্রণ। কী দুটি ডাইসের ফলাফল এবং মান এই ফলাফলগুলির গণনা

for(;$i++<100;)$r[rand(1,6)+rand(1,6)]++;print_r($r);

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


If a sum was never rolled, you must include a zero or some way to identify that that particular sum was never rolled.
টাইটাস

1

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

"কুরুচিপূর্ণ" আউটপুট হিসাবে অনুমোদিত হিসাবে দেখা হচ্ছে, নিম্নলিখিত স্কোরগুলিতে 2-12 থেকে প্রতিটি স্কোর ঘুরানো বারের সংখ্যার সমন্বিত একটি অ্যারে আউটপুট দেবে, যার সাথে অতিরিক্ত 89 টি উপাদান 0 হয়ে যাবে।

_=>(a=Array(100).fill(0)).map(_=>a[g()+g()]++,g=_=>Math.random()*6|0)&&a

f=
_=>(a=Array(100).fill(0)).map(_=>a[g()+g()]++,g=_=>Math.random()*6|0)&&a
o.innerText=f()
<pre id=o>


আপনি কি 99 বা 20 বা মাত্র 12 এর পরিবর্তে 100 উপাদান তৈরি করতে একটি বাইট নষ্ট করছেন না?
রোহান ঝুনঝুনওয়ালা

@ রোহানঝুনঝুনওয়ালা, চ্যালেঞ্জটিতে দুটি পাশ্বের ১০০ রোল রেকর্ড করা হয়েছে।
শেগি

ওহ, আমি ভেবেছিলাম রোলগুলি সঞ্চয় করার জন্য কেবলমাত্র 100 টি উপাদান অ্যারে শুরু করছি।
রোহান ঝুনঝুনওয়ালা

1

সিলোস , 99 বাইট

i=100
lbla
x=rand*6+rand*6
a=get x
a+1
set x a
i-1
if i a
lblb
c=get b
printInt c
b+1
d=11-b
if d b

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

ডাইস রোলস করে, এবং সেগুলি গর্তের প্রথম 11 দাগগুলিতে সঞ্চয় করে, তারপরে প্রতিটি কাউন্টারে printingিপি প্রিন্ট করে কেবল পুনরাবৃত্তি করে। এটি একটি অ্যাসাইনমেন্ট অপারেটরের সাথে মিলিত র‌্যান্ড কীওয়ার্ডের প্রথম রেকর্ড করা ব্যবহারগুলির মধ্যে একটি।

এটি লক্ষণীয় যে রোলগুলির একটি হিস্টগ্রাম আউটপুট দেওয়ার জন্য কয়েকটি পরিবর্তন করা যেতে পারে। এখানে চিত্র বর্ণনা লিখুন

দুর্ভাগ্যক্রমে এটি অবশ্যই অফলাইন দোভাষী থেকে চালানো উচিত ।

i=4000
lbla
x=rand*6+rand*6
a=get x
a+1
set x a
i-1
if i a
canvas 1100 1000 Output
lblb
c=get b
printInt c
d=c*1
y=1000-d
x=b*100
newObj 0 100 d
moveObj b x y
b+1
d=11-b
if d b
wait 10000

1

এলিক্সির, 157 118 বাইট

l=&Enum.random(1..&1)
p=fn(o,s)->y=l.(6)+l.(6)
s=List.update_at(s,y,&(&1+1))
if Enum.sum(s)<100 do s=o.(o,s) end
s end

জেলির চেয়ে শক্ত কিছু করার চেষ্টা করল।

ব্যাখ্যা:

  1. ফাংশনটি সংজ্ঞায়িত করুন যা অন্তর্ভুক্ত 1 এবং 6 এর মধ্যে একটি এলোমেলো সংখ্যা দেয়।
  2. ফাংশনটি বেনামে সংজ্ঞায়িত করুন এবং yরোল যোগফলের সাথে চলক হয়ে উঠুন।
  3. 1 যুক্ত করে তালিকার উপযুক্ত স্থান আপডেট করুন।
  4. আমরা যদি 100 রোল ইন করি তবে প্রস্থান করুন। অন্য নিজেকে নিজেকে এবং আপডেট তালিকায় পাস আবার কল।
  5. আপডেট অ্যারে ফিরিয়ে দিন।

যেমন বলা উচিত p.(p,[0,0,0,0,0,0,0,0,0,0,0,0,0])। এটি একটি সতর্কতা বাড়িয়ে তুলবে, তবে এটি 13 টি উপাদান সহ পছন্দসই অ্যারেটি ফিরিয়ে দেবে, প্রথম 2 টি উপেক্ষা করা উচিত।


1

জাভা 8, 104 বাইট

একটি ল্যাম্বদা int[]ফ্রিকোয়েন্সিগুলির একটি ফেরত দেয় । এতে হস্তান্তর Supplier<int[]>

()->{int o[]=new int[11],i=0;while(i++<100)o[(int)(Math.random()*6)+(int)(Math.random()*6)]++;return o;}

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

অবহেলিত ল্যাম্বদা

() -> {
    int
        o[] = new int[11],
        i = 0
    ;
    while (i++ < 100)
        o[(int) (Math.random() * 6) + (int) (Math.random() * 6)]++;
    return o;
}

1

q / kdb +, 31 28 25 বাইট

সমাধান:

sum!:[11]=/:sum(2#100)?'6

উদাহরণ:

q)sum!:[11]=/:sum(2#100)?'6
1 3 5 11 16 21 16 9 8 9 1i

ব্যাখ্যা:

একটি পাশা ঘূর্ণায়মান 100?6, আবার একটি পাশা ঘূর্ণিত এবং ভেক্টর একসাথে যোগ করুন। তারপরে দেখুন প্রতিটি ফলাফল 0..10 এর সীমার সাথে মিলে যায়, তারপরে প্রতিটি তালিকার সমস্ত ট্রু যোগ করুন:

sum til[11]=/:sum(2#100)?'6 / ungolfed solution
                 (2#100)    / 2 take 100, gives list (100;100)
                        ?'6 / performs rand on each left-each right, so 100 & 6, 100 & 6
              sum           / add the lists together
    til[11]                 / the range 0..10
           =/:              / apply 'equals?' to each right on left list
sum                         / sum up the results, e.g. how many 1s, 2s, 3s.. 12s

মন্তব্য:

'গল্ফিং' বেশিরভাগ সমতুল্যের qজন্য মূলশব্দ অদলবদল করে k, যেমন eachএবং til


0

কিউবিআইসি , 45 বাইট

[100|h=_r1,6|+_r1,6|-2┘g(h)=g(h)+1][0,z|?g(b)

ব্যাখ্যা:

[100|         FOR a = 1 to 100
h=_r1,6|       set h to a random value between 1-6
 +_r1,6|       + another rnd(1,6) (2, 3 ... 11, 12)
 -2            - 2 (index: 0 ... 10
┘             Syntactic linebreak
g(h)          When using array parenthesis on an undefined array,
              it is interpreted as an array with 10 indexes of all zeroes.           
    =         Of array g, set the value of index h (0 ... 11)
      g(h)+1  to one higher (all indices start out as 0)
              Note that we need to track 11 values. Fortunately, QBasic'set
              empty, 10-sized array has 11 indices, because of base 0 / base 1 ambiguity.
]             NEXT set of dice
[0,z|         FOR b = 0 to 10
?g(b)           PRINT the tracker array

0

এপিএল, 14 বাইট

,∘≢⌸+/?100 2⍴6

বাম কলামের যোগফল এবং ডান সংঘটনগুলির সংখ্যা উপস্থাপন করে একটি টেবিল হিসাবে ডেটা উপস্থাপন করে।

ব্যাখ্যা

        100 2⍴6  ⍝ create an 2×100 array of 6
       ?         ⍝ roll for each cell from 1 to 6
     +/          ⍝ sum every row
   ⌸            ⍝ for every unique sum
,∘≢              ⍝ get the sum and the number of indexes

পূর্ববর্তী পোস্ট:

এপিএল, 36 31 বাইট

5 অ্যাডমকে ধন্যবাদ বাইটস সংরক্ষণ করেছে

(11⍴⍉⌽f)[⍋11⍴⍉f←,∘≢⌸+/?100 2⍴6]

ব্যাখ্যা

f←,∘≢⌸+/?100 2⍴6
          100 2⍴6    ⍝ create an 2×100 array of 6
         ?           ⍝ roll for each cell from 1 to 6
       +/            ⍝ sum every row
     ⌸              ⍝ for every unique sum
  ,∘≢                ⍝ get the sum and the number of indexes

(11⍴⍉⌽f)[⍋11⍴⍉f]  ⍝ ⍋x returns the indexes of the sorted x in the current x  
                     ⍝ x[y] find the yth elements of x
                     ⍝ x[⍋y] reorders x the same way that would be required to sort y

            11⍴⍉f   ⍝ the column of sums - see below
 11⍴⍉⌽f            ⍝ the column of counts - see below

কিভাবে 11⍴⍉⌽fকাজ করে?

⍝ ⌽ - Reverses the array
⍝ ⍉ - Transposes the array

  ⍝   f
 9 14   ⍝ Sum - Occurences
 4  9
 7 17
 8 18
 6 15
 5  7
10  3
11  5
 3  6
 2  2
12  4

  ⍝   ⍉f
 9 4  7  8  6 5 10 11 3 2 12  ⍝ Sum
14 9 17 18 15 7  3  5 6 2  4  ⍝ Occurences

  ⍝   ⍉⌽f
14 9 17 18 15 7  3  5 6 2  4  ⍝ Occurences
 9 4  7  8  6 5 10 11 3 2 12  ⍝ Sum

বিবৃতি সংমিশ্রণ করে এবং অপারেন্ডকে (11⍴⍉⌽f)[⍋11⍴⍉f←,∘⍴⌸+/?100 2⍴6]
সুস্বাদু

দুঃখিত, আপনি আমার অন্তর্ভুক্ত করার সময় আমার পরামর্শটি সম্পাদনা করেছি। সারণী অপারেন্ড লক্ষ্য করুন।
Adám

যাইহোক, ওপি যেকোন দ্ব্যর্থহীন আউটপুট ফর্ম্যাটকে অনুমতি দেয়, সুতরাং ,∘⍴⌸+/?100 2⍴6এটি যথেষ্ট হওয়া উচিত, কারণ এটি সংখ্যার পরিমাণগুলি তালিকাভুক্ত করে (সুতরাং কোনটি সেখানে নেই তা নির্দেশ করে) এবং তাদের ফ্রিকোয়েন্সিগুলি (যাতে কোনও বাছাইয়ের প্রয়োজন হয় না)।
Adám

0

> <> , 93 বাইট

00[0[v
v 1\v/4
v 2xxx5
v 3/^\6
>l2(?^+]laa*=?v0[
  /&1+&\ v1&0]<
=?/ :?!\}>:@@:@
oa&0n&}< ^+1

এটি অনলাইনে চেষ্টা করে দেখুন , বা এটি মাছের খেলার মাঠে দেখুন !

কুশ্রী আউটপুট ফরম্যাট সংখ্যার একটি ক্রম নতুন লাইন, যেখানে দ্বারা পৃথক করা হয় এন ম সংখ্যা বলছেন কতবার সমষ্টি ছিল এটা কুৎসিত কারণ এটি সব সময় প্রবেশ করুন ছাপে, সমস্ত ধনাত্মক পূর্ণসংখ্যা জন্য - এন (যদিও লাইনের সবচেয়ে 0. হতে হবে টিআইও লিঙ্কটি n এর পরে থামার জন্য পরিবর্তন করা হয়েছে 5 বাইটের ব্যয়ে = 12 এর )

মাছের খেলার মাঠটি বেশ ধীর গতিতে - শীর্ষ গতিতে এন = 12 পর্যন্ত মুদ্রণ করতে প্রায় সাড়ে তিন মিনিট সময় লাগে - সুতরাং আপনি aa*এটি 5 তম লাইনে পরিবর্তন করে 100 এর পরিবর্তে 10 জোড়া ডাইলে রোল করতে চান a  (এটি aদুটি স্পেস অনুসরণ করে)।

এলোমেলো পাশা রোলগুলি এই বিট দ্বারা সম্পন্ন হয়:

1\v/4
2xxx5
3/^\6

দ্য xগুলি মাছের দিক এলোমেলোভাবে পরিবর্তন করুন। এটি সমান সম্ভাব্যতার সাথে বাস্তবায়িত বলে ধরে নিলে, এটি স্পষ্ট যে ডাই রোলের ফলাফলটি প্রতিসাম্য দ্বারা অভিন্ন বিতরণ।

একবার মাছ পাশা 100 জোড়া ঘূর্ণিত করেছে, এটা বড়, মোট ছাত্র কতবার সমষ্টি ছিল এন (স্বচ্ছতার জন্য unwrapped এবং শীর্ষস্থানীয় শুরু বাম) এই বিট সঙ্গে

v       /&1+&\
>:@@:@=?/ :?!\}
^   +1oa&0n&}<

আমরা স্ট্যাকের সামনের দিকে n রাখি, এবং এন প্রদর্শিত হবে তার সংখ্যা গণনা করতে রেজিস্টারটি ব্যবহার করি ।


0

জাভাস্ক্রিপ্ট 85 75 টি অক্ষর

ধন্যবাদ শেগি!

a=[]
for(i=100;i--;)a[o=(f=_=>Math.random()*6|0)()+f()]=(a[o‌​]|0)+1
alert(a)

ইতিহাস

85

a={}
f=_=>Math.random()*6
for(i=0;i++<100;)a[o=-~f()-~f()]=(a[o]||0)+1
console.log(a)

আপনাকে এর জন্য কয়েকটি সঞ্চয় দেওয়ার অর্থ রাখে; আপনার সমাধানটির খুব দ্রুত গল্ফ করা 75 বাইট সংস্করণ এখানে রয়েছে:a=[];for(i=100;i--;)a[o=(f=_=>Math.random()*6|0)()+f()]=(a[o]|0)+1;alert(a)। (দ্রষ্টব্য: এই উদাহরণস্বরূপ, আইআইএফই কোনও বাইট সংরক্ষণ করে না এবং ব্যয়ও করে না তবে এমন সময় আসে যখন এটি আপনাকে একটি বাইট বা 2 বাঁচাতে পারে, তাই এটি আপনার "গল্ফব্যাগ" এ রাখা সুবিধাজনক))
শেগি

ওহ, দুর্দান্ত, ধন্যবাদ সেখানে কার্যকর কৌশল! আকর্ষণীয় এটি |0হ'ল "ম্যাথ.ফ্লুর ()" এর গোল্ফ সমাধান এবং "অপরিজ্ঞাতকে 0 এ রূপান্তর করুন" to
স্টিভ বেনেট


0

পিএইচপি, 65 বাইট

while($i++<100)${rand(1,6)+rand(1,6)}++;for(;++$k<13;)echo+$$k,_;

একটি শীর্ষস্থানীয় 0_এবং তারপরে 2 থেকে 12 এর ইভেন্টগুলি ছাপায় এবং তারপরে প্রতিটি আন্ডারস্কোর অনুসরণ করে। এটি
দিয়ে চালান -nrবা অনলাইনে চেষ্টা করুন


0

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

সমাধান:

+/(!11)=/:+/(2#100)?'6

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

ব্যাখ্যা:

kআমার qসমাধানের 'বন্দর' । মূল্যায়ন ডান থেকে বামে ঘটে, তাই টিল ( !) এর চারদিকে বন্ধনী

+/(!11)=/:+/(2#100)?'6 / the solution
            (2#100)    / the list (100;100)
                   ?'6 / take 6 from each left/each right (roll the dice twice)
           +/          / sum rolls together
  (!11)                / til, performs range of 0..n-1, thus 0..10
       =/:             / equals each right (bucket the sum of the rolls)
+/                     / sum up to get counts per result

সম্পাদনা:

  • -২ বাইট প্রতিটি-উভয়ের জন্য প্রতিটি-বামে স্যুইচ করে এবং প্রতিটি-বাম + প্রতিটি-ডানদিকে ফ্লিপ করে

0

পাইথ, 21 বাইট

V100aY,O6O6)VTlfqsTNY

রোলগুলি তৈরির প্রতিটি পদক্ষেপ আউটপুট করে, তারপরে পৃথক লাইনে প্রতিটি যোগফল 0 - 10 এর আউটপুট দেয়।


V100aY,O6O6)VTlfqsTNY Full program, no input, outputs to stdout
V100                  For N from 0 to 100
    a ,O6O6           Append a pair of random ints below 6
     Y                To a list Y, initialized to the empty list
           )          Then
            VT        For N from 0 to 10
              f     Y Print Y filtered to only include pairs
                q  N  For which N is equal to
                 sT   The sum of the pair

0

জাভা (ওপেনজেডিকে 8) , 95 বাইট

a->{int r[]=new int[11],i=0,d=0;for(;i++<200;)r[d+=Math.random()*6]+=i%2<1?1-(d=0):0;return r;}

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

ব্যাখ্যা

a->{
  int r[] = new int[11],     // Rolls or result
      i   = 0,               // Iteration
      d   = 0;               // Dice accumulator
  for (;i++<200;)
    r[d+=Math.random()*6] += // Accumulate a new die and start an addition
     i % 2 < 1               // Accumulate up to two dice
       ? 1 - (d = 0)         // If we're at 2 dice, reset the accumulator and add 1
       : 0;                  // If we only have one die, add 0
  return r;
}
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.