「たらいまわし関数」の編集履歴(バックアップ)一覧はこちら
「たらいまわし関数」(2010/01/16 (土) 05:27:46) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
Function tarai(x As Long,y As Long,z As Long) As Long
If x <= y Then
tarai=y
Exit Function
End If
tarai = tarai(tarai(x-1,y,z),tarai(y-1,z,x),tarai(z-1,x,y))
End Function