小编Ura*_*rah的帖子

递归Haskell

我试图实现这样的事情:

mymin (x:[]) = x
mymin (x:y:xs) = mymin ((if x < y then x else y):xs)

mysort [] = []
mysort (x) = mymin x (mysort othervalues)
Run Code Online (Sandbox Code Playgroud)

我知道这段代码是错的,但它只是想法.如何使用返回递归的最小值来连接其余值.输入就像

mysort [7,9,3,7,1,2]

[1,**7,9,3,7,2**]
[1,2,**7,9,3,7**]
[1,2,3,**7,9,7**]
[1,2,3,7,**7,9**]
[1,2,3,7,7,**9**]
[1,2,3,7,7,9]
Run Code Online (Sandbox Code Playgroud)

haskell functional-programming

3
推荐指数
1
解决办法
254
查看次数

Haskell - 最常见的价值

如何在列表示例中获得最常见的值:

[1,3,4,5,6,6] -> output 6
[1,3,1,5] -> output 1
Run Code Online (Sandbox Code Playgroud)

我试图通过我自己的功能得到它,但我无法实现它你们可以帮助我吗?

我的代码:

del x [] = []
del x (y:ys) = if x /= y 
            then y:del x y 
            else del x ys



obj  x []= []
obj  x (y:ys) = if x== y then y:obj x y else(obj  x ys)

tam [] = 0
tam (x:y) = 1+tam  y

fun (n1:[]) (n:[]) [] =n1
fun (n1:[]) (n:[]) (x:s) =if (tam(obj x (x:s)))>n then fun (x:[]) ((tam(obj x (x:s))):[]) (del x …
Run Code Online (Sandbox Code Playgroud)

recursion haskell functional-programming

3
推荐指数
3
解决办法
2464
查看次数

递归Haskell - 最小值函数

有没有使用haskell函数的另一种方法来执行此功能

    mymin :: (Ord a) => [a] -> a 
    mymin [] = error "empty list"
    mymin [x] = x  
    mymin (x:xs)   
          | x < mt = x  
          | otherwise = mt  
            where mt = mymin xs
Run Code Online (Sandbox Code Playgroud)

并告诉我什么mymin :: (Ord a) => [a] ->a意思?

haskell functional-programming

2
推荐指数
2
解决办法
7043
查看次数

更改AjaxFileUpload文本按钮

有没有办法从ajaxFileupload示例更改文本按钮:"选择文件""删除""待定""上传""已上传"

将这些文本更改为自定义文本?即时通讯使用asp.net c#和最后一个ajaxtoolkit库,任何想法都将是helpul.先感谢您.

asp.net file-upload

1
推荐指数
1
解决办法
5920
查看次数