1026-fib-iter.spl (257B)
1 2 fn fib(n i32) i32 { 3 var a i32 = 0; 4 var b i32 = 1; 5 var z i32 = 0; 6 while (n != z) { 7 var t i32 = a + b; 8 a = b; 9 b = t; 10 n = n - 1; 11 z = 0; 12 } 13 return a; 14 } 15 16 fn start() i32 { 17 var n i32 = 0; 18 while n < 24 { 19 _hexout_(fib(n)); 20 n++; 21 } 22 return 7; 23 }