小弟有几个Haskell问题想问大神

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/21 13:09:38

小弟有几个Haskell问题想问大神
第一个是如何将一个列表拆开就像这样：
> :type splits
splits ::[a] -> [([a],[a])]
> splits [1..4]
[([1],[2,3,4]),([1,2],[3,4]),([1,2,3],[4])]
> splits "xyz"
[("x","yz"),("xy","z")]
> splits [True,False]
[([True],[False])]
> length (splits [1..50])
49
第二个是如何找到列表中共有的东西,像这样：
> cpfx ["abc","ab","abcd"]
"ab"
> cpfx ["abc","abcef","a123"]
"a"
> cpfx ["xabc","xabcef","axbc"]
""
第三个是用input建立这样的图形：
> street [(3,2,'x'),(2,6,'y'),(5,4,'z')]
yy
yy
yyzzzzz
yyzzzzz
xxxyyzzzzz
xxxyyzzzzz
最后一个是输入指令进行相应的几种操作：
> editstr [("rep"," ","_")] "just a test" 这是替换
"just_a_test"
> editstr [("xlt","aeiou","AEIOU")] "just a test" 这个是将相应位置的替换,就是把aeiou替换成AEIOU
"jUst A tEst" aeiou和AEIOU都是由用户输入的
> editstr [("len","","")] "testing" 这个是求长度
"7"
> editstr [("rev","","")] "testing" 这个是反向
"gnitset"
> editstr [("x","3","")] "xy" 这个是重复
"xyxyxy"

第一道用了一个比较笨的办法,而且也没有管列表长度小于2的情况
```haskell
splits xs = sp ((length xs)-1) xs
sp 1 xs = [splitAt 1 xs]
sp n xs = (sp (n-1) xs) ++ [splitAt n xs]
```
第二道题copy自[stackoverflow](http://stackoverflow.com/a/21722065/2214113)
```haskell
commonPrefix :: (Eq e) => [e] -> [e] -> [e]
commonPrefix _ [] = []
commonPrefix [] _ = []
commonPrefix (x:xs) (y:ys)
| x == y = x : commonPrefix xs ys
| otherwise = []
cpfx :: (Eq a) => [[a]] -> [a]
cpfx = foldl1 commonPrefix
```
该睡了,后面两个改天有时间再说,我才不告诉你我不会.

haskell大神,求问一道Haskell的编程题! 问大神英语. 求这几个选择题正确答案如果26 34有大神详解的话就最好了!小弟在此感激不尽! 小弟有几个英语句子看不懂啊请大神解救一下小弟问三个英语的问题. 小弟问一下一个英语问题想问几个关于脑电波的问题小弟有几个发音一直不解, 有几个英文问题想问大家请问什麼是 head start program? 我有几个五年级英语的问题想问,麻烦英语高手来. 想问大家精灵鼠小弟的电影和精灵鼠小弟这本书有没有什么不同小弟不才,问几个题目,会的大哥大姐们帮帮小弟的忙啊~ 小弟有问题请教大家……