fork(1) download
copy 
  1. open System
  2.  
  3. type Dog =
  4.   {
  5.     name : string;
  6.     breed : string;
  7.     say : Dog -> unit;
  8.   }
  9.     member self.callSay () = self.say self
  10.  
  11. let jim =
  12.   {
  13.     name = "Jim";
  14.     breed = "unknown";
  15.     say = fun self -> printfn "%s: woof!" self.name;
  16.   }
  17.  
  18. jim.callSay ()
Success #stdin #stdout 0.01s 132672KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Jim: woof!
https://ideone.com/HaIwIy
language:
F# (mono 4.1)
created:
7 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!