Fixed fib sample
This commit is contained in:
@@ -1,6 +1,6 @@
|
|||||||
@extern putchar fun: character sint32 -> sint32
|
@extern putchar fun: character u32 -> u32
|
||||||
|
|
||||||
fib fun: number sint32 -> sint32
|
fib fun: number u32 -> u32
|
||||||
ret if number < 2:
|
ret if number < 2:
|
||||||
number
|
number
|
||||||
else
|
else
|
||||||
@@ -8,13 +8,13 @@ fib fun: number sint32 -> sint32
|
|||||||
;
|
;
|
||||||
;
|
;
|
||||||
|
|
||||||
printNum fun: number sint32
|
printNum fun: number u32
|
||||||
biggest sint32 <- 10
|
biggest u32 <- 10
|
||||||
rep biggest <= number: biggest <- biggest * 10
|
rep biggest <= number: biggest <- biggest * 10
|
||||||
biggest <- biggest / 10
|
biggest <- biggest / 10
|
||||||
|
|
||||||
rep biggest > 0:
|
rep biggest > 0:
|
||||||
digit sint32 <- number / biggest
|
digit u32 <- number / biggest
|
||||||
putchar(digit + '0')
|
putchar(digit + '0')
|
||||||
number <- number % biggest
|
number <- number % biggest
|
||||||
biggest <- biggest / 10
|
biggest <- biggest / 10
|
||||||
@@ -22,9 +22,9 @@ printNum fun: number sint32
|
|||||||
;
|
;
|
||||||
|
|
||||||
// Print first 20 fibonaci numbers
|
// Print first 20 fibonaci numbers
|
||||||
main fun -> sint32
|
main fun -> u32
|
||||||
rep i sint32 <- 0, i < 20:
|
rep i u32 <- 0, i < 20:
|
||||||
res sint32 <- fib(i)
|
res u32 <- fib(i)
|
||||||
printNum(res)
|
printNum(res)
|
||||||
putchar('\n')
|
putchar('\n')
|
||||||
i <- i + 1
|
i <- i + 1
|
||||||
|
|||||||
Reference in New Issue
Block a user