fork download 
  1. open System
  2.  
  3. // your code goes here
  4. let square x = x * x
  5. let numbers = [10.0; 20.0; 30.0; 40.0]
  6.  
  7. let query1 =
  8.     query {
  9.         for number in numbers do
  10.             select (number)           
  11.     } |> Seq.map square |> Seq.sum
  12.  
  13. Console.WriteLine(sprintf "%A" query1);
Success #stdin #stdout 0.04s 134912KB
comments (?)
stdin 
Standard input is empty
stdout 
3000.0
https://ideone.com/mgu6jM
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!