| -- Trying to answer https://adnmb.com/t/24354256 | |
| -- Seems not correct. !!!!!!!!! | |
| -- forfor :: Monad m => | |
| {- | |
| [ | |
| [1,2,3], | |
| [4,5], |
| // for http://pythontutor.com/c.html#mode=edit | |
| // forfor https://adnmb.com/t/18445046 | |
| #include<stdlib.h> // NULL | |
| typedef struct account{ | |
| int num; | |
| struct account *next; | |
| } Account; | |
| typedef Account* APtr; |
翟明磊
“那个，叫什么的，萝卜白菜规则的，还真管用！”——农民
我匆匆登上了前往安徽阜阳的火车，前往南塘村新农合作社。
吸引我的是一场实验，将来源于英国议会的开会规则罗伯特议事规则在一个中国农村实行，让村民们学会民主辩论与表决。这行吗？悬念一。
一到南塘，听了先期到达的寇延丁的介绍，我又多了个悬念。原来这个讲师袁天鹏（罗伯特议事规则的翻译者）虽然留学于美国阿拉斯加大学，却是一个在城市长大工作的大孩子，从来没去过农村。刚到南塘，袁天鹏就喊:“来罐可乐”，当然没有，成了笑谈。一到农村，天鹏象天外来客一样，看到不少志愿者睡在地上（对于我们是家常便饭），他惊叹，农村这么困难啊，最逗的是他刚到县城发给朋友的短信：“现在是晚上九点，车刚到县城又出城了，一片漆黑，不知道往哪开，不知道安不安全？”这个时不时冒点英文出来的海龟能当农民的老师吗？悬念二。
| -- 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 |
| -- via https://wiki.haskell.org/Memoization | |
| -- P.S. I just realized memoization != memorization ! | |
| -- https://en.wikipedia.org/wiki/Memoization && https://en.wikipedia.org/wiki/Memorization | |
| memoized_fib :: Int -> Integer | |
| memoized_fib = (map fib [0 ..] !!) | |
| where fib 0 = 0 | |
| fib 1 = 1 | |
| fib n = memoized_fib (n-2) + memoized_fib (n-1) |
