Infinite Listen in Haskell mit vordefinierten Funktionen

Question

Ich bin ein Anfänger in Haskell und ich versuche, ein einfaches Programm zu machen, die eine Liste zB [-3,8] nimmt und die unendliche Liste: [-3,8,-3,8,-3,8,...]

Dank Haskells lazy evaluation I habe ein sehr einfaches Programm geschrieben, das es berechnet:

period :: [a]->[a] 
period p = p ++ period p 

ich würde gerne wissen, ob es eine einfachere Lösung mit hohen Ordnung Funktionen (iterate, Karte, ...)

Answer 1

Der erste Platz Suche nach Liste fu In der Regel ist Data.List. Dort finden Sie

cycle :: [a] -> [a] 

was genau das tut, was Sie wollen. Es ist jedoch ein wenig anders definiert, um eine kreisförmige Liste anstelle einer unendlichen Liste zu erstellen. So etwas wie

cycle xs = ys where ys = xs ++ ys 

Dies kann viel unnötige Speicherzuweisung vermeiden. Sie können diese Definition ausdrücken Data.Function.fix mit:

cycle xs = fix (xs ++) 

Wenn Sie zu lieben über verallgemeinern, können Sie dies für die allgemeine Semigroup s definieren

cycle xs = fix (xs <>) 

mit, obwohl dies für die meisten Halbgruppen auseinanderlaufen wird.

Wenn Sie einen Punkt freien Fanatiker sind, können Sie diese übersetzen zu

cycle xs = fix ((<>) xs) 

die Sie dann sehen kann, ist

cycle = fix . (<>)