Haskell自我娱乐帖

无心人

今天写程序 算串珠素数 稍微优化点 出现了类型推定问题 后来问别人知道 四则运算两边必须是相同类型 加上了toInteger类型转换后搞定

无心人

针对 k-smith Number的 haskell求整数数位和的优化 假设做个表，存储4位数字的数位和 digitsSum n = if (n == 0) then 0 else ((n \`mod\` 10) + digitsSum (n \`div\` 10)) let sd = listArray (0,9999) \$ map digitsSum [0..9999] 然后 sd!n就可得到n的数位和(n必须为 0..9999范围)

无心人

匿名函数 Prelude Primes> (\x y -> x + y) ((\x -> x + 1) 0) ((\x -> x - 1) 0) 0

northwolves

似乎容易入门，想学精，难。

无心人

正确 但这个很容易验证数学问题

无心人

组合 combination :: [a] -> [[a]] combination [] = [[]] combination (x:xs) = (map ([x] ++ ) (combination xs) )++ (combination xs) 排列 permutation :: Eq a => [a] -> [[a]] permutation [] = [[]] permutation xs = concatMap (\x -> map (x:) \$ permutation (delete x xs)) xs

wayne

Haskell 很强大

wayne

Haskell有函数作图，符号计算，甚至GUI方面的功能或者第三方库吗

无心人

GUI库是有的，作图的不知，网上有对应的第三方库的清单，很好找 至于，符号计算，我想只可能比C/C++强大 lisp是函数式语言的老祖宗，几个老的符号计算包，似乎多是lisp的

无心人

http://bbs.emath.ac.cn/viewthread.php?tid=2444&extra=&page=1 上面问题的Haskell程序的一个比较紧凑的写法

1. import List
2. import Char(ord)
4. main = do
5. print \$ zip [1..] [(x, y, x + y)|a<-[1..4], b<-[1..9]\\[a], c<-[1..9]\\[a, b], let x = 100 * a + 10 * b + c,
6. d<-[a+1..9-a]\\[b, c], e<-[1..9]\\[a, b, c, d], f<-[1..9]\\[a, b, c, d, e], let y = 100 * d + 10 * e + f,
7. x + y < 1000,
8. (== 10) \$ length \$ nub ((map (\c -> (ord c) - (ord '0')) \$ show (x + y)) ++ [a, b, c, d, e, f, 0])]

复制代码