Codegolf - Сложные Проценты... С Wizard Money

Гринготтс — это не просто хранилище, это авторитетное финансовое учреждение, и волшебникам тоже нужны кредиты. Поскольку вы не хотите, чтобы гоблины Гринготтса обманули вас, вы решили, что было бы неплохо написать программу для расчета процентов. Проценты начисляются только ежегодно.

Ваша задача — рассчитать общую сумму задолженности после уплаты процентов с учетом основной суммы долга, процентной ставки и времени (целые годы), действуя в целых номиналах волшебных денег, округляя до ближайшего целого кнута. В серебряном серпе содержится 29 бронзовых кнатов, а в золотом галеоне — 17 сиклей.

Пример

 Loan taken out:

23 Knuts

16 Sickles
103 Galleons
@ 7.250%
For 3 years

Total owed after interest:

24 Knuts

4 Sickles
128 Galleons
 

Примечания и правила

• Ввод и вывод могут быть в любом удобном формате. Вы должны принять кнатсы, сикли, галеоны, процентную ставку и время. Все, кроме процентной ставки, будут целыми числами. Процентная ставка устанавливается с шагом 0,125%.
• Введенные деньги не обязательно будут каноническими (т. е. у вас может быть 29 или более кнатов и 17 или более сиклей).
• Выходные данные должны быть каноническим представлением. (т.е. менее 29 кнатов и менее 17 сиклей)
• Общая сумма задолженности, до 1000 галеонов, должна быть с точностью до 1 кнута в год по сравнению с произвольными точными расчетами.
  • Вы можете округлить в меньшую сторону после каждого года интереса или только в конце. Справочные расчеты могут принять это во внимание для проверки точности.

Удачной игры в гольф!

#код-гольф #математика

Р, 70 62 байта

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 $,=$";say 0|($_=(<>+<>*29+<>*493)*(1+<>)**<>)/493,0|($_%=493)/29,$_%29
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

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

Принимает входные данные как d: депозит в кнатах, сиклях, галеонах; i: процентная ставка в десятичном формате; у: лет. Выводит окончательный депозит в кнатах, сиклях, галеонах. Спасибо @Giuseppe за использование матричного умножения для экономии нескольких байтов (и указание, как избежать необходимости переноса на 1e99).

Python 3.8 (предварительная версия), 75 74 71 байт

-1 байт благодаря @EmbodimentofIgnorance
-3 байта благодаря @xnor

При этом кнуты, сиклы и галеоны принимаются в виде целых чисел, проценты — в виде числа с плавающей запятой (десятичное, а не процентное число) и годы — в виде целого числа. Он возвращает кортеж, содержащий число после процентов Кнатса, Сикла и Галеона соответственно.

Использование:

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

APL+WIN, 37 28 26 байт

2 байта сэкономлено благодаря lirtosiast

Попробуйте онлайн! С разрешения Диалог Классик

Объяснение:

Перл 6, 47 байт

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

Я удивлен, что мне удалось передать это в анонимную лямбду «Как бы то ни было!» Особенно та часть, где это больше 3 s than anything else. Takes input as • и возвращает список валют в том же порядке.

Объяснение:

Желе, 29 байты

Полная программа, принимающая аргументы: >Im•1ýÑ•3L£I*O*ï29‰ć17‰ì ; @set/ag=k/493,s=k/29%,k%%=29 @echo %g% %s% %k% ; @for /l %%y in (1,1,%5)do @set/ak+=k*i/800 .
Принты @set/ai+=%f:~,1%,k=%1*493+%2*29+%3 .

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

Полы в конце всего срока.
f may be removed if we may accept the rate as a ratio rather than a percentage.

Как?

Сборка FPU Intel 8087, 86 байт

В разобранном виде и задокументировано:

Реализованный как МАКРОС (по сути, функция), это машинный код, не зависящий от ОС, использующий для вычислений только FPU/математический сопроцессор Intel 80x87.

Пример тестовой программы с выводом:

Выход

TI-BASIC (TI-84), 96 90 байт

Ввод (a,b,c)=>((k=(int)((a.a*493+a.b*29+a.c)*Math.Pow(1+b,c)))/493,(k%=493)/29,k%29);int k; , a list with 5 items: Knuts, Sickles, Galleons, Interest (decimal), and Time (years).
Выход в {c\:{z(y*)/x}[c/:x;1+y0;z]}inputArgs and is automatically printed out when the program completes.

Без игры в гольф:

Пример:

Объяснение:

Новый список, c/:x , is created and (128;4;24.29209) хранится в нем.

Кнатсы, сикли и галеоны конвертируются в кнатсы и хранятся в t .

Берет сумму Кнатсов и применяет к ней сложные проценты.
Проценты рассчитываются здесь.

Хранит яцелое число Часть из knuts sickles galleons modulo 493 into interest years knuts sickles galleons . Используется для сокращения количества байтов.

Оценивает список из 3 предметов (кнатс, сикль и галеон). Список автоматически сохраняется в -- Define a binary operator # that -- takes the number of Galleons -- and Slivers and produces a -- function taking the number of -- Knots, the rate, and the -- number of years and producing -- the result. (g#s) k r n -- Calculate the initial value -- in Knotts, calculate the -- final value in Knotts, -- and divide to get the number -- of Galleons and the -- remainder. |(x,y)<-truncate((493*g+29*s+k)*(1+r)^n)%29 -- Calculate the number of Slivers -- and remaining Knotts. =(x,y) (%)=divMod .

Примечание: Количество байтов оценивается путем взятия количества байтов, указанного в [МЕМ]→[2]→[7] (список программ в оперативной памяти) и вычитая количество символов в названии программы и дополнительные 8 байт, используемые для программы:

103 – 5 – 8 = 90 байт

Джапт, 48 байт

Моя первая попытка в Japt, гонка за наградой @Shaggy! Излишне говорить, что это не очень-то по-гольфийски :(

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

Хаскелл, 73 байта

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

Спасибо @Laikoni за два байта.

Грязные трюки: количество монет во входных данных — с плавающей запятой ( Double ), while the number of coins in the output is integral ( (g#s)k r n|(x,y)<-truncate((493*g+29*s+k)*(1+r)^n)%29=(x,y) (%)=divMod ). Результатом является вложенная пара XÄ pY *(U*493+V*29+W)f Uu493 [Uz493 ,Vz29 ,Vu29] to avoid having to flatten to a triple.

Объяснение

Стакс, 24 байты

Запустите и отладьте его

Ввод представляет собой значения, разделенные пробелами. R

Вывод отделяется новой строкой.

К, 46 байт

:T(1+∟C(4))^∟C(5)→T store the list for base-conversion

T is the function that calculates total amount

Используйте пример:

пишет Ans

Объяснение:

• ∟C transform the list (galleon; sickle; knuts) to kuts

• :SetUpEditor C :Ans→∟C calculate rate of interest (example 1.0725 for 7.25% rate)

• лямбда {32,2,5,0.05,5} {32 2 5 .05 5} prgmCDGF1 {12 10 6} does the work: iterate 3 times, applying interes*main, and returns final main.

• :SetUpEditor C :Ans→∟C :∟C(1)+29∟C(2)+493∟C(3)→T :T(1+∟C(4))^∟C(5)→T :remainder(iPart(T),493→R :{remainder(R,29),iPart(R/29),iPart(T/493)} generates galleon, sickles, knuts from knuts

ПРИМЕЧАНИЕ. Если вам не нужна функция имен, мы можем использовать лямбду, сэкономив 2 байта. Ans

C# (интерактивный компилятор Visual C#), 86 байт

Принимает inout как именованный кортеж с тремя значениями, представляющими кнуты, серпы и галеоны, а процентную ставку — как двойную (не процентную). Мне бы очень хотелось, чтобы в C# был оператор возведения в степень. Math.Pow слишком длинный :(

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

Пакетный, 171 байт

Принимает входные данные в виде аргументов командной строки в порядке галеонов, сиклей, кнатов, процентов, лет. Проценты представляют собой проценты, но выражаются без знака %. Обрезается после каждого года. Вывод осуществляется в порядке галеонов, сиклей, кнатов. Поддерживает не менее 5000 галеонов. Объяснение:

Пакетная обработка поддерживает только целочисленную арифметику. К счастью, процентная ставка всегда кратна ; calculate P+I of loan from wizard ; input: ; G: number of Galleons (mem16) ; S: number of Sickles (mem16) ; K: number of Knuts (mem16) ; R: interest rate (float) ; T: time in years (mem16) ; GS: Galleons to Sickles exchange rate (mem16) ; SK: Sickles to Knuts exchange rate (mem16) ; output: ; G: number of Galleons (mem16) ; S: number of Sickles (mem16) ; K: number of Knuts (mem16) WIZ_INT_CALC MACRO G, S, K, R, T, GS, SK LOCAL LOOP_EXP ; - calculate interet rate factor FLD1 ; load 1 FLD R ; load interest rate FADD ; ST = rate + 1 MOV CX, T ; Exponent is count for loop FLD1 ; load 1 into ST as initial exponent value LOOP_EXP: ; loop calculate exponent FMUL ST,ST(1) ; multiply ST = ST * ST(1) LOOP LOOP_EXP ; - convert demonimations to Knuts FILD K ; load existing Knuts FILD SK ; load Sickles to Knuts rate FILD S ; load existing Sickles FILD GS ; load Galleons-to-Sickles exchange rate FILD G ; load existing Galleons FMUL ; multiply galleons to get sickles FADD ; add existing sickles FMUL ; multiply sickles to get knuts FADD ; add existing knuts FMUL ; calculate P+I (P in Knuts * Interest factor) ; - redistribute demonimations to canonical form FLDCW FRD ; put FPU in round-down mode FILD SK ; load Sickles to Knuts rate FILD GS ; load Galleons-to-Sickles exchange rate FLD ST(1) ; copy Galleons-to-Sickles exchange rate to stack for later FMUL ; multiply to get Galleons-to-Knuts rate FLD ST(2) ; push original total Knuts from ST(2) into ST (lost by FPREM) FPREM ; get remainder FDIV ST,ST(2) ; divide remainder to get number of Sickles FISTP S ; store Sickles to S FDIVR ST,ST(2) ; divide to get number of Galleons FISTP G ; store Galleons to G FXCH ; swap ST, ST(1) for FPREM FPREM ; get remainder to get number of Knuts FISTP K ; store Knuts to K ENDM . We start by splitting on the decimal point, so that d9e8 d906 7f01 dec1 8b0e 8301 d9e8 d8c9 e2fc df06 7901 df06 8701 df06 7b01 df06 8501 df06 7d01 dec9 dec1 dec9 dec1 dec9 9bd9 2e89 01df 0687 01df 0685 01d9 c1de c9d9 c2d9 f8d8 f2df 1e7b 01d8 fadf 1e7d 01d9 c9d9 f8df 1e79 01 становится целой частью процентной ставки и “¢×ø‘©×\ - Link 1 multipliers: no arguments “¢×ø‘ - list of code-age indices = [1,17,29] © - (copy this to the register for later use) \ - reduce by: × - multiplication = [1,17,493] ÷ȷ2‘*⁵×÷¢S×¢d®U1¦Ṫ€Ḟ - Main Link ȷ2 - 10^2 = 100 ÷ - divide = rate/100 ‘ - increment = 1+rate/100 ⁵ - 5th command line argument (3rd input) = years * - exponentiate = (1+rate/100)^years --i.e. multiplicand × - multiply (by the borrowed amounts) ¢ - call last Link as a nilad ÷ - divide (all amounts in Galleons) S - sum (total Galleons owed) ¢ - call last Link as a nilad × - multiply (total owed in each of Galleons, Sickles, Knuts) ® - recall from register = [1,17,29] d - divmod (vectorises) = [[G/1, G%1], [S/17, S^17], [K/17, K]] U1¦ - reverse first one = [[G%1, G/1], [S/17, S], [K/17, K]] Ṫ€ - tail €ach = [G/1, S, K] Ḟ - floor (vectorises) the decimal fraction. These are then multiplied by 8. The first digit of ÷ȷ2 теперь это число восьмых в процентной ставке.

Затем это извлекается с помощью нарезки строк и добавляется, чтобы получить процентную ставку в 1/800. Также подсчитывается количество кнутов.

Рассчитайте и прибавьте проценты за каждый год.

Конвертируйте обратно в галеоны и сикли.

05AB1E (устаревший), 24 байты

Порт @JoKingPerl 6 ответ, так что обязательно проголосуйте за него, если вам нравится этот ответ!

Я использую устаревшую версию из-за ошибки в новой версии, из-за которой “¢×ø‘©×\ ÷ȷ2‘*⁵×÷¢S×¢d®U1¦Ṫ€Ḟ doesn't work on integers, so an explicit cast to string (1+*) # Add one to the interest rate *** # Raise to the power of the year * # And multiply by (*Z*1,29,493).sum # The number of Knuts in the input +|0 # And floor it ( ).polymod(29,17) # Get the modulos after divmoding by 29 and 17 (между вторым interest rate (e.g. 0.0725), years, [Knuts, Sickles, Galleons] and * ) требуется (пока ошибка не будет исправлена).

Принимает проценты в десятичном формате, за которыми следует год, а затем список [кнатов, сиклей, галеонов].

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

Объяснение:

См. мой совет по 05AB1E (раздел Как сжать большие целые числа?) чтобы понять, почему (1+⎕)*⎕ prompts for years followed by decimal interest rate and calculates compounding multiplier ((a←0 17 29)⊥⎕) prompts for Galleons, Sickles and Knuts and converts to Knuts ⌊a⊤ converts back to Galleons, Sickles and Knuts and floor after applying compound interest. is ⌊a⊤((a←0 17 29)⊥⎕)×(1+⎕)*⎕ .

APL(NARS), 37 символов, 74 байта

перевод очень хорошего и очень малобайтового решения APL от пользователя Graham

к решению, которое использует одну функцию вместо стандартного ввода...

(я не говорю, что понял алгоритм)

Перл 5