尝试学习 F#...对整数列表进行排序

Question

过去几个月我一直在使用 Python，现在正在尝试尝试 F#。只是……我实在是不太明白。我过去几天一直在阅读文档，但仍然不完全理解如何完成基本任务。

我一直在关注 tryfsharp.org 和 fsharp.net 上的教程。

例如，我如何完成这个用 Python 编写的基本任务，而不是用 F# 编写？

unsorted = [82, 9, 15, 8, 21, 33, 4, 89, 71, 7]
sorted = []
for n in range(1,len(unsorted)):
    lowest = 0
    for i in range(0,len(unsorted)-1):
        if unsorted[i] < unsorted[lowest]:
            lowest = i
    sorted.append(unsorted[lowest])
    del unsorted[lowest]
print sorted

Answer 1

我意识到，如果您想要直接翻译，这可能不是您想要的，但 F# 和函数式编程往往比命令式语言更强调声明式编程。例如，如果您想对数字列表进行排序，只需对它们进行排序：

let unsorted = [2; 9; 15; 8; 21; 33; 4; 89; 71; 7]
let sorted = unsorted |> List.sort

//now print em out
sorted |> List.iter (printfn "%d")

如果您在摸索 F# 时遇到困难，那么阅读一下函数式编程可能会有所帮助，以帮助您理解为什么 F# 的做法有所不同。我去年写的这篇文章可能会有所帮助 http://msdn.microsoft.com/en -us/magazine/ee336127.aspx

Answer 2

将代码从命令式语言移植到函数式语言时，您应该尝试转换代码中使用的算法，而不是代码本身（恕我直言）。

该代码正在执行选择排序，因此您想问自己，选择排序是做什么的？

• 找到最小值
• 并将其放在排序列表的前面。
• 对其余项目进行排序，将结果放在最小值之后。

那么代码会是什么样子呢？这肯定会起作用：

let rec selection_sort = function
    | [] -> []
    | l -> let min = List.min l in                         (* find the minimum *)
           let rest = List.filter (fun i -> i <> min) l in (* find the rest *)
           let sorted_rest = selection_sort rest in        (* sort the rest *)
           min :: sorted_rest                              (* put everything together *)

Answer 3

请注意，您的 python 版本不正确。它输出：

[4, 8, 9, 15, 21, 33, 71, 82, 89]

缺少7。

下面是 F# 的直接翻译：

let unsorted = new ResizeArray<int> ([| 82; 9; 15; 8; 21; 33; 4; 89; 71; 7 |])
let sorted = new ResizeArray<int> ()
for n=1 to unsorted.Count-1 do
    let mutable lowest = 0
    for i=0 to unsorted.Count-1 do // i changed this line so the output is correct. 
        if unsorted.[i] < unsorted.[lowest] then
            lowest <- i
    sorted.Add(unsorted.[lowest])
    unsorted.RemoveAt(lowest)

printfn "%A" (sorted |> Seq.toArray)

翻译后的版本几乎与 Python 版本完全相同。但这并不是编写 F# 程序的理想方式。对于 F# 中的排序算法，您可以阅读我博客上的一篇博文：

http://fdatamining .blogspot.com/2010/03/test.html