takahisa

Option Explicit On

Dim sheet  As Worksheet
Dim count  As Long

Sub Main()
    Dim cell   As String
    Dim x, y   As Long
    Dim a, b, c As Long
    Dim align  As Integer

takahisa

let source	 : "+++++++++[>++++++++>+++++++++++>+++++<<<-]>.>++.+++++++..+++.>-.------------.<++++++++.--------.+++.------.--------.>+.\0"

let item	 : 
lambda n	->
lambda list -> 
if ( = n 0 ) 
then head list
else item ( - n 1 ) ( tail list )

let state	 :

takahisa

module std {
   def fib = 1 -> Int
       => 1
　　def fib = 2 -> Int
       => 1
   def fib = n:Int -> Int
       => fib(n-2) + fib(n-1)
}

module program {