Вступление:

Я думаю, что все знают, что такое Лава Лампа, но на случай, если они этого не сделают:

^{(Источник изображения)}

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

Обычно требуется около 45-60 минут для того, чтобы основание лампы поднялось до достаточно высокой температуры, чтобы сменить твердый воск на жидкий воск (если лампа находится в помещении с комнатной температурой).

Дополнительная информация о Википедии, которая также используется в качестве источника для некоторого текста выше.

Вызов:

Учитывая положительное целое число, nуказывающее количество минут, прошедших с момента включения лампы лавы, выведите случайное состояние лампы лавы на основе целых чисел на пяти уровнях.

Для этого испытания мы скажем, что Лавовая Лампа содержит в общей сложности 1000 единиц воска, и у нас есть пять уровней, на которых может находиться воск.

1) Если значение nниже 45, лампа лавы все еще нагревается, поэтому на выходе будут четыре пустые строки с 1000нижней частью:

1000

2) Если значение nнаходится в пределах диапазона, [45, 60)температура лавовой лампы достаточно высока, чтобы воск мог перемещаться, но пока не очень высокий. Воск может достигать вплоть до третьего уровня.
3) Если nесть 60или выше, воск может быть на любом из пяти уровней.

Поэтому, учитывая положительное целое число в nкачестве входных данных, мы выведем случайное состояние с учетом трех приведенных выше правил.

Вот несколько примеров выходных данных:

Возможные выходы для любого nчто есть >= 45:

523
106
371

913

87

Возможные выходы для любого nчто есть >= 60:

73
113
312
5
497

284
55
637

24

Постоянный вывод для nэтого есть <= 44(и возможный вывод для любого n):

1000

Правила соревнований:

• Могут быть пустые строки, даже если уровень над ним не пустой.
• Просто 0не допускается ни на одной линии. Должно быть пустым вместо этого.
• Вывод несколько гибкий. Вам разрешено выводить список / массив строк / объектов вместо результата, разделенного новой строкой, как описано выше. Причина, по которой я говорю «строки / объекты», связана с приведенным выше правилом. Пустая строка должна быть "", null, []и т.д., но не может быть 0или отрицательное целое число ( и не может быть false) (т.е. ["", "", 913, "", 87]для n >= 45). Вы также можете изменить вывод (т. Е. 1000\n\n\n\nВместо \n\n\n\n1000или [87, null, 913, null, null]вместо [null, null, 913, null, 87]).
• Числа должны быть целыми числами. Может быть десятичным 0числом с десятичным значением, но ни одно из чисел не должно иметь десятичных цифр, а целые числа всегда должны точно совпадать 1000.
• Все возможные случайные выходы на основе nдолжны иметь ненулевую вероятность возникновения.
• Трейлинг новой строки (так что есть шесть строк вывода) допускается.

Основные правила:

• Это код-гольф , поэтому выигрывает самый короткий ответ в байтах.
  Не позволяйте языкам кода-гольфа отговаривать вас от публикации ответов на языках, не относящихся к кодексу. Попробуйте придумать как можно более короткий ответ для «любого» языка программирования.
• Применяются стандартные правила вашему ответу , поэтому вы можете использовать STDIN / STDOUT, функции / метод с правильными параметрами и типом возврата, полные программы. Ваш звонок.
• По умолчанию лазейки запрещены.
• Если возможно, добавьте ссылку с тестом для вашего кода.
• Кроме того, добавление объяснения для вашего ответа настоятельно рекомендуется.

MathGolf , 21 20 байт

