AV
скорее всего тут ошибки, в асбтракциях и то, где что находится придётся потасовать пока пишешь код
Size: a a a
2018 April 03
AV
изивиняюсь, что сходу не могу выдать полное решение, это мне придётся 1/6 игры реализовывать
AV
у меня было примерно так
fire (Player angle) (MachineGun) =
let [b] = fire (Player angle Pistol)
in [step i b | i <- [1..3]]
fire p (Modified (ModAmplifier d) v) = increaseDamage d <$> fire p v
AV
автомат это такой пистолет который выстреливает 3 патрона, amplifier увеличивает дамаг чего бы то ни было
AV
а tripple делает из патрона 3 развернутые в разные стороны
AV
но тут есть проблемы, если я захочу сделать патрон летающий по синусоиде, то мне придётся вводить новый мод, с каким-то состоянием
AV
тогда вместо приятного World [Object] Player, мне придётся делать стейт машины вместо объектов, наверное
AV
про ООП в haskell есть прикольная статья http://www.well-typed.com/blog/2018/03/oop-in-haskell/
AV
как объекты через fixed point делаются и как сделать overloading и абстрактные методы
AV
(с другой стороны это ещё и Пирса было, но тут модно и с линзами, и для haskell а не в целом)
AV
Rigidus кстати этой статье тоже есть про evaluation генерация того, как код выполняется, примерно как в stgi но на уровень выше, может там написано что за пакет
AV
@ne_formal вообще интересная задачка, я бы наверное даже хотел сесть и полностью написать решение, но жалко времени, т.е. я там не вижу больших проблем с т.з. наличия отсуствия типизации
AV
с другой стороны всякие HList и т.п. в статьях про ОО-Haskell появились именно в таком контексте
AV
мне кстати тяжело, т.к. я не представляю конкретные примеры оружий и т.п. и как следствие реюза, в тех структурах что выше пока все складывается
AV
но я наверняка какой-то аспект упускаю
AV
вариант с HList для полей и констрейнта вида
(Has "damage" x, Has "graphics " x) => x вполне работает