Function test(n As Long)
Debug.Print n
If n > 10000 Then test = test(n / 2)
End Function
結果はだんだん減っていく
Function test(n As Long)
If n > 10000 Then test = test(n / 2)
Debug.Print n
End Function
一番深いネストから順にDebug.Printするので結果はさかさまに出力していく
このあいだのPaul Graham先生の影響で早速(汗、しかし慣れない考え方だなぁ....やはり訓練が必要みたい、ここは実際にSchemeをインストールするしかないか
昔、98君というあだ名の人がPC-9801用のPC-Schemeを「使っていいよ」と持ってきたことがある、あのときこういうふうに出会っていたら僕の人生はどうなっていたんだろう
0 件のコメント:
コメントを投稿