Intersecting number wheels: Difference between revisions

 

=={{header|F_Sharp|F#}}==

let N(n)=fun()->n

let wheel(n:(unit->int)[])=let mutable g= -1 in (fun()->g<-(g+1)%n.Length; n.[g]())

1 3 5 1 4 3 1 4 5 1 3 4 1 3 5 1 4 3 1 4 5

</pre>

=={{header|Factor}}==

An attempt has been made to simplify the interface as much as possible by creating a natural literal syntax for number wheel groups. This should be useful for exploring these types of sequences in the future.