Вызов

Я нападаю на похищенную Полуночную Команду, и мне нужно вызвать Каскад Судебного Кости Судного Дня , чтобы защитить себя. Поскольку у меня мало места, мне нужно, чтобы код был максимально коротким.

Алгоритм Catenative Domsday Dice Cascader выглядит следующим образом:

Сначала бросается шестигранный кристалл в Prime Bubble, и результат будет определять, сколько итераций следующего шага будет выполнено.

Начните с шестигранного кубика. На столько раз, сколько выпадет кубик Первого Пузыря, умножьте количество сторон на следующем кристалле на результат броска текущего кристалла. Например, если на вашем первом броске шестигранного кубика ваш бросок равен 2, то у вашего следующего кубика будет 6 * 2 = 12 сторон.

Ваша цель - написать функцию или программу, которая не требует ввода и выводит конечный результат последнего броска кубика. Поскольку это код-гольф , выигрывает самое низкое число байтов на каждом языке!

Примеры

Пример № 1 (взят по ссылке выше):

The Prime Bubble rolls a 6, meaning that the Cascader will iterate six times

#1: We always start with a 6 sided die, and it rolls a 2, so the next die has 6x2=12 sides
#2: The 12 sided die rolls an 8, meaning that the third die has 12x8=96 sides
#3: The 96 sided die rolls a 35, meaning that die 4 has 96x35=3360 sides
#4: The 3360 sided die rolls a 2922, so die 5 has 3360x2922 = 9,817,920 sides
#5: The 9.8 million sided die rolls a 5,101,894, so the final die has 50,089,987,140,480 sides
#6: The 50 trillion sided die rolls a one. Hooray. 
Since the last die rolled gave a 1, your function or program should output 1.

Пример № 2

The Prime Bubble rolls a 2, meaning that the Cascader will iterate twice.

#1: We always start with a 6 sided die, and it rolls a 4, so the next die has 6x4 = 24 sides
#2: The 24 sided die rolls a 14

Since the last die rolled gave a 14, your function or program should output 14.

Python 2 , 76 69 байт

from random import*
R=randint
v=6;exec"p=R(1,v);v*=p;"*R(1,6)
print p

Попробуйте онлайн!

Perl 6 , 43 37 байт

-6 байт благодаря nwellnhof

{(6,{roll 1..[*] @_:}...*)[1+6.rand]}

Попробуйте онлайн!

Блок анонимного кода, который возвращает результат игры в кости конца света.

Объяснение:

{                                   }   # Anonymous code block
 (                       )[1+6.rand]    # Take a random number from
                     ...*               # The infinite list of
  6,{roll 1..[*] @_:}                   # Cascading dice values
  6,                                    # Starting from 6
    {roll          :}                   # And choosing a random value from
          1..                           # One to
             [*] @_                     # The product of every value so far

Wolfram Language (Mathematica) , 43 байта

