fork download 
  1. open System
  2. open System.Diagnostics
  3.  
  4. [<EntryPoint>]
  5. let main _ =
  6.   let source = seq { 0 .. 10000000 }
  7.   let sw = Stopwatch.StartNew()
  8.   let r = source |> Seq.windowed 3 |> Seq.length
  9.   sw.Stop()
  10.   Console.WriteLine(r)
  11.   Console.WriteLine(sw.Elapsed)
  12.   0
Success #stdin #stdout 2.94s 11696KB
comments (?)
stdin 
Standard input is empty
stdout 
9999999
00:00:02.8801056
https://ideone.com/xwhgt
language:
F# (mono 4.1)
created:
12 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!