Revision as of 23:42, 20 February 2015 (view source) Alt (talk \| contribs) (→‎{{header\|Erlang}}) ← Older edit		Revision as of 11:43, 8 June 2015 (view source) rosettacode>Dougbhoffman No edit summary Newer edit →
Line 692: ( scratchpad ) bar foo Hello! =={{header\|Forth}}== {{works with\|Forth}} Works with any ANS Forth Needs the FMS-SI (single inheritance) library code located here: http://soton.mpeforth.com/flag/fms/index.html <lang forth>include FMS-SI.f \ A singleton is created by using normal Forth data \ allocation words such as value or variable as instance variables. \ Any number of instances of a singleton class may be \ instantiated but they will all operate on the same shared data. :class singleton 0 value a 0 value b :m printa a . ;m :m printb b . ;m :m add-a ( n -- ) a + to a ;m :m add-b ( n -- ) b + to b ;m ;class singleton s1 singleton s2 singleton s3 4 s1 add-a 9 s2 add-b s3 printa \ => 4 s3 printb \ => 9 s1 printb \ => 9 s2 printa \ => 4 </lang> =={{header\|Go}}==

Singleton (view source)