(r=RandomInteger)@{1,Nest[r@{1,#}#&,6,r@5]}

Попробуйте онлайн!

J , 21 байт

1+[:?(*1+?)^:(?`])@6x

Попробуйте онлайн!

+6 байт благодаря логической проблеме, обнаруженной FrownyFrog

ПРИМЕЧАНИЕ: у J нет ниладических глаголов. Однако этот глагол будет работать одинаково, независимо от того, какой аргумент вы ему дадите. В примере TIO я звоню с этим 0, но я мог бы использовать 99или ''просто так.

как

• 1+ добавить один к ...
• [:?один рулон п-сторонний штампа (стороны чтение 0к n-1), где число nопределяется ...
• (*1+?)возьмите текущий аргумент yи ?выполните бросок, чтобы получить случайное число между 0и y-1. 1+делает это 1до y, включительно. Наконец, *создается J-хук, который умножит это yснова.
• ^: сделать это много раз ...
• (?`]) ?бросьте начальный аргумент, который 6должен определить, сколько раз повторить. Если мы бросим 0(соответствует a 1на Prime Bubble), аргумент будет проходить без изменений. ]Указывает на то, что 6, без изменений, будет исходное значение повторяется (*1+?)глагол , который определяет значение матрицы для конечного рулона.
• @6xприсоединяет константный глагол 6, так что мы можем вызвать его с чем угодно, и xзаставляет J использовать расширенное целочисленное вычисление, которое нам нужно для, возможно, огромных чисел.

K (ок) , 32 байта

Решение:

*|{x,1+1?x:(*).x}/[*a;6,a:1+1?6]

Попробуйте онлайн!

Начните с 6 и «1 выберите 6», итерируйте «1 выберите 6» раз:

*|{x,1+1?x:(*).x}/[*a;6,a:1+1?6] / the solution
  {             }/[n;    c     ] / iterate over lambda n times with starting condition c
                            1?6  / 1 choose 6, between 0..5 (returns a list of 1 item)
                          1+     / add 1 (so between 1..6)
                        a:       / store as 'a'
                      6,         / prepend 6, the number of sides of the first dice
                   *a            / we are iterating between 0 and 5 times, take first (*)
           (*).x                 / multi-argument apply (.) multiply (*) to x, e.g. 6*2 => 12
         x:                      / save that as 'x'
       1?                        / 1 choose x, between 0..x-1
     1+                          / add 1 (so between 1..x)
   x,                            / prepend x
*|                               / reverse-first aka 'last'

Вы можете увидеть итерации, переключив переключатель для сканирования , например

(6 3        / 1 choose 6 => 3, so perform 3 iterations
 18 15      / 1 choose (6*3=18) => 15
 270 31     / 1 choose (18*15=270) => 31
 8370 5280) / 1 choose (270*31=8730) => 5280

Желе , 9 байт

6X×$5СXX

Ссылка niladic, которая дает положительное целое число.

Попробуйте онлайн!

Сохранение байта более очевидным 6X×$6X’¤¡X

Как?

6X×$5СXX - Link: no arguments
6         - initialise left argument to 6
    5С   - repeat five times, collecting up as we go: -> a list of 6 possible dice sizes
   $      -   last two links as a monad = f(v):           e.g [6,18,288,4032,1382976,216315425088]
 X        -     random number in [1,v]                     or [6,6,6,6,6,6]
  ×       -     multiply (by v)                            or [6,36,1296,1679616,2821109907456,7958661109946400884391936]
       X  - random choice (since the input is now a list) -> faces (on final die)
        X - random number in [1,faces]

05AB1E , 10 байтов

X6DLΩF*DLΩ

Случайный выбор, встроенный для больших списков, довольно медленный, поэтому может привести к тайм-ауту, если бросок премьер-пузыря, например, равен 6.

Попробуйте онлайн или попробуйте онлайн с добавленными принтами, чтобы увидеть роллы . (TIO использует устаревшую версию 05AB1E, поскольку она немного быстрее.)

Объяснение:

X           # Push a 1 to the stack
 6          # Push a 6 to the stack
  D         # Push another 6 to the stack
   L        # Pop the top 6, and push a list [1,2,3,4,5,6] to the stack
    Ω       # Pop and push a random item from this list (this is out Prime Bubble roll)
     F      # Loop that many times:
      *     #  Multiply the top two values on the stack
            #  (which is why we had the initial 1 and duplicated 6 before the loop)
       D    #  Duplicate this result
        LΩ  #  Pop and push a random value from its ranged list again
            # (after the loop, output the top of the stack implicitly)

Желе , 9 байт

6×X$X’$¡X

Попробуйте онлайн!

Ответ Джонатана Аллана утверждает, что это

Сохранение байта более очевидным 6X×$6X’¤¡X

, На самом деле, нам не нужно делать такую ​​большую модификацию. Следовательно, это альтернативный подход к ответу Джонатана Аллана, а также место отдыха для моего первоначального неверного 6-байтового символа. :(

Perl 5 , 54 байта

$a=6;map$a*=$r=1+int rand$a,0..rand 6;say 1+int rand$r

Попробуйте онлайн!

Древесный уголь , 16 байт

⊞υ⁶Ｆ⊕‽⁶⊞υ⊕‽ΠυＩ⊟υ

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

⊞υ⁶

Нажмите 6 в предварительно определенный список.

Ｆ⊕‽⁶

Повторите случайное количество раз от 1 до 6 ...

⊞υ⊕‽Πυ

... вставить случайное число от 1 до произведения списка в список.

Ｉ⊟υ

Выведите последний номер, добавленный в список.

Альтернативный подход, также 16 байтов

≔⁶θＦ‽⁶≧×⊕‽θθＩ⊕‽θ

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

≔⁶θ

Установите количество сторон 6.

Ｆ‽⁶

Повторите случайное число от 0 до 5 раз ...

≧×⊕‽θθ

... умножить количество сторон на случайное число от 1 до количества сторон.

Ｉ⊕‽θ

Выведите случайное число от 1 до количества сторон.

Python 3 , 76 байт

from random import*
r=randint
a=6
for i in" "*r(0,5):a*=r(1,a)
print(r(1,a))

Попробуйте онлайн!

-2 байта благодаря TFeld

R , 43 байта

s=sample
for(i in 1:s(k<-6))T=s(k<-k*T,1)
T

Попробуйте онлайн!

kотслеживает текущее количество граней на кристалле. Использует тот факт, что Tинициализируется как 1.

Я попробовал несколько других вещей, но не смог побить этот простой, прямой подход.

Желе , 10 байт

6×X$6X’¤¡X

Попробуйте онлайн!

объяснение

       ¤   | Following as a nilad:
    6X     | - A random number between 1 and 6
      ’    | - Decrease by 1 (call this N)
6          | Now, start with 6
   $    ¡  | Repeat the following N times, as a monad
 ×         | - Multiply by:
  X        |   - A random number between 1 and the current total
         X | Finally, generate a random number between 1 and the output of the above loop

Рубин , 41 байт

r=6;rand(2..7).times{r*=$s=rand 1..r};p$s

Попробуйте онлайн!

объяснение

r=6                                 # Set dice number to 6

rand(2..7).times{               }   # Repeat X times, where X=dice roll+1
                 r*=$s=rand 1..r    # Multiply dice number by a dice roll
                                    # Save the most recent dice roll

p$s                                 # Print last dice roll (this is why
                                    #  we did the last step one extra time)

Java 10, 214 93 86 байт

v->{int r=6,n=0;for(var d=Math.random()*6;d-->0;n*=Math.random(),r*=++n)n=r;return n;}

Попробуйте онлайн или попробуйте онлайн с дополнительными линиями печати, чтобы увидеть шаги .

intjava.math.BigInteger$6^{32}$intlongBigIntegerintBigIntegers

Объяснение:

v->{                        // Method with empty unused parameter & integer return-type
  int r=6,                  //  The range in which to roll, starting at 6
      n=0;                  //  The roll itself (which must be initialized, therefor is 0)
  for(var d=Math.random()*6;//  Roll the Prime Bubble Dice
      d-->0                 //  Loop that many times:
      ;                     //    After every iteration:
       n*=Math.random(),    //     Roll a random dice in the range [0, n)
       r*=++n)              //     Increase `n` by 1 first with `++n`, so the range is [1,n]
                            //     And then multiply `r` by `n` for the new range
    n=r;                    //   Set `n` to `r`
  return n;}                //  After the loop, return `n` as result

PHP , 59 байт

$r=$q=rand(1,$s=6);while($l++<$q)$r=rand(1,$s*=$r);print$r;

расширен:

$r=$q=rand(1,$s=6);
while($l++<$q)$ 
    r=rand(1,$s*=$r);
print$r;

Не уверен, если я должен включить открытый тег.

На моей машине происходит сбой, если $s*$rон слишком большой, поэтому $q>=5иногда он не печатается ... потому что цифры становятся такими большими. Не уверен в исправлении.

Pyth , 14 байт

uhO=*|Z6GO6hO6

Попробуйте онлайн!

uhO=*|Z6GO6hO6   
         O6      Random number in range [0-6)
u                Perform the following the above number of times...
           hO6   ... with starting value G a random number in range [1-6]:
    *   G          Multiply G with...
     |Z6           The value of Z, or 6 if it's the first time through (Z is 0 at program start)
   =  Z            Assign the above back into Z
  O                Random number in range [0-Z)
 h                 Increment
                 Implicit print result of final iteration

C # (.NET Core) , 136 байт

class A{static void Main(){var r=new System.Random();int i=r.Next(6),j=6;while(i-->0)j*=1+r.Next(j);System.Console.Write(r.Next(j)+1);}}

Попробуйте онлайн!

Я почти уверен, что это работает, учитывая предположение о бесконечной целочисленной длине, которое нам здесь нравится. Если бы мне пришлось справиться с переполнением, мне бы пришлось создать совершенно другой класс.

Юлия 1,0 , 60 байт

g(b=big(6),r=rand)=(for i in 1:r(0:5) b=b*r(1:b) end;r(1:b))

b=big(6)позволяет работать с целыми числами произвольного размера Попробуйте онлайн!

Gaia , 13 байт

:(ṛ×
6₅ṛ(↑ₓ(ṛ

Попробуйте онлайн!