王者荣耀百里玄策，为了要一技能的 50 攻击力 buff，牺牲几次远端攻击是值得的呢？

百里玄策1.hs

-- https://tieba.baidu.com/p/6048246840
-- 动机 https://tieba.baidu.com/p/6030357600?fid=25249178&pid=124195062887&cid=124202650757&red_tag=0539315367#124202650757

减伤比例 :: Fractional n => n -> n
减伤比例 减防后的防御 = 减防后的防御 / (600 + 减防后的防御)

伤害 :: Fractional n => n -> n -> n
伤害 减防后的防御 攻击输出 = 攻击输出 * (1 - 减伤比例 减防后的防御)

我这玄策伤害 :: Fractional n => Bool -> Bool -> Bool -> n -> n -> n
我这玄策伤害 有一级打野刀吗 有一技能效果吗 用远端打吗 减防后的防御 基础攻击 =
    let 攻击输出 = (基础攻击 + if 有一技能效果吗 then 50 else 0) 
                  * (if 有一级打野刀吗 then 1.5 else 1) 
                  * (if 用远端打吗 then 1.35 else 1) 
                  in
        伤害 减防后的防御 攻击输出

布尔取值 = [False, True]
汉化 False = "无"
汉化 True = "有"

buff怪减防后的物理防御 = 183-78.4
我玄策基础物理攻击 = 195

结果表格 = [[汉化 有一级打野刀吗, 汉化 有一技能效果吗, 汉化 用远端打吗, show $ 我这玄策伤害 有一级打野刀吗 有一技能效果吗 用远端打吗 buff怪减防后的物理防御 我玄策基础物理攻击] | 
    有一级打野刀吗 <- 布尔取值, 
    有一技能效果吗 <- 布尔取值, 
    用远端打吗 <- 布尔取值]
表头 = ["有一级打野刀吗", "有一技能效果吗", "用远端打吗", "我这玄策伤害"]
打印结果表格 = putStrLn $ unlines $ map unwords (表头:结果表格)

main = 打印结果表格

输出：

有一级打野刀吗 有一技能效果吗 用远端打吗 我这玄策伤害
无 无 无 166.05166051660515
无 无 有 224.16974169741695
无 有 无 208.62900936701672
无 有 有 281.6491626454726
有 无 无 249.07749077490774
有 无 有 336.25461254612543
有 有 无 312.9435140505251
有 有 有 422.4737439682089