У підземеллях і драконах одні з найважливіших характеристик персонажа - це бали здібностей. Є 6 балів здібностей для шести здібностей. Здібності - сила, спритність, конституція, інтелект, мудрість і харизма.

При визначенні балів для персонажа я використовую таку процедуру: Згорніть 4d6, опустіть найнижчі в будь-якому порядку. Це означає, що я розкидаю 4 шестигранні кубики, ігнорую найнижчий результат та підсумовую інші 3. Це робиться 6 разів. Отримані числа присвоюються здібностям будь-яким способом, який мені подобається.

Система, яку я використовую для присвоєння балів здібностям, - це присвоїти найвищий бал найважливішому вмінню мого персонажа, який залежить від класу мого персонажа, присвоїти другий найвищий бал Конституції, оскільки кожному потрібна Конституція, а інші чотири бали призначити довільно.

Ось таблиця найважливіших навичок для різних занять:

Bard - Charisma
Cleric - Wisdom
Druid - Wisdom
Fighter - Stregth
Monk - Wisdom
Paladin - Charisma
Rogue - Dexterity
Sorcerer - Charisma
Wizard - Intelligence

Завдання: Я дам вам (як введення) першу букву класу мого персонажа (у верхньому регістрі). Я хотів би, щоб ви згорнули бали здібностей і присвоїли їм здібності, як описано вище, а потім виведіть їх у порядку Сила, Спритність, Конституція, Інтелект, Мудрість, Харизма.

Приклад:

Input: R
Rolls: 4316 3455 3633 5443 2341 6122
Scores: 13 14 12 13 9 10
Ordering: Highest goes to dexterity. Second goes to Constitution.
Output: 13 14 13 12 9 10
or
Output: 9 14 13 10 12 13
or etc.

Вихід може бути наданий у будь-якому форматі, де цифри чітко відокремлені та в належному порядку.

Найкоротший код у байтах виграє. Стандартні лазівки заборонені.

CJam, 43 41 40 байт

{6a4*:mr$0Zt:+}6*]$2m<"FRXWCDM"r#4e<3e\p

Завдяки @ Sp3000 за те, що ви граєте в 1 байт.

Спробуйте його в Інтернеті в інтерпретаторі CJam .

Як це працює

{             }6*                       e# Repeat 6 times:
 6a4*                                   e#   Push [6 6 6 6].
     :mr                                e#   Replace each six with a pseudo-randomly
                                        e#   generated integer in [0 ... 5].
        $                               e#   Sort the results.
         0Zt                            e#   Replace the lowest result by 3.
            :+                          e#   Add all four integers
                ]                       e# Wrap the 6 generated integers in an array.
                 $                      e# Sort.
                  2m<                   e# Rotate 2 units to the left to assign the
                                        e# second highest result to Constitution.
                     "FRXWCDM"          e# Push that string.
                              r#        e# Find the index of the input.
                                        e# The string doesn't contain B, P or S, so
                                        e# those push -1.
                                4e<     e# Truncate the index at 4. This way, C, D
                                        e# M all push 4.
                                   3e\  e# Swap the integer at that index with the
                                        e# one at index 3, i.e., the highest one.
                                      p e# Print.

Пітон 3, 137 байт

from random import*
S=sorted
*L,c,h=S(3+sum(S(map(randrange,[6]*4))[1:])for _ in[0]*6)
L[:"FRW BPS".find(input())]+=h,
L[:2]+=c,
print(L)

Виводить список цілих чисел, наприклад [14, 9, 13, 12, 12, 13]для F.

Зображення від вхідної таблиці до завдань виявилося напрочуд приємним. Спочатку ми починаємо з того, що Lмістять найнижчі 4 рулони, після чого хочемо вставити

• Тоді найвищий перекиньте у правильне положення залежно від введення
• Другий за версією список за індексом 2 для Конституції.

Для кожного введення потрібні індекси для найвищих рулонів:

Index    Ability          Input(s)
----------------------------------
0        Strength         F
1        Dexterity        R
2        Intelligence     W
3        Wisdom           CDM
4        Charisma         BPS

Дивно, але нам це потрібно лише "FRW BPS".find(input())тому, що:

• FRW працювати, як очікувалося, даючи відповідні показники,
• CDMнемає, тому findдає -1, що для 4-елементного списку є індексом 3, і
• BPS дайте відповідно 4, 5, 6, але не має значення, якщо ми прокручуємо, тому що ми можемо додати елемент лише в кінці.

J, 100 97 байт

(0;0,b)C.^:(b>0)(0;1 2)C.\:~+/"1]1}."1/:~"1]1+?6 4$4$6[b=.('BCDFMPRSW'i.1!:1[1){5 4 4 0 4 5 1 5 3

Здійснює введення в STDIN

C ++ - 387 байт

Перша спроба тут потрібна більше гольфу, особливо у визначенні того, який клас використовується.

Гольф:

#include<cstdlib>
#include<cstdio>
#include<time.h>
int main(int c,char**v){char*o=*v,l=*v[1];int b=-1,s=-1,i=6,x=0,q=l>=67&&l<=68||l==77?4:l==70?0:l==87?3:l==82?1:5;srand(time(0));for(;i-->0;){int w=9,d=4,u=3,t;for(;d-->0;){t=rand()%6;if(t<w){u+=w<9?w:0;w=t;}else u+=t;}if(u>s){c=s;s=u;u=c;}if(s>b){c=s;s=b;b=c;}if(u>=0)o[x++]=u;}for(i=0;i<6;i++)printf("%d ",i==2?s:(i==q?b:o[--x]));}

Швидше неозорений:

#include<cstdlib>
#include<cstdio>
#include<time.h>
int main(int c,char**v)
{
    //name of program must be at least 4 chars
    char*others=*v,clas=*v[1];
    int desired = clas>=67&&clas<=68||clas==77?4:clas==70?0:clas==87?3:clas==82?1:5; //TODO:

    srand(time(0));
    int best=-1,second=-1,i=6,otherIndex=0;
    for(;i-->0;)
    {
        int lowest=9,diecount=4,sum=3;
        for(;diecount-->0;)
        {
            int loc=rand()%6;
            if (loc<lowest)
            {
                sum+=lowest<9?lowest:0;
                lowest=loc;
            }
            else
            {
                sum+=loc;
            }
        }
        if(sum>second)
        {
            c=second;second=sum;sum=c;
        }
        if(second>best)
        {
            c=second;second=best;best=c;
        }
        if(sum>=0)
        {
            others[otherIndex++]=sum;
        }
    }

    for(i=0;i<6;i++)
    {
        printf("%d ",i==2?second:(i==desired?best:others[--otherIndex]));
    }

    getchar();
}