fork download
copy 
  1. (([:f | [:g | f value: [:arg | (g value: g) value: arg]] 
  2.     value: [:g | f value: [:arg | (g value: g) value: arg]]] 
  3.   value: [:f | [:n | n < 2 ifTrue: [1] ifFalse: [n * (f value: n-1)]]]
  4. ) value: 100) printNl
Success #stdin #stdout 0.02s 74496KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000
https://ideone.com/qxahXF
language:
Smalltalk (gst 3.2.5)
created:
11 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!