Object subclass: #Fibonacci
    instanceVariableNames: ''
    classVariableNames: ''
    poolDictionaries: ''
!

! Fibonacci methodsFor: 'série de fibonacci' !

calcula: n
    | conj |
    n < 2
    ifTrue: [^n]
    ifFalse: [conj := Array new: n.
	conj at: 1 put: 0.
	conj at: 2 put: 1.
	3 to: n do: [:i |
	    conj at: i put: ((conj at: (i - 2)) + (conj at: (i - 1)))].
	^conj
    ].
!!

args := Smalltalk arguments.
x := Fibonacci new.
(x calcula: (args at: 1) asInteger) printNl.