[Resolvido]Funcao QuickSort

[luchhozito]

type Inscritos=[Aluno]
type Aluno=(Nome,Num,Curso)
type Nome=String
type Num=Integer
type Curso=String

Tenho esta função abaixo que tem como objectivo ordenar os Inscritos pelo numero (crescente).

ordenada :: Inscritos -> Inscritos						
ordenada ((a,b,c):xs) = ordenada (filter(\(_,b,_) (< xs)) ++ [(a,b,c)] ++ ordenada (filter(\(_,b,_) -> (>=b) xs))

mas está a dar um erro.

[Baderous]

A definição de quicksort é esta:

qsort [] = []
qsort (x:xs) = let mi = filter (<x) xs
	   mai = filter (>=x) xs
       in qsort mi ++ [x] ++ qsort mai

Vê lá o que é que estás a fazer mal.

[luchhozito]

não estou a conseguir compilar. 😕

ordenada :: Inscritos -> Inscritos						
ordenada [] = []
ordenada ((a,b,c):xs) = let mi = filter ((\(_,b,_) -> (<b)) xs)
			           mai = filter ((\(_,b,_) -> (>=b)) xs)
			      in ordenada mi ++ [(a,b,c)] ++ ordenada mai

[Baderous]

Estás a definir um tipo de dados para representar o número com uma palavra reservada: Num. Esta palavra representa uma classe de Haskell, não podes utilizar para dar nomes aos teus tipos.

Para além disso, tens aí uns parêntesis a mais no filter e a função < e >= têm tipo Ord a => a -> a -> Bool e da forma que estavas a fazer, o compilador inferia que o tipo era a -> Bool.

ordenada :: Inscritos -> Inscritos                                             
ordenada [] = []
ordenada ((a,b,c):xs) = let mi = filter (\(_,t,_) -> t<b) xs
                           mai = filter (\(_,t,_) -> t>=b) xs
                       in ordenada mi ++ [(a,b,c)] ++ ordenada mai 

[luchhozito]

Estás a definir um tipo de dados para representar o número com uma palavra reservada: Num. Esta palavra representa uma classe de Haskell, não podes utilizar para dar nomes aos teus tipos.

Para além disso, tens aí uns parêntesis a mais no filter e a função < e >= têm tipo Ord a => a -> a -> Bool e da forma que estavas a fazer, o compilador inferia que o tipo era a -> Bool.

ordenada :: Inscritos -> Inscritos                                             
ordenada [] = []
ordenada ((a,b,c):xs) = let mi = filter (\(_,t,_) -> t<b) xs
                           mai = filter (\(_,t,_) -> t>=b) xs
                       in ordenada mi ++ [(a,b,c)] ++ ordenada mai 

eishh... pois. obrigadao

[luchhozito]

Utilizando o tipo do primeiro post.

type Inscritos=[Aluno]
type Aluno=(Nome,Num,Curso)
type Nome=String
type Num=Integer
type Curso=String

Objectivo: Calcular a lista de alunos de um dados curso ordenada por número.

Dão isto:

listagem :: Inscritos -> Curso -> [Num]
listagem t c = ordena (filter(==c) t)

Exercicio:

Apresente uma definição para a função ordena e apresenta o seu tipo

----- minha resolução ---

-- saca apenas os numeros
da_num :: Inscritos -> [Num]
da_num [] = []
da_num ((a,b,c):xs) = [b] ++ da_num xs

-- funcao ordena
ordena :: Inscritos -> [Num]
ordena [] = []
ordena t = da_num (ordenada t) 

-- ordenar por numero
ordenada :: Inscritos -> Inscritos                                           
ordenada [] = []
ordenada ((a,b,c):xs) = filter (\(_,t,_) -> t<b) xs ++ [(a,b,c)] ++ filter (\(_,t,_) -> t>=b) xs

[AJBM]

Utilizando o tipo do primeiro post.

type Inscritos=[Aluno]
type Aluno=(Nome,Num,Curso)
type Nome=String
type Num=Integer
type Curso=String

Objectivo: Calcular a lista de alunos de um dados curso ordenada por número.

Dão isto:

listagem :: Inscritos -> Curso -> [Num]
listagem t c = ordena (filter(==c) t)

Exercicio:

Apresente uma definição para a função ordena e apresenta o seu tipo

----- minha resolução ---

-- saca apenas os numeros
da_num :: Inscritos -> [Num]
da_num [] = []
da_num ((a,b,c):xs) = [b] ++ da_num xs

-- funcao ordena
ordena :: Inscritos -> [Num]
ordena [] = []
ordena t = da_num (ordenada t) 

-- ordenar por numero
ordenada :: Inscritos -> Inscritos                                           
ordenada [] = []
ordenada ((a,b,c):xs) = filter (\(_,t,_) -> t<b) xs ++ [(a,b,c)] ++ filter (\(_,t,_) -> t>=b) xs

Boas olha podes explicar me como e que esta funcao funciona?

[AJBM]

a funcao de ordenar por numero