fork download
copy 
  1. open System
  2.  
  3. let objectsToTake = 0
  4.  
  5. let u = [1;2;3;4;5]
  6.         |> List.toSeq
  7.         |> fun x ->
  8.         if objectsToTake > 0 then x |> Seq.take objectsToTake
  9.         else x |> fun y -> x
  10.  
  11. for i in u do Console.WriteLine(i)
Success #stdin #stdout 0.05s 24000KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
2
3
4
5
https://ideone.com/nFsibK
language:
F# (mono 4.1)
created:
8 years ago
visibility:
public

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!