fork(1) download
copy 
  1. open System
  2.  
  3. let rec f n k =
  4.   match k with
  5.    |_ when (k < 0) || (k > n) -> 0
  6.    | z -> 100
  7.    |_ -> ((f n (k+1)) + 1)
  8.  
  9. let x = f 10 5
  10.  
  11. printfn "%d" x
  12.  
  13.  
Success #stdin #stdout 0.1s 11904KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
100
https://ideone.com/wRisCX
language:
F# (mono 4.1)
created:
11 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!