レキシカルスコープを使ったフィボナッチ数列の表示

package main
import "fmt"
func fibonacci() func() int {
    x, y, z := 0, 1, 0
    return func() int {
    	z, x, y = x, y, x+y
        return z
    }
}
func main() {
    f := fibonacci()
    for i := 0; i < 10; i++ {
        fmt.Println(f())
    }
}

fibonacci <- function() {
	a <- c(0, 1, 0)
	function() {
		a[c(3,1,2)] <<- c( a[c(1,2)], a[1]+a[2] )
		return(a[3])
	}
}
f <- fibonacci()
for(i in 1:10) {
	cat( f(), "\n" )
}