PE 501

白送两个成就啊!

一看到题,感觉只能用暴力筛法了。。。

然后搜了paper。。?

发现素数函数竟然可以\(O(n^{\frac 12 + \varepsilon})\)求!

然后又发现github上的一个库,实现了一个\(O(n^{\frac23})\)的算法

用了一下,30s出解了

然后发现那个解决最新题的成就竟然是永久的!

W{IZ20GU9H[~3CLE5(7@`{D

The Evolution of a Haskell Programmer

黑出翔了。。。

转自http://www.willamette.edu/~fruehr/haskell/evolution.html

作者Fritz Ruehr

Freshman Haskell programmer

fac n = if n == 0 
           then 1
           else n * fac (n-1)

Sophomore Haskell programmer, at MIT

(studied Scheme as a freshman)
fac = (\(n) ->
        (if ((==) n 0)
            then 1
            else ((*) n (fac ((-) n 1)))))

Junior Haskell programmer

(beginning Peano player)
fac 0 = 1
fac n = n * fac (n-1)

Continue reading The Evolution of a Haskell Programmer