Как сортировать не элементы массива, а первые элементы под массивов двухмерного массива

@oolegg · Регистрация: 10.07.2014

Author24 — интернет-сервис помощи студентам

Дан код сортировки элементов массива.

Код

open System
let rnd = System.Random()
let m = Array.init 10 (fun i -> System.Math.Round(rnd.NextDouble()*10., 0))
printfn "\n%A"m
printfn "%A" (Array.Sort m)

И у меня возник вопрос. Как сортировать не элементы массива, а первые элементы под массивов двухмерного массива.
Например на вход подаем:

[[9.0; 10.0; 9.0; 6.0; 5.0]
[2.0; 3.0; 7.0; 0.0; 0.0]
[8.0; 2.0; 7.0; 2.0; 6.0]
[8.0; 6.0; 6.0; 10.0; 0.0]
[7.0; 10.0; 10.0; 6.0; 4.0]]

на выходе получаем:

[[2.0; 3.0; 7.0; 0.0; 0.0]
[7.0; 10.0; 10.0; 6.0; 4.0]
[8.0; 2.0; 7.0; 2.0; 6.0]
[8.0; 6.0; 6.0; 10.0; 0.0]
[9.0; 10.0; 9.0; 6.0; 5.0] ]

@pycture · 17.07.2014, 08:10

http://msdn.microsoft.com/en-u... 70303.aspx

какойто у вас код не соотвествующий выходу

@oolegg · 17.07.2014, 08:23 **[ТС]**

Сообщение от pycture

какойто у вас код не соотвествующий выходу

код для примера сортировки элементов массива, он делу только косвенно относиться.

Мне просто нужно менять строки двумерного массива по возрастанию первых элементов строк.

@pycture · 17.07.2014, 10:23

Ну както так и будет (не проверял)

Код

Array.sortBy (fun e -> e.[0])

@oolegg · 17.07.2014, 13:00 **[ТС]**

Сообщение от pycture

Array.sortBy (fun e -> e.[0])

Спасибо, получилось.

Код

let rnd = System.Random()
let m = Array2D.init 5 5 (fun i j-> System.Math.Round(rnd.NextDouble()*10., 0));;
printfn "%A" (array2D (Array.sortBy (fun t -> Array.get t 0) [|for i in 0 .. 4 ->  m.[i,*] |]))

@pycture · 17.07.2014, 17:23

Сообщение от oolegg

получилось

это хорошо
единственное вот такая запись (очень часто используемая в F#)

Код

    [| for i in 0 .. 4 ->  m.[i,*] |]
    |> Array.sortBy (fun t -> Array.get t 0)
    |> array2D
    |> printfn "%A"

читается все-таки проще чем набор скобок.
сразу видна последовательность действий и отлаживать (закоменчивая) удобнее

Добавлено через 1 час 55 минут
и еще из-за особенности вывода типов в F#
при пайп-нотации начинает работать тот вариант который я дал

Код

|> Array.sortBy (fun t -> t.[0])

@oolegg · 17.07.2014, 20:42 **[ТС]**

Сообщение от pycture

и еще из-за особенности вывода типов в F#
при пайп-нотации начинает работать тот вариант который я дал

спасибо,а то думаю че не работает.

@oolegg 28 / 26 / 3 Регистрация: 10.07.2014 Сообщений: 638
		1
	Как сортировать не элементы массива, а первые элементы под массивов двухмерного массива 16.07.2014, 20:25. Показов 1131. Ответов 6 Метки нет (Все метки) Дан код сортировки элементов массива. Код open System let rnd = System.Random() let m = Array.init 10 (fun i -> System.Math.Round(rnd.NextDouble()*10., 0)) printfn "\n%A"m printfn "%A" (Array.Sort m) И у меня возник вопрос. Как сортировать не элементы массива, а первые элементы под массивов двухмерного массива. Например на вход подаем: [[9.0; 10.0; 9.0; 6.0; 5.0] [2.0; 3.0; 7.0; 0.0; 0.0] [8.0; 2.0; 7.0; 2.0; 6.0] [8.0; 6.0; 6.0; 10.0; 0.0] [7.0; 10.0; 10.0; 6.0; 4.0]] на выходе получаем: [[2.0; 3.0; 7.0; 0.0; 0.0] [7.0; 10.0; 10.0; 6.0; 4.0] [8.0; 2.0; 7.0; 2.0; 6.0] [8.0; 6.0; 6.0; 10.0; 0.0] [9.0; 10.0; 9.0; 6.0; 5.0] ] 0

@pycture 1195 / 588 / 88 Регистрация: 20.09.2012 Сообщений: 1,881
	17.07.2014, 08:10	2
	http://msdn.microsoft.com/en-u... 70303.aspx какойто у вас код не соотвествующий выходу 0

@oolegg 28 / 26 / 3 Регистрация: 10.07.2014 Сообщений: 638
	17.07.2014, 08:23 [ТС]	3
	Сообщение от pycture какойто у вас код не соотвествующий выходу код для примера сортировки элементов массива, он делу только косвенно относиться. Мне просто нужно менять строки двумерного массива по возрастанию первых элементов строк. 0

@pycture 1195 / 588 / 88 Регистрация: 20.09.2012 Сообщений: 1,881
	17.07.2014, 10:23	4
	Ну както так и будет (не проверял) Код Array.sortBy (fun e -> e.[0]) 1

@oolegg 28 / 26 / 3 Регистрация: 10.07.2014 Сообщений: 638
	17.07.2014, 13:00 [ТС]	5
	Сообщение от pycture Array.sortBy (fun e -> e.[0]) Спасибо, получилось. Код let rnd = System.Random() let m = Array2D.init 5 5 (fun i j-> System.Math.Round(rnd.NextDouble()10., 0));; printfn "%A" (array2D (Array.sortBy (fun t -> Array.get t 0) [\|for i in 0 .. 4 -> m.[i,] \|])) 0

@pycture 1195 / 588 / 88 Регистрация: 20.09.2012 Сообщений: 1,881
	17.07.2014, 17:23	6
	Сообщение от oolegg получилось это хорошо единственное вот такая запись (очень часто используемая в F#) Код [\| for i in 0 .. 4 -> m.[i,] \|] \|> Array.sortBy (fun t -> Array.get t 0) \|> array2D \|> printfn "%A" читается все-таки проще чем набор скобок. сразу видна последовательность действий и отлаживать (закоменчивая) удобнее Добавлено через 1 час 55 минут* и еще из-за особенности вывода типов в F# при пайп-нотации начинает работать тот вариант который я дал Код \|> Array.sortBy (fun t -> t.[0]) 1

@oolegg 28 / 26 / 3 Регистрация: 10.07.2014 Сообщений: 638
	17.07.2014, 20:42 [ТС]	7
	Сообщение от pycture и еще из-за особенности вывода типов в F# при пайп-нотации начинает работать тот вариант который я дал спасибо,а то думаю че не работает. 0