/***********************************************************
e.c -- 自然対数の底
***********************************************************/
Function ee() As Double
Dim n As Long
Dim e, a, prev
e = 0 : a = 1 : n = 1
Do
prev = e : e = e + a : a = a / n : n=n+1
Loop while (e <> prev)
ee = e
End Function
#N88BASIC
Print ee()