niltok / magic-in-ten-mins Goto Github PK

Contributors

Stargazers

Forkers

photonquantum lanzhou2333 cwksc cuyl xipfs sv158 snowflowersnowflake ma-joel davidzhixing phomu ryanpoy xxv0 nexzhu catsout j0hn50n133 2870743367 muzinian nonir snowmonstermaster geekya215 zx2289 sarleon moqimoqidea ricci0000 scarlett-kong wyy511511 bcq028 crackercat gaoneng-www tiancaiamao hairong1974 zlw2017 oswaldxia kirisky amateur0x1 exaclior ck76

// 写入
HKT<State<S, ?>, S> put(S s) {
    return new State<>(any -> 
        new State.StateData<>(any, s));
}

-- ie: (put 5) 1 -> ((),5)
put :: s -> State s ()
put x s = ((),x)

static int fib(int n) {
    int[] a = {0, 1, 1};
    for (int i = 0; i < n; i++)
        a[(i + 2) % 3] = a[(i + 1) % 3] + 
                         a[i % 3];
    return a[(n + 1) % 3];
}