q x = if x==[] then [] else q [l | l<-tail x, l<head x] ++ [head x] ++ q [r | r<-tail x, r>=head x]
Text příspěvku:
q x = if x==[] then [] else q [l | l<-tail x, l<head x] ++ [head x] ++ q [r | r<-tail x, r>=head x]
A mozna nekdo umi i hezci...