RosettaCodeData/Task/Factorial/Smalltalk/factorial-1.st

Number extend [
  my_factorial [
    (self < 2)
        ifTrue: [ ^1 ]
        ifFalse: [
	    ^ (2 to: self) fold: [ :a :b | a * b ]
        ]
  ]
].

7 factorial printNl.
7 my_factorial printNl.
A-M baby 2013-04-10 21:29:02 -07:00			`Number extend [`
			`my_factorial [`
September Morn Update 2019-09-12 10:33:56 -07:00			`(self < 2)`
			`ifTrue: [ ^1 ]`
			`ifFalse: [`
			`^ (2 to: self) fold: [ :a :b \| a * b ]`
			`]`
A-M baby 2013-04-10 21:29:02 -07:00			`]`
			`].`

			`7 factorial printNl.`
			`7 my_factorial printNl.`