匿名递归_斐波纳契

; 匿名递归：https://rosettacode.org/wiki/Anonymous_recursion#AutoHotkey
MsgBox % Fib(15)

Fib(n) {
  nold1 := 1
  nold2 := 0
  If (n < 0) {
    MsgBox, 需要正整数参数!
    Return
  } Else If n = 0
    Return nold2
  ; Else If n = 1
  ; 	Return nold1

  __Fib_Label__:
  t := nold2+nold1
  If (n > 2) {
    n--
    nold2:=nold1
    nold1:=t
    GoSub __Fib_Label__
  }
  Return t
}

 

声明：站内资源为整理优化好的代码上传分享与学习研究，如果是开源代码基本都会标明出处，方便大家扩展学习路径。请不要恶意搬运，破坏站长辛苦整理维护的劳动成果。本站为爱好者分享站点，所有内容不作为商业行为。如若本站上传内容侵犯了原著者的合法权益，请联系我们进行删除下架。