Numbers with equal rises and falls: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Thundergnat (talk | contribs)
10,384 edits
Line 87: Line 87:
let A296712=seq{1..2147483647}|>Seq.filter fN
let A296712=seq{1..2147483647}|>Seq.filter fN
A296712|>Seq.take 200|>Seq.iter(printf "%d "); printfn"\n"
A296712|>Seq.take 200|>Seq.iter(printf "%d "); printfn"\n"
[999999;9999999;99999999]|>List.iter(fun n->printfn "The %dth element is %d" (n+1) (Seq.item n xx))
[999999;9999999;99999999]|>List.iter(fun n->printfn "The %dth element is %d" (n+1) (Seq.item n A296712))
</lang>
</lang>
{{out}}
{{out}}
Line 97: Line 97:
The 100000000th element is 375551037
The 100000000th element is 375551037
</pre>
</pre>

=={{header|Factor}}==
=={{header|Factor}}==
{{works with|Factor|0.99 2020-08-14}}
{{works with|Factor|0.99 2020-08-14}}
Retrieved from "https://rosettacode.org/wiki/Numbers_with_equal_rises_and_falls"