我们可以使用Haskell的分组函数来拆分学生名单。该函数需要两个参数：一个是用于分组的函数，一个是用于分组的列表。

我们可以使用以下代码按照学生的成绩将名单拆分：

import Data.List

data Student = Student { name :: String, score :: Int } deriving (Show)

students :: [Student]
students = [ Student "张三" 60, Student "李四" 80, Student "王五" 70, Student "赵六" 90]

groupByScore :: [Student] -> [[Student]]
groupByScore = groupBy (\a b -> score a == score b) . sortBy (\a b -> compare (score b) (score a))

main :: IO ()
main = print $ groupByScore students

在这里，我们定义了一个类型为Student的列表，其中每个元素都有一个name和score属性。我们通过sortBy函数根据学生的成绩对学生名单进行排序，并使用groupBy函数将它们分组。

在groupBy函数中，我们使用匿名函数来指示如何进行分组。比较两个学生的score属性，如果它们相等，则它们就可以分组在一起。

最后，main函数打印输出拆分后的名单。它的结果是：

[[Student {name = "赵六", score = 90}],[Student {name = "李四", score = 80},Student {name = "王五", score = 80}],[Student {name = "张三", score = 60}]]

这意味着，拥有90分的赵六在一个组中，80分的李四和王五在另一个组中，60分的张三在最后一个组中。