ЗП
тот что
s -> (a, s)?Size: a a a
2020 March 29
AK
mtl у нас нет.
Есть может какое пособие как это сделать?
AK
я подумал что твой тоже
AK
vacantRoom :: Game -> State Seed (Maybe Room)
vacantRoom =
nonEmptyRooms >>>
difference roomSet >>>
shuffle >>>
map head
onMove :: Room -> Game -> State Seed Game
onMove r g =
if member r g.batRooms then
vacantRoom g # map (fromMaybe r >>> g {playerRoom = _})
else
pure $ g { playerRoom = r }
AK
Вот так выглядит логика игры, она отделно от галогена
R:
Можно ли как-то скрестить мою State с галогеновской, или это не имеет смысла?
Так Halogen же уже за тебя решает проблему с работой со стейтом
AK
Вот так выглядит стейт галогена:
type GUIState =
{ command :: Maybe PlayerCommand
, lang :: Lang
, game :: Game
, seed :: Seed
}
R:
Зачем велосипеды пилить
AK
Зачем велосипеды пилить
В этом-то и затык, что я не понимаю как это сделать не велосипедно
AK
сейчас сигнатура галогеновского компонента:
Надо сделать?
Я не понимаю, как мне этот Seed запихать в галогеновский HalogenM
component :: forall q o m. H.Component HH.HTML q InitParams o m
Надо сделать?
component :: forall q o m. H.Component HH.HTML q InitParams o (StateT Seed m)
Я не понимаю, как мне этот Seed запихать в галогеновский HalogenM
2020 March 30
p
сейчас сигнатура галогеновского компонента:
Надо сделать?
Я не понимаю, как мне этот Seed запихать в галогеновский HalogenM
component :: forall q o m. H.Component HH.HTML q InitParams o m
Надо сделать?
component :: forall q o m. H.Component HH.HTML q InitParams o (StateT Seed m)
Я не понимаю, как мне этот Seed запихать в галогеновский HalogenM
Никак. Галоген не заточен под работу со стеком трансформеров внутри.
AK
Вообще, первые впечатления приятные от языка после хаскеля, элма и скалы, но порог входа довольно высокий: 14 дней до деплоя мне понадобилось
ЗП
Вообще, первые впечатления приятные от языка после хаскеля, элма и скалы, но порог входа довольно высокий: 14 дней до деплоя мне понадобилось
а хаскель чем плох в этом случае?
AK
а хаскель чем плох в этом случае?
В хаскеле мне меньше нравится прелюд (иерархия тайпклассов, повторяющиеся функции) и я когда-то давно пытался его в js компилить, мне результат меньше понравился. И строгость (eager evaluation) из коробки мне больше понравилась чем ленивость
p
В хаскеле мне меньше нравится прелюд (иерархия тайпклассов, повторяющиеся функции) и я когда-то давно пытался его в js компилить, мне результат меньше понравился. И строгость (eager evaluation) из коробки мне больше понравилась чем ленивость
Ох, ленивость, это то, чего не хватает пурсе :)
p
Хаскел лучше, если нет цели компилять в JS. имхо
ЗП
Ох, ленивость, это то, чего не хватает пурсе :)
в принципе через санки делается, но нужен механизм оптимизации этого на уровне компилятора
AK
Ох, ленивость, это то, чего не хватает пурсе :)
А как же всякие Unit => a? Не спасают в проде?