5º*♪{k[K∞╟(]m<Σ∞wΦ}σ

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

Это мой первый ответ на моем новом языке. Я основал свое решение на решении 05AB1E от Emigna, но использовал некоторые удобные функции MathGolf, чтобы сделать его чуть короче.

объяснение

5º*                   push 5, [0], multiply (yielding [0,0,0,0,0]
   ♪                  push 1000
    {                 start block
     k                push input as integer
      K∞              push 22 and double it, yielding 44
        ╟(            push 60 and decrease, yielding 59
          α           wrap last two elements in array, yielding [44,59]
           m<         map is less than, giving [0,0], [1,0] or [1,1]
             Σ        sum array, giving 0, 1 or 2
              ∞       double, giving 0, 2 or 4
               w      push random integer in range
                Φ     increase array element
                 }    execute for loop (loops 1000 times)
                  σ   convert to string and remove leading zeroes (implicit map)

Python 2 , 117 113 108 107 106 105 байт

from random import*
def f(n):a=['']*5;exec"i=randint(0,(n>44)+(n>59)<<1);a[i]=(a[i]or 0)+1;"*1000;print a

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

Возвращает перевернутый список (сначала внизу)

Версия, вдохновленная ответом stackoverflow в комментариях (крайние случаи более вероятны):

Python 2 , 129 байт

from random import*
def f(n):a=sorted([1000]*5+sample(range(1001)*5,(n>44)+(n>59)<<1));print[y-x or''for x,y in zip([0]+a,a)[:5]]

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

JavaScript (ES6), 78 байт

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

t=>(a=[...'     '],g=k=>k?g(k-1,a[Math.random()*(t>59?5:t<45||3)|0]++):a)(1e3)

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

комментарии

t => (                      // t = input
  a = [...'     '],         // a[] = output array, initially filled with 5 spaces
  g = k =>                  // g = recursive function taking an iteration counter k
    k ?                     //   if k is not equal to zero:
      g(                    //     do a recursive call:
        k - 1,              //       decrement k
        a[                  //       update a[]:
          Math.random() * ( //         pick a random slot:
            t > 59 ? 5 :    //           among all 5 slots if t > 59
            t < 45          //           force the 1st slot if t < 45
            || 3            //           among the 3 first slots otherwise
          ) | 0             //         round the above result to an integer
        ]++                 //       increment the wax amount on this slot
      )                     //     end of recursive call
    :                       //   else:
      a                     //     stop recursion and return a[]
)(1e3)                      // initial call to g() with k = 1000

R , 85 84 байта

function(n)write(ifelse(t<-table(cut(runif(1e3,2*(n<60)+3*(n<45),5),0:5)),t,""),1,1)

-1 байт благодаря @Giuseppe

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

Объяснение (без присмотра):

function(n){
      # Generate 1000 random uniform numbers in [5,5] (if n<45),
      # in [2,5] (if 45<=n<60) and in [0,5] (if n>=60).
    x = runif(1e3,2*(n<60)+3*(n<45),5) 
      # Code each by the number of the interval it falls in (0,1],(1,2]...(4,5]
    cx = cut(x,0:5)
      # Tabulate the intervals. Because cut() returns a factor,
      # zero counts are included 
    t = table(cx)
      # Vector-wise replace zero elements with "" and cat out, 1 per line.
    t1 = ifelse(t,t,"")
    write(t1,1,1)
}

C (gcc) , 131 , 116 , 90 , 89 , 87 байтов

L(l,a,v,A){for(A=5,v=1e3;A--;v-=a)printf("%d\n"+!a*2,a=l>59|A<3&l>44?rand()%-~v:!A*v);}

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

Обновление : исправлена ​​ошибка в оригинале. Слит с функцией помощника, уменьшая дополнительные 15 байтов.

Обновление 2 : -25 байт благодаря ErikF.

Обновление 3 : -1 байт благодаря потолку.

Degolf

L(l,a,v,A){
    for(A=5,v=1e3;A--;v-=a)
        printf("%d\n"+!a*2, // No clue how this works anymore, but it'll advance the pointer 
                            // to the string constant when a number shouldn't be printed.
        a=l>59|A<3&l>44?rand()%-~v // Random integer to print in [0, v]
        :!A*v); // If bottom layer, return remaining volume
}

05AB1E , 27 26 25 байтов

Сохраненный байт благодаря Аднану .
Сохранено еще один байт благодаря Кевину Круйссену .

5Å0₄FD„,;ÇI‹O·ÝΩ©è>®ǝ]ε0Û

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

объяснение

5Å0                         # initialize with a list of 5 zeroes
   ₄F                       # 1000 times do:
     D                      # duplicate the list
      „,;ÇI‹                # check if the input is larger than 44 and/or 59
            O·              # sum and double, yielding (0,2 or 4)
             ÝΩ             # pick a random number between and 0 and the number above
               ©è           # get the count in that level
                 >          # increment it
                  ®ǝ        # insert it at the same position
                     ]      # end loop
                      ε0Û   # remove leading zeroes on each level

JavaScript (Node.js) , 87 86 байт

f=(n,w=1e3,s=5,r=n<45|n<60&s<4|s<2?w:Math.random()*w|0)=>s?`${r||""}
`+f(n,w-r,s-1):""

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

83-байтовое решение ( (n/15-2|0)*s<4) зарезервировано первым, потому что мне нужно проверить на большее n.

ОБНОВЛЕНИЕ: Да, (n/15-2|0)*s<4не работало, потому что для большего, nпотому что nдостаточно большой делает сумму не в состоянии достигнуть 1000.

PHP, 92 байта

$i=5;for($n=1e3;$i--;$n-=$x)echo($x=rand($i?0:$n,$i<($argn<60?$argn<45?:3:5)?$n:0))?:"","
";

Запустите как трубу с -Rили попробуйте онлайн .

Чисто , 215 байт

import StdEnv,Math.Random,Text
? ::!Int->Int
?_=code{ccall time "I:I"
}
$n#l=take(max(2*min(n/15-2)2)0+1)(genRandReal(?0))
#l=map toInt[1E3*e/sum l\\e<-l]
|sum l==1000=map(\v|v>0=v<+"\n"="\n")(l++repeat 0)%(0,4)= $n

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

Так что я , наконец , нашел более короткий путь , чтобы получить случайное зерно , чем импортировать System._Unsafe, System.Timeи используя toInt(accUnsafe time)...
И мальчик это действительно в духе codegolf - вложению вызова C, игнорируя мировой тип состояния обычно используется для обеспечения оценки порядок таких вещей.

Ява (JDK 10) , 121 117 113 111 байтов

m->{for(int w=1000,j,i=5;i-->0;w-=j=i>0?j*=Math.random():w,System.out.println(j<1?"":j))j=m>59|m>44&i<3?w+1:0;}

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

Он склонен к тому, чтобы наносить больше воска вверху, но теоретически возможно появление любого легального воска.

изменить: 4 байта были сохранены @KevinCruijssen

В человекочитаемой Java:

(int minutes /* golfed variable m */) -> {
  int waxRemaining = 1000; // golfed variable w

  // golfed version goes from index 4 to 0 in a bit of a roundabout way
  // starting at 5 but decrementing right away
  for (int level = 4 /* golfed variable i */; level <= 0; level--) {
    // golfed variable j
    // the golfed version initializes this to (waxRemaining + 1)
    // in order to juice out some extra bytes during the Math.random() call
    int waxAtLevel = 0;

    // the golfed version does all of these ifs as ternary operations
    // and avoids using 2-character operators wherever possible
    // so e.g. "a == 0" becomes "a<1" and "a && b" becomes "a&b"
    // since here we are certain things can't be negative,
    // and took a good look at the Java operator precedence cheat-sheet
    // to make sure "&" and "|" would work properly to give a truthy value
    if (level == 0) {
      // if we are at the bottom level, just put the rest of the wax there
      waxAtLevel = waxRemaining;
    } else if (minutes >= 60 || (minutes >= 45 && level < 3)) {
      // otherwise if we are at a legal level put a random portion of the remaining wax there
      // note: the random portion can be between 0 and waxRemaining inclusive
      waxAtLevel = (int) (Math.random() * (waxRemaining + 1));
    }

    if (waxAtLevel > 0) {
      // only print the amount of way at this level if its greater than 0
      System.out.print(waxAtLevel);
    }
    System.out.println();

    waxRemaining -= waxAtLevel;
  }
}

Powershell , 188 162 байта

param($m);$t=0;$a=,0*5;$s=if($m-lt45){4}elseif($m-lt60){2}else{0};$s..4|%{$t+=$a[$_]=if($_-eq4){1e3-$t}elseif($t-ne1e3){Random(1000-$t)}}$a|%{if($_){$_}else{''}}

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

-2 байта от @Kevin Cruijssen
-4 байта путем удаления необязательного глагола
-20 байтов путем сокращения цикла и удаления пробелов

Паскаль (FPC) , 192 190 байтов

var n,a:word;z:array[0..4]of word;begin read(n);if n>44then a:=a+3;if n>59then a:=a+2;Randomize;for n:=0to 999do inc(z[random(a)]);for n:=0to 4do if z[n]>0then writeln(z[n])else writeln end.

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

Использование метода упаковки в контейнеры TFeld . Сначала печатает нижний ряд с последующим переводом строки.

Кажется, с FPC проблем нет random(0), поэтому у меня есть несколько необычных добавлений.

var n,i,a,r:int32;begin read(n);if n>44then a:=a-2;if n>59then a:=a-2;r:=1000;Randomize;for i:=-3to-0do begin if i>a then begin n:=random(r+1);if n>0then write(n);r:=r-n;end;writeln;end;if r>0then write(r)end.

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

Уголь , 37 байт

Ｆ²Ｆ²⊞υ∧‹³⁺ι÷Ｉθ¹⁵‽⊕⁻φΣ∨υω⊞υ⁻φΣυＥυ⎇ιＩιω

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

Ｆ²Ｆ²

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

‹³⁺ι÷Ｉθ¹⁵

Если внешний индекс плюс пятнадцатая температура больше трех ...

⊞υ∧...‽⊕⁻φΣ∨υω

... затем нажмите случайное целое число до 1000 включительно - сумму пока. К сожалению, Charcoal не может вычислить сумму пустого списка, поэтому мне нужно заменить пустую строку.

⊞υ⁻φΣυ

Вставьте оставшуюся сумму в список.

Ｅυ⎇ιＩιω

Преобразуйте список в строку, но используйте пустую строку вместо нуля.

Желе , 28 байт

>“,;‘SḤ‘µȷŻṗS⁼¥ƇȷX;0ẋ5¤ḣ5Yḟ0

Полная программа печати результата (вверх ногами, как было разрешено).

Попробуйте онлайн! - это изменено для использования,7а неȷ(1000), потому что реализация очень медленная! (...за$n>59$ список $10^{15}$ 5-кортежи строятся, а затем фильтруются, из чего выбирать)

Как?

>“,;‘SḤ‘µȷŻṗS⁼¥ƇȷX;0ẋ5¤ḣ5Yḟ0 - Main Link: integer, n
 “,;‘                        - list of code-page indices = [44,59]
>                            - greater than? (vectorises)
     S                       - sum (i.e. 0, 1 or 2)
      Ḥ                      - double (i.e 0, 2 or 4)
       ‘                     - increment (i.e. 1, 3 or 5)
        µ                    - start a new monadic link, call that x (i.e. f(x))
         ȷ                   - literal 1000
          Ż                  - zero-range = [0,1,2,...,1000]
           ṗ                 - Cartesian power (all tuples of length x using those numbers)
               Ƈ             - filter keep if:
              ¥              -   last two links as a dyad:
            S                -     sum
             ⁼  ȷ            -     equals 1000? (i.e. only valid tuples)
                 X           - random choice (get one of these tuples)
                      ¤      - nilad followed by link(s) as a nilad:
                   0         -   zero
                    ẋ5       -   repeat five times = [0,0,0,0,0]
                  ;          - concatenate     (e.g. [354,388,258,0,0,0,0,0])
                       ḣ5    - head to index 5 (e.g. [354,388,258,0,0])
                         Y   - join with newlines
                          ḟ0 - filter out zeros
                             - implicit print

Веточка , 126 байт

Это было действительно забавное испытание!

Этот код создает макрос, который должен быть импортирован.

{%macro a(s,z=1000)%}{%for _ in 4..1%}{%set t=s>59or(s>44and _<3)?random(z):''%}{%set z=z-t%}{{t}}
{%endfor%}{{z}}{%endmacro%}

Чтобы импортировать это, просто сделайте это:

{%- import 'macro.twig' as a -%}
{{- a.a(50) -}}

Это должно сделать свое дело.

Вы можете попробовать это на https://twigfiddle.com/t4dfgy.
Примечание : из-за того, что страница удаляла пробелы, я был вынужден добавить -в конце строки, чтобы доказать, что она выводит правильное количество строк.

При обычной установке вы просто увидите новые строки без проблем.

Perl 6 , 62 байта

{($!=1e3)||@,|((+$!-($!-=$!.rand+|0)||@)xx($_/15+|0)*2-4)[^4]}

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

Блок анонимного кода, который принимает строку и возвращает список целых чисел с Nilпустым списком ( []) вместо 0s.

Объяснение:

{($!=1e3)||@,|((+$!-($!-=$!.rand+|0)||@)xx($_/15+|0)*2-4)[^4]}
{                                                            }  # Anonymous code block
 ($!=1e3)  # Initialise $! to 1000
                +$!-($!-=$!.rand+|0)     # Pick a random value from 0 to $!
                                    ||@  # Or an empty array if it is zero
            ,  (                       )xx  # Repeat this
                                          ($_/15+|0)*2-4  # The given value mapped to 0,2,4
             |(                                         )[^4] # Get the first four values
 ($!    )||@  # Where the first value is the leftover number in $! or an empty array

PHP ,113 108 99 97 93 байта

<?php $i=$argv[1];while($a++<1e3){${r.rand(1,$i<60?$i<45?:3:5)}++;}echo"$r5
$r4
$r3
$r2
$r1";

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

-11 байт благодаря @titus
-9 байт, потому что все является строкой

J , ^{56 55 54 48 43} 40 байт

5{.1e3(2<@-/\[,0,~[:\:~?@$~)2*1#.>&44 59

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

-3 байта благодаря FrownyFrog

Другой концептуально приятный метод, который немного длиннее, но гарантирует идеально равномерное распределение по всем возможностям, в соответствии с методом здесь :

J , 53 байта

5$!.a:[:<@(+/);._1 0:,(1e3#1)({~#?#)@,0$~2*1#.>&44 59

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

PowerShell , 115 105 98 байт

^{-17 байт благодаря маззи}

$a=,0*5
45,60-ge"$args"|%{$i+=2}
$i..4|%{$t+=$a[$_]=random(1001-$t)}
$a[4]+=1e3-$t
$a|%{"$_"*!!$_}

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

Гольф Эдвина прекрасный ответ . Если вам это нравится, проголосуйте за него.

Рубин , 62 55 байт

->n{w=1000;[4,4,3,3].map{|r|r*15>n||w-=q=rand(w);q}<<w}

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

Испытания ограничены до 0-99 градусов, потому что лавовые лампы могут быть опасны при более высоких температурах: