fib.st

来自「四皇后问题」· ST 代码 · 共 13 行

Class Fib :Generator
| lastNumber  nextToLastNumber |
[
	first
    		nextToLastNumber <- 0.
    		^ lastNumber <- 1
|
  	next			| sum |
    		sum <- nextToLastNumber + lastNumber.
    		nextToLastNumber <- lastNumber.
    		^ lastNumber <- sum
]