ВнизНазадКаталогРазвернуть изображения
/0/

「Метро」

Аноним
GYdIqSnWaDsEx85 KB1019x101715606101012790[2].png
Товарищи погромисты, прошу вашей помощи. Как найти сумму на карточке? Нам даны карточки и баланс на них.
Реализовать это все надо на TurboPascal, для карточек создается специальный класс.
>>28882 #>>28719 #
Аноним
>>28600 #
Что, никто не поможет? Мда, какие же вы тут все ламеры, мдааа..
Аноним
Нахуя ты пошел на прогромизда учиться, если тебе это не интересно? Если ты не способен даже такую хуйню сам сделать, то ливай со своей шараги, дальше будет хуже.
Иди у своих одногрупников купи/попроси решение, за бесплатно тебе тут никто ничего делать не будет.
Аноним
>>28600 #

import Data.List

main =
(\(n : p : k : balances) ->
putStrLn
. show
. (\(p', rides) ->
rides + p' `div` k
)
. foldl' (\(p', rides) balance ->
let rides0 = rides + balance `div` k in
let addendum = k - balance `mod` k in
if p' < addendum
then (p', rides0)
else (p' - addendum, rides0 + 1)
)
(p, 0)
. sortOn (`mod` k)
$ balances
)
. map (read :: String -> Integer)
. words
=<< getContents


Как бы так развернуть лямбды, чтоб можно было писать (expr <- arg2 arg1)?
Аноним
А вот допустим, что мне интересно, но все равно очень трудно, и даже из рекомендованных сорока минут на лекцию уходит часа два с половиной, это значит нет смысла или скорее неправильный подход к обучению? Или так и должно быть, а рекомендованное время - просто попытка навязать мне онлайн-репетитора?
Сколько вообще по идее уходит на то, чтобы без конкретных условий (а не как у опа) и при наличии учебника для самообучения, с нуля написать алгоритм?
>>30405 #>>30410 #
Аноним
>>30386 #
>это значит
что ты дебил.
Аноним
>TurboPascal
Зачем нужно это говно?
Аноним
>>30386 #
В исследованиях, упоминаемых С. Макконнеллом, говорилось, что разница в производительности между опытным программистом и новичком отличается на порядок.

НазадКаталогВверхПоследние 100