fibonacci.wast

[larshp]

(module
  (func $fibonacci (param $i i32) (result i32)
    (local $a i32)
    (local $b i32)
    (local $tmp i32)
    (set_local $a (i32.const 1))
    (set_local $b (i32.const 0))
    (loop $done $loop
      (if (i32.le_s (get_local $i)(i32.const 1))(br $done)
        (block
          (set_local $tmp (get_local $a))
          (set_local $a (i32.add (get_local $a)(get_local $b)))
          (set_local $b (get_local $tmp))
          (set_local $i (i32.sub (get_local $i)(i32.const 1)))
        )
      )
      (br $loop)
    )
    (get_local $a)
  )
  (export "fib" $fibonacci)
)

[larshp]

(module
 (export "fib" (func $fib))
 (func $fib (param $n i32) (result i32)
  (if
   (i32.lt_s
    (get_local $n)
    (i32.const 2)
   )
   (return
    (i32.const 1)
   )
  )
  (return
   (i32.add
    (call $fib
     (i32.sub
      (get_local $n)
      (i32.const 2)
     )
    )
    (call $fib
     (i32.sub
      (get_local $n)
      (i32.const 1)
     )
    )
   )
  )
 )
)

[larshp]

(module
  (type $t0 (func (param i32) (result i32)))
  (func $fib (export "fib") (type $t0) (param $n i32) (result i32)
    get_local $n
    i32.const 2
    i32.lt_s
    if $I0
      i32.const 1
      return
    end
    get_local $n
    i32.const 2
    i32.sub
    call $fib
    get_local $n
    i32.const 1
    i32.sub
    call $fib
    i32.add
    return))

[larshp]

code added in e3949e1, closing