Yinelenen elemanlara sahip sonsuz dizisi

Question

Sonsuz tekrarlayan elemanların bir alt dizisini içeren sonsuz bir sıra oluşturmam gerekiyor.

let l = [1; 2; 3; 4] 
let s = seq { while true do yield! l } 

Bunu yapmak için standart bir yol (fonksiyonu) var mı:

[1; 2; 3; 4; 1; 2; 3; 4; 1; 2; 3; 4; ...] 

Yani yazdı?

Answer 1

Bu senaryoda yaklaşımınızın iyi olduğunu düşünüyorum. Orada tekrarını uygulamak için yerleşik bir işlevdir, ancak genellikle dizileri tekrarlamak gerekirse, bir kendini tanımlayabilir ve Seq modülünde o kullanılabilir yapabilirsiniz: sanki

module Seq = 
    let repeat items = 
    seq { while true do yield! items } 

Sonra güzelce Seq.repeat [ 1 .. 4 ] yazabilir F # IntelliSense her iki işlevi Seq modülünden ve Seq modülünden tek bir modülde tanımlanmış gibi gösterdiğinden, repeat standart bir F # kitaplığı işleviydi.

Uygulamanızın yanı sıra, dizi oluştururken başka bir oldukça yaygın model olan yinelemeli sıra ifadesini de kullanabilirsiniz. while kullanma fonksiyonel özyineleme karşılaştırıldığında (basit tekrarlar için herhangi bir devlete ihtiyacımız yok rağmen) zorunludur bazı bakımlardan şudur: oluşturulurken bazı devlet tutmak istediğinizde

let rec repeat items = 
    seq { yield! items 
     yield! repeat items } 

Bu yaklaşım daha iyidir. Örneğin, while kullanarak tüm sayıları 1 .. oluşturmak çok hoş olmaz, çünkü değiştirilebilen duruma ihtiyacınız vardır. Özyinelemeyi kullanarak, aynı şeyi yazabilirsiniz olarak:

let rec numbersFrom n = 
    seq { yield n 
     yield! numbersFrom (n + 1) } 

Answer 2

Bunun için bir deyim olduğunu ve sahip olduğunuz şeyin iyi olduğunu sanmıyorum, ama burada bazı alternatifler var. Eğer bir diziye sizin altdizisi değiştirirseniz, ne varsa kullanarak

let a = [|1; 2; 3; 4|] 
let s = Seq.initInfinite (fun i -> a.[i % a.Length]) 

yapabilirsiniz

, ayrıca

let l = [1; 2; 3; 4] 
let s = Seq.initInfinite (fun _ -> l) |> Seq.concat 

yapabilirdi ama hiç kısa.

Answer 3

Bu, herhangi bir yardımcı nesne oluşturmaya gerek kalmadan bir (daha fazla veya daha az) tek astar olarak yapacaktır.

let s = seq { while true do 
       for i in 1 .. 4 -> i } 

Answer 4

Daniel'in cevabı benzer ancak bir fonksiyonu haline enkapsüle ve bu işlevi gibi davranarak Seq modülünde ise:

module Seq = 
    let infiniteOf repeatedList = 
     Seq.initInfinite (fun _ -> repeatedList) 
     |> Seq.concat 

// Tests 
let intList = [1; 2; 3; 4] 
let charList = ['a'; 'b'; 'c'; 'd'] 
let objList = [(new System.Object()); (new System.Object()); (new System.Object()); (new System.Object())] 
do 
    Seq.infiniteOf intList |> Seq.take 20 |> Seq.iter (fun item -> printfn "%A" item) 
    Seq.infiniteOf charList |> Seq.take 20 |> Seq.iter (fun item -> printfn "%A" item) 
    Seq.infiniteOf objList |> Seq.take 20 |> Seq.iter (fun item -> printfn "%A" item)