Schaffung infinte Reverse fügen Sie dann sortieren

Question

Ich versuche, eine infinte Reverse dann sortieren in Haskell

r = map head (iterate rlist [2..]) 

rlist (x:xs) = [x : xs | x <- xs , x quick $ p+x ] 
        where p = reverse x 

quick [] = [] 
quick (x:xs) = quick [u |u <- xs, u < x] ++ [x] ++ quick [u | u <- xs , u >= x] 

aber es funktioniert nicht, irgendwelche Vorschläge Liste zu erstellen hinzufügen?

danke.

Answer 1

verstehe ich nicht ganz dein Problem, aber nach Ihrem Beispiel, würde ich

rats x = sort (zipWith (+) x (reverse x)) 

wie in rats [1,4,5] versuchen, die [6,6,8] entspricht.

Answer 2

Ich bin mir nicht sicher, wie Sie erwarten, dass Ihr Code funktioniert (vielleicht gab es ein Problem, als Sie den Code gepostet haben). Nämlich, ein Teil Ihrer Liste Verständnis ... x quick $ p + x macht keinen Sinn für mich - x ist keine Funktion und es ist keine Liste, so reverse x macht auch keinen Sinn. Für diese Angelegenheit haben Sie beschattet x - beachten Sie die x in Ihrer Liste Verständnis ist nicht das gleiche wie die x in ratslist (x:xs).

Eine einfache Lösung existiert, die Zahlen zu Listen von Ziffern lesen und zeigen, konvertieren (na ja, Zeichen, aber es funktioniert) und zurück:

import Data.List 

myRats = 1 : map ratify myRats 
-- Alternatively: myRats = iterate ratify 1 

ratify :: Integer -> Integer 
ratify n = sortRat (n + rev n) 
    where 
    rev = read . reverse . show 
    sortRat = read . sort . show 

Und in GHCi:

*Main Data.List> take 10 myRats 
[1,2,4,8,16,77,145,668,1345,6